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FOREWORD 

This  report  was  prepared  by  Gulf  General  Atomic  Incorporated,  San  Diego, 
California,  under  Contract  F29601-67-C-0014 .  The  research  was  funded  by  DASA 
under  Project  5710,  Subtask  07.017,  Program  Element  6.16.46.01H,  and  by  ARPA 
Order  313,  Program  Element  6.25.03.01R. 

Inclusive  dates  of  research  were  29  September  1966  to  27  October  1967.  The 
report  was  submitted  13  March  1968  by  the  Air  Force  Weapons  Laboratory  Project 
Officer,  Major  John  Bode  (WLRT). 

This  report  is  published  in  four  volumes:  Volume  I,  Laser  Phenomenology 
(classified  CONFIDENTIAL);  Volume  II,  Two-Dimensional  Code  Development;  Volume 
III,  The  OUTPUT  Code;  and  Volume  IV,  Material  Property  Codes.  The  first  volume 
contains  a  classified  report  on  interaction  of  laser  radiation  with  solid  targets 
and  a  brief  description  of  calculations  done  in  conjunction  with  experiments  at 
the  Air  Force  Weapons  Laboratory.  The  remaining  three  volumes  contain  reports 
of  code  development  efforts  in  the  areas  of  radiative  transfer,  hydrodynamics, 
radiative  absorption  coefficients,  and  equations  of  state. 

The  projects  described  in  this  report  are  for  the  most  part  in  an  incomplete 
state  of  development.  This  is  due  in  part  to  the  nature  of  the  existing  computer 
programs  themselves,  which  continue  in  a  state  of  development  as  long  as  they  are 
in  use,  and  in  part  to  the  time  scale  involved  in  bringing  new  programs  to  a 
state  of  capability  for  solving  real  problems. 

Gulf  General  Atomic  staff  personnel  responsible  for  the  direction  of  the 
research  include  J.  H.  Alexander,  R.  Brightman,  R.  S.  Englemore,  B.  E.  Freeman, 

W.  B.  Lindley,  L.  Norris,  J.  T.  Palmer,  L.  M.  Schalit,  J.  R.  Triplett,  and 
Mrs.  Chris  Imes.  Contractor's  report  number  is  CA-7764,  Vol  IV. 

The  cooperation  of  Dr.  P.  V.  Avizonis,  Major  J.  Bode,  Capt  C.  C.  David, 

Major  G.  Spillman,  and  Lt  L.  Stoessel  of  AFWL  is  gratefully  acknowledged. 

Other  documents  produced  under  this  contract  are:  GAMD-7592,  "  A  Numerical 
Scheme  for  First-Order  Compton  Scattering,"  J.  T.  Palmer,  December  13,  1966; 
GAMD-7846,  "Difference  Equations  for  Heat  Flow  in  Two  Dimensions,"  J.  R.  Triplett, 
March  2,  1967;  GAMD-7879,  "A  Modified  Characteristic  Method  for  Radiative  Trans¬ 
fer,"  J.  R.  Triplett,  March  17,  1967;  GAMD-7889,  "R  D  C  D.  A  FORTRAN  Input 
Routine,"  J.  H.  Alexander,  March  24,  1967;  GAMD-8333,  "Hydrodynamic  Equations 
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for  Multidimensional  Problems,"  J.  R.  Triplett,  October  24,  1967;  GAMD-8379, 

"A  Brief  Study  of  the  Thermodynamic  Properties  of  Several  Low  Z  Elements  at  Low 
Temperature,"  L.  M.  Schalit.,  November  22,  1967. 

This  technical  report  has  been  reviewed  and  is  approved. 
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ABSTRACT 

(Distribution  Limitation  Statement  No.  2) 

The  work  covered  by  this  volume  falls  into  three  parts:  (1)  opacity  data 
generated  by  the  DIAPHANOUS  code;  (2)  equation-of-state-data  generated  by 
the  SPUTTER/HECTIC  subroutines  AIRMOL  and  CMOL  and  the  MARIER,  HELAS,  and 
HELIKE  ionization  potential  routines;  (3)  descriptions  of  codes  used  to 
transfer  data  between  LASL,  AFWL,  Gulf  General  Atomic,  and  the  DASA  Analysis 
and  Information  Center  (DASIAC). 
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NOTATIONS 


A  ,  B  ,  C  ,  D  ,  E 
a  a  a  a  a 


k4,  k2,  k3 


k 

a 


N 

P 


Q 

R 


Coefficients  for  least- squares  fit  of  enthalpy  for 
species  a 

Concentration  of  species  a  in  moles/cc;  also  used 
as  above 

Internal  energy  (cal  mole)  of  species  a  at  temper¬ 
ature  T,  one  atmosphere 

Specific  energy  of  gas  mixture,  cal/gm  or  erg/gm 
Gibbs  free  energy  (cal  mole)  of  species  a  at  tem¬ 
perature  T,  one  atmosphere 
Enthalpy  of  species  a  at  temperature  T,  one 
atmosphere 

Heat  of  formation  of  species  a  at  0°K,  one  atmos¬ 
phere;  stable  molecules  N^,  O^,  and  A  taken  as 
reference  state 

Equilibrium  constants  in  units  of  pressure  for  the 
reactions  N2  ^  2N,  ^  20,  and  NO  %  N  +  O 

respectively 

Integration  constant  needed  to  relate  Gibbs  free 

energy  to  enthalpy  with  polynomial  expression 

Mean  atomic  weight  of  air,  about  14.  55  gm/mole 

Mean  molecular  weight  of  air  at  standard  temperature 

and  pressure  (STP),  about  29  gm/mole 

Mean  number  of  atoms  per  molecule  for  the  mixture 

Total  pressure;  units  will  be  either  atmospheres 

,  2 

or  dynes/cm  to  be  consistent  with  context 
Pressure  for  species  a 
Classical  partition  function 

Gas  constant,  units  vary  according  to  context  used 
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NOTATIONS  (continued) 


T 

V 


(AG°) 

j 


P 

T 


♦ 


Temperature  in  °K 
Volume  in  cc 

Atom  fraction  of  argon  in  air  at  STP 

Atom  fraction  of  oxygen  in  air  at  STP 

Atom  fraction  of  nitrogen  in  air  at  STP 

th 

Change  in  Gibbs  free  energy  for  the  j 
at  temperature  T,  one  atmosphere 
Number  of  atoms  in  molecule  a 
Temperature  in  eV 
Density  in  gm/  cc 

.  i 

Specific  volume  in  cc/gm;  t  =  p 
Gas  constant  in  SPUTTER  units 


reaction 
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SECTION  I 
INTRODUCTION 

The  NEIS  contract  has  called  for  the  continued  development  of  the 
material  properties  representations  used  by  the  SPUTTER,  MOTET, 
HECTIC,  and  other  radiation  transport  and  hydrodynamics  codes  used  in 
the  study  of  the  interactions  due  to  nuclear  explosions. 

The  material  properties  data  and  codes  that  have  been  developed 
during  this  contract  are,  in  large  pa*-t,  connected  with  the  need  to  improve 
the  opacity  f  /rmulations  used  by  the  above-mentioned  codes.  The  MOTET 
and  HECTIC  codes  formerly  had  to  use  hand-computed  fits  to  the  opacities; 
it  is  now  possible  for  tnem  to  use  a  data  tape  containing  "grey"  opacities. 
This  tape  contains  data  for  over  30  different  materials. 

Techniques  for  efficient  transfer  of  opacity  data  have  been  extensively 
developed  and  have  been  used  to  transfer  such  data  between  Los  Alamos 
Scientific  Laboratory,  Gulf  General  Atomic,  Air  Force  Weapons  Laboratory, 
and  the  Defense  Atomic  Support  Agency  Information  and  Analysis  Center 
(DASIAC).  DASIAC  has  been  supplied  with  a  full  set  of  the  opacity  data 

generated  at  Gulf  General  Atomic. 

Descriptions  of  the  numerous  codes  used  to  transfer  information  to 
DASIAC  and  other  installations  have  been  included  in  this  volume.  (The 
code  listings  and  a  discussion  of  the  data  formats  are  included.  ) 

Extensive  summaries  of  the  opacity  data  computed  using  the 
DIAPHANOUS  code  were  prepared  using  codes  described  in  this  volume. 
These  summaries  are  presented  in  a  separate  report  (Ref.  1). 

The  EIONX  code  (used  for  SPUTTER  and  HECTIC  equation-of- state 
data)  requires  ionization  potentials  for  the  elements  in  the  material  under 
study.  AUGEAS,  a  DIAPHANOUS  input  generator,  also  requires  this  data. 
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The  MARIER,  HELAS,  and  HELIKE  codes  were  written  to  help  satisfy 
this  need.  (This  part  of  the  continuing  research  effort  has  not  yet  been 
concluded.  / 

In  this  program  Gulf  General  Atomic  has  used  opacity  data  generated 
at  Los  Alamos  Scientific  Laboratory.  Several  codes  had  to  be  written 
before  these  data  could  be  used  by  the  SPUTTER  code.  These  codes 
(ANDIMX  and  COMBO)  are  described  in  this  volume. 
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SECTION  II 

DISCUSSION  OF  THERMODYNAMIC  AND  OPACITY  PLOTS  AND 
DIAPHANOUS  DATA  TABULATIONS 


The  plots  and  tabulations  reported  in  reference  1  are  of  the  thermo 
dynamic  and  opacity  data  calculated  by  using  the  DIAPHANOUS  code.  In 
most  respects  the  DIAPHANOUS  code  is  similar  to  the  one  discussed  in 
references  2  and  3.  A  few  minor  modifications  and  program  corrections 
have  be  'n  made,  which  will  be  discussed  in  greater  detail  in  a  series  of 
follow-on  volumes  to  the  report  of  reference  2.  The  follow-on  reports 
w'ill  also  present  the  absorption  coefficient  plots  as  a  function  of  frequenc 
for  the  thermodynamic  properties  of  materials  presented  in  reference  1. 

The  data  presented  are  consistent  with  a  model  of  a  monatomic 
ionizing  gas.  Other  assumptions  made  are  discussed  (Ref.  2). 

The  elements  for  which  data  are  presented  (Ref  1)  are: 


Material  No. 

Material 

1 

Hydrogen 

2 

Helium 

4 

Be  ryllium 

6 

Ca  rbon 

10 

Neon 

13 

Aluminum 

18 

Argon 

26 

Iron 

29 

Copper 

(The  material  number  is  the  atomic  number.  ) 
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The  (composite)  multi- element  material! 

Material  No. 

Material 

iOi 

Polyethylene 

102 

Air 

103 

T  eflon 

105 

Wet  Tuff 

106 

Refrasil 

108 

Lithium  Hydride 

111 

H  -  M  -  X 

119 

Grout 

124 

Playa 

129 

Average  Shale 

131 

Average  Limestone 

134 

Granite 

136 

Wet  Alluvium 

138 

Sea  Water 

These  material  numbers  are  the  same  as  those  the  SPUTTER 
subroutine  EIONX  uses  in  calculating  the  thermodynamic  properties  of  an 
ionized  gas.  The  compositions  used  by  both  DIAPHANOUS  and  EIONX  are 
presented  in  tables  I  and  II. 

SPUTTER  Material  Numbers  (as  used  by  EIONX) 

Material  No.  Material 


101 

Polyethylene 

102 

Air 

103 

Teflon 

104 

Nylon-Phenolic  A 

105 

Wet  Tuff 

106 

Refrasil 

107 

Phenolic  A 

108 

Lithium  Hydride 
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Material  No. 

Mate  rial 

109 

Salt 

110 

Magnalium 

111 

H  -  M  -  X 

112 

Refrasil  B 

113 

Phenolic  B 

114 

Refrasil  C 

115 

Carbon- Phenolic  (R.  Schlaug  A) 

116 

Card  Input  Material  1 

117 

Card  Input  Material  2 

118 

Card  Input  Material  3 

119 

Roy  Pauls  Grout 

120 

Playa  (R.  T.  Whittaker  -  AFWL) 

121 

Carbon- Phenolic  (Mosen-Hays) 

122 

Refrasil-Phenolic  (Mosen-Hays) 

123 

Lithium  Deuteride 

124 

QPlaya- Calcium 

125 

DIAPHANOUS  Air  with  Argon  (R.  T.  Walsh) 

126 

Average  Crust 

127 

Average  Wood 

128 

Average  Igneous  Rock 

129 

Average  Shale 

130 

Average  Sandstone 

131 

Average  Limestone 

132 

Average  Sediment 

133 

N.  T.  Soil  (Ref.  AFWL-TR-65- 171.  1966) 

134 

Granite  (Mem.  97,  Am.  G^ophys. 

Soc.  ,  Table  1.  1) 

135 

Hi  Temp  Epoxy- Novalac  (Dow  Chem.  Co.) 

136 

Wet  Alluvium  (Ref.  DuPont  DP-1055) 
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Material  No.  Material 

137  Dry  Alluvium  (Ref.  -  Hugoniot 

Data  from  Sandia,  SC-4903  (RR)) 

138  Sea  Water  (Handbook  of  Chemistry  and 

Physics,  Chemical  Rubber  Co.  ,  45th  ed. 
p.  F82) 

139  Lubri  Seal,  "HI  Vacuum"  (Source:  A.  H. 

Thomas  Co.  ,  Philadelphia,  Penn.) 
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Note  that  the  compositions  listed  are  not  always  identical.  However, 
they  are  enough  alike,  in  light  of  other  concurrent  approximations  in  the 
radiation-transport  hydrodynamics  codes,  for  the  user  to  consider  the 
opacity  data  (provided  by  DIAPHANOUS  to  SPUTTER)  to  be  for  the  same 
material  as  the  thermodynamic  data  (provided  by  EIONX  to  SPUTTER), 
when  the  same  number  is  used  as  (1)  the  equation-of- state  material  number, 
specifier,  and  (2)  the  opacity  material  number  specifiers  in  SPUTTER  input. 

DIAPHANOUS  runs  for  a  given  material  are  usually  done  in  two  sets, 
a  low-temperature  set  and  a  high- temperature  set.  It  is  now  standard 
practice  to  run  the  temperatures  1,  1.  5,  2.  25,  3.  4,  5.  ,  7.  ,  10.  ,  15.  , 

22.  5,  and  34.  eV  as  the  low- temperature  set.  Graphs  made  from  such  runs 
have  the  material  name  followed  by  /  LO  in  their  upper  titles.  Similarly, 
the  standard  high-temperature  set  comprises  50.  ,  70.  ,  100.  ,  225.  ,  340.  , 
500.  ,  700.  ,  1000.  ,  and  2250.  eV.  Occasionally,  more  temperature  values 
are  added  (3400.  ,  5000.  ,  and  10,  000.  eV).  These  graphs  have  the  material 
name  followed  by  /HI  in  the  upper  title.  In  any  case,  the  graphs  plotted  at 
a  constant  temperature  on  any  given  curve  have  a  list  of  these  temperatures 
(with  their  respective  plotting  symbol)  just  below  the  upper  title.  In  addition, 
various  dates,  tape  numbers,  and  other  data  are  recorded  in  the  plot  titles 
for  historical  background. 

The  two  independent  variables  in  DIAPHANOUS  runs  are  temperature, 

0  (in  eV),  and  T,  a  dimensionless  "electron  degeneracy  parameter," 

o/o  ft  ,3/2 
r  =  2(2tt  m  9) 

h3Ne 

where  Ne  is  the  number  density  of  free  electrons,  m  is  the  electron  mass, 
and  h  is  Planck's  constant,  and 

(M°/N  ) 

where  p  is  the  dersity  in  gm/cc,  Z  is  the  mean  ionization  (i.e.  ,  mean  ion 
charge),  Nf3  is  the  mean  atomic  weight,  and  N  is  Avogadro's  number  of 

®  3. 
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molecules  per  mole.  Thus  (M  /N  )  is  the  mean  mass  per  molecule. 

a 

Then  T  is  seen  to  be  inversely  proportional  to  both  p  and  Z: 


2(2it  rn  6)3/2(M°/N  ) 
_ a 

h?  p  Z 


=  c 


5  (0.  01 


e3'2]? 


>/<pZ> 


T  is  a  natural  variable  for  the  DIAPHANOUS  code;  however,  it  is  an  incon¬ 
venient  variable  for  intuitive  physical  reasoning  since  T  =  T[0,  p,  Z  (G ,  p ) ] 
for  a  given  material.  For  this  reason,  most  of  the  plots  have  been  done  for 
the  several  dependent  variables  on  curves  of  constant  temperature.  For 
completeness,  some  plots  at  constant  T  have  been  included  for  each 
material.  The  graphs  at  constant  F  have  a  list  of  the  T  values,  along  with 
the  respective  plotting  symbol,  just  below  the  upper  title. 

For  any  given  material,  the  plots  are  usually  in  two  sets,  a  /  LO  set 
and  a  /HI  set.  Within  a  given  set,  a  group  of  plots  with  curver  at  constant 
temperature  are  followed  by  a  group  of  plots  with  curves  at  constant  T. 

The  y-axis  labels  are  complete  and  self-explanatory  with  the  exception  of 
the  quantity  EGAM  which  is  defined  as 

EGAM  *  1  +  P/pE 

where  P  is  the  pressure  in  dynes/cm^,  p  is  the  density  in  gm/cc,  and  E 
is  the  specific  internal  energy  in  ergs/gm  so  EGAM  is  dimensionless.  (The 
quantities  p  and  E  are  the  same  quantities  used  in  the  other  graphs  and 
tabular  data.  P  is  in  units  of  bars  in  the  other  graphs  and  in  the  tabular 
data.  ) 

The  plots  are  arranged  in  order  of  increasing  material  number. 

Refer  to  reference  1  for  further  information  on  the  codes  used. 


10 


AFWL-TR-67  -131,  Vol  IV 


The  plots  were  produced  by  the  following  sequence  of  computer  runs: 

a.  DYPER4  was  run  to  produce  plots  of  the  absorption  coefficient 

as  a  function  of  frequency  and  to  punch  summary  cards  of  thermo¬ 
dynamic  and  opacity  data. 

b.  GRAPH  and  TRANS  were  run  using  the  above  summary  cards  as 
input.  Plot  tapes  were  prepared  for  the  SC-4020  plotter. 

The  tabulations  following  the  plots  were  produced  by  the  DLISTR 
program  from  the  summary  cards. 

INTRODUCTION  TO  DISCUSSION  OF  MATERIAL  PROPERTIES 
SUBROUTINES  AND  DATA  PROCESSING  CODES 

The  following  code  descriptions  are  of  some  of  the  computer  programs 
developed  for  and  used  in  the  material  property  calculations  performed  for 
this  contract. 

The  codes  discussed  fall  into  two  overlapping  categories: 

1.  Codes  used  to  generate  the  tabular  or  graphical  data  presented 
in  reference  1.  These  include: 

GOLEM,  AIRMOL,  DYPER4,  GRAPH,  TRANS,  HELIKE,  HELAS, 

LEVELS,  TEDIUS,  MARIER,  MARIE,  DLISTR,  GREYS,  and  EGREY. 

2.  Codes  that  have  been  used  in  transferring  opacity  data  from 
one  installation  to  another.  These  codes  have  been  used  to 
process  data  from  LASL,  to  supply  data  to  AFWL,  and  most 
recently,  to  create  sizeable  quantities  of  stored  opacity  data  at 
the  DASA  Information  and  Analysis  Center  (DASIAC)  in  Sarta 
Barbara,  California.  These  include: 

DENSER,  DASE,  DAPHNE,  ANDIMX,  COMBO, 

DIANE,  DIANTC,  DIANCT,  DYPDIN,  GREYS, 

EGREY,  REDGRE,  DLISTR,  LEVELS,  TEDIUS, 

EDSILV,  DYPER4 ,  GRAPH,  and  TRANS. 

Some  applications  of  the  codes  discussed  in  this  volume  are  given 
in  reference  1. 
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SECTION  III 

EQUATION- OF -STATE  DATA  AND  CODES 


A  description  of  the  physics  and  programming  techniques  used  in 
the  SPUTTER/HECTIC  molecular  air  equation-of- state  subroutine 
AIRMOL,  and  a  description  of  several  codes  used  to  generate  needed 
ionization  potentials  for  the  EIONX  subroutine  is  presented  in  this 
section. 

Several  accessory  codes  (such  as  GOLEM)  are  also  described. 

AIRMOL:  A  MOLECULAR  EQUATION- OF  -  ST  ATE  SUBROUTINE 
FOR  AIR 

The  computer  subroutine  AIRMOL  develops  a  molecular  equation- 
of- state  for  air  in  thermodynamic  equilibrium  from  room  temperature  to 
25,  000°K  over  a  density  range  of  10  gm / cc  to  10  ^  gm/cc.  Enthalpies 
and  free  energies  are  obtained  from  analytic  fits  of  tabulated  data. 

The  system  composition  is  derived  from  conservation  relations  and 
reaction  equations.  The  thermodynamic  variables  E,  P,  (OE/OQ)^, 
(3E/8t)^,  (3P/30)^,  and  N  are  the  final  output  of  the  code.  These 
are  transferred  to  the  EIONX  code,  which  calculates  all  translation 
and  ionization  quantities.  These  two  subroutines  are  used  in  the  SPUTTER 
code,  which  is  a  general  purpose  one -dimensional  radiation  and  fluid 
mechanics  program. 


12 


AFWL-TR-67-131,  Vol  IV 


» 


bObHOUT  INt  AlHMoLt  THtl A.  TAU.KEbILR) 
C 
C 

C  OLOSbAKY  ►OH  A 1KMOL 

C 


C 

C 

• 

UtUTAO  bA*t  Ab  CAHbNZIJ) 

• 

C 

• 

OEOTmI  SAv.t  Ab  CAIIUNZ14) 

c 

• 

OPOTAU  bAwt  Ab  CAHdNlIb) 

C 

• 

0P01MI  SA^L  Ab  CAHjfJ/lo) 

C 

# 

EOlb  bAML  Ab  CAHUN^ll) 

C 

c 

• 

NbAH  bANL  Ab  t ION  117) 

» 

c 

c 

Alb) 

POLYNOMIAL  COtK lClfc.NI  K  OH  ENTHAI.PY  • 

C 

A 1 

XHtKN*H|lO.  IMt  fUlAC  NUMdtH  OK  N  AlOMb  I1N  vOLE/CC )  Al 

C 

ANT  ItMPtKAIUIIt  A,lO  PKtbSUHE. 

C 

als>t 

2.*Ebt 

C 

bib) 

POLYNOMIAL  CUtKlCltNt  KOR  ENTHALPY. 

C 

UAKKIb) 

INTEOHAI  ION  CONblANT  KOR  FREE  tNEHliY  IK  ENTHALPY 

IS 

c 

POLYNOMIAL 

c 

OAHKElb) 

INTEOHA 1  ION  CONblANT  KOR  KREE  tNEHliY  IK  tNTMALPY 

lb 

c 

S/2HI 

c 

Clb) 

POLYNOMIAL  COKKlCitNT  KOR  tNTMALPY. 

L 

CON  lb) 

CONCtN (RA 1 1 ON •  MOLtb/CC. 

C 

L)  1  b ) 

POLYNOMIAL  COtKlCltNl  KOR  ENf HALPY • 

C 

01 

bORT  I  CON  1  'nt )  I 

C 

OCOTtb) 

0IC0N(I))/U1 

C 

OCOTAOlb) 

0IC0NI1) ) / 0 1 A  U 

C 

uturib) 

DIESPtU!ll)  )/UI 

C 

OtOTAO 

oitoib)/in  al 

C 

OtOIS 

1)1  tOlb)  /O  1 

C 

OtOlHl 

0  1  tOIb )  /  I)  IMt  1  A 

c 

OtLHtbl 

tNTMALPY  AT  ONt  AIMOSPMEHE.  ^EHO  OtGREtb  KELVIN. 

*MtAI 

c 

OK  FORMATION  AY  HtKtRtNCE  STATt*.  C ALOHIt/MOLE. 

c 

OOOT  1 0 » 

OIK  KtNKO 1 I ) ) /0 1 . 

c 

okpiot 

0IKP1I/0T 

c 

0KP2UI 

0  IKI’2 )  /OT 

c 

okpjut 

OIKPJI/UT 

c 

L)NL)T 

0 1 NH AH ) /OT 

r 

DNOM 

OtNOMlNATOR  111  OtltRMINANT  E BOATS.  KOR  OICONIID/OT 

t 

ANO  OICONI 1 ) ) /Ol AO 

c 

OPOT  AO 

DIPRtbHRI/OIAO  =  -PRtbMR/NBAR*OINbAR)/OTAO 

* 


13 


r  rt  n  r.  r.  r  r.  n  r  n  r  r:  r  n 


AFWL-TR  -67-131,  Vol  IV 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

l 

l 

l 

c 

c 


UPUfHl 

tie) 

tl 

tuis 

LNtH&r 

tSPtCZIb) 

tSI 

LI 

FI 

FNtNNGIbl 

HSPtCZIbl 

KP1 

KP2 

KI'J 

MANK 


Hume  f  (oi 

NdAN 

NlftK 

NUN0H1 

OLIJX ( bl 

PHI 

HO 

PHtSHH 

HMU 

MH1*NH2 

HH.1-S 

HTKtL 

H2IKtL 

H  T2 

SCUb 

set 

SUI 
SU  I  Au 

snc 

snutau 

SUMCON 

SUMNHG 

TAU 

1  Ht  I  A 

I  KtL 

IKtLN 

THM1 

IHM2 

VV 

VI* V2*VJ 
•  THtF 


-PhtSMK  «  u«r<«AK)/UT  *IUT/DTHEIA»/N«AK  .  UP/DTHETA 
■llHOUl  H/fMtIA  Itl'V 

polynomial  cotFicitNi  foh  enthalpy. 

2*H2  I  RtL/M'2 

tIJtHOT  “ J/2*PH1 •  I 1/NOAH I  *THE  1 A  •  TOTAL  SPtCIFIC  ENERGY 

nut  ro  oissoeiAf ion. 

TOlAL  SPtCIFIC  tNtNGY*  EHG/GM 

1NILHNAL  tNtNGY  A I  TKtL*  ONE  AlMOSPHENt.  CAL/HOLE 
tSUMATt  AT  HATiO  CON I  NO I /CON  I  N2  I  tIEFOHt  ITERATION  STANI 
TOlAL  UlMtNSlONLtSS  tNtHGY.  L/NI 
1  ♦  CON  I  NO)  /Kl' J«H2 1  KtL 

IFHtt  tl.tHGT  AT  lKbL)/IR*TKEL> *  DIMENSIONLESS 
tNlllALPT  A I  IKtL*  ONE  ATMOSPHERE*  CAL. /MOLE 
E.UU1L1UR1UM  COUSIANI  IN  PHESSURt  UNITS  FOR  N2=2N 

tool l Ionium  consiant  in  pressure  units  fon  02=20 

bdUlL IbH 1UM  CONSIANT  IN  PHtSSURt  UNITS  FON  N*0=N0 

CALLING  PAH AMt  TtN 

-  iNCLUUt  tLtCTMONIC  EXCITATION  FON  ATOMS 
♦  NO  ELECTRONIC  t  AC 1 T  A  I  1 ON  FOH  ATOMS 
0  LIRt  ♦*  ALSO  PRINTOUI  UtbUG  UUANTlTltS  IN  A1HM0L 
MOLt  FHACUON 

MtAN  NUMUtH  OF  AlOMS  PtH  MOLtCULE  FOP  GAS  MIXTURE 
HtHAIlON  COUNTtN 

0  IF  tNTHALPY/RT  IS  CONSTANT  FON  ATOMS*  1  IF  ENTHALMT/HI 
IS  POL TNOF.J  AL 

CONCtNlllAT  ION  OF  PNfVlOUS  I  TtNAT  ION 

9.64VtU/»THtF 

TOTAL  PHtSSURt*  AIMOSPHENES 

TOTAL  PHtSSUNt*  UTNt/CM* *2 

UtNSlIT*  GM/CC 

NIGHT  HAND  Slut  OF  Ut I tHMINANT  tOUATS.  FOR  DICONC 1 1 /DIAU 
H1GHI  IIANU  Slut  OF  UEItRMlNANT  tOUATS.  FON  OICONlll/DI 
N*  1  KtL  *  H  =  l.<*b/2b  CAL/MOLE/DEG 
N  •  1  KtL  *  H=02.Ub4  CC»  A  I  M/MOLE/DtG 
N2TKtL«»2 

SUM  OF  U<tSPttZlll|/Ul  •  CONIH 
SUM  OF  U I  CON  1 1  )  I  /U1  •  tSPtCZIl) 

SUM  OF  UICONI II »  All 
SUM  OF  UICONI II l/UIAU 

TOlAL  NUMUtH  OF  A I OM  PtR  CC .  SUM  OF  Nlil*CONIll*  WMtHt 
Nil  I  IS  A  I OM/MOLtCULt 

SUM  OF  N  I  II  *111  CON  1 1 1  I  /UT  A(J.  N  (1  I  =A1  OM/MOLtCULE 
SUM  OF  ALL  COM  11.  MOLt/CC 

TOTAL  tNtNGT*  CAL/CC.  SUM  OF  CONI  1 1  *ESPtCZU  > 

SPtClFlC  VOLUMt*  CC./GM. 

TtMPtHAUlNL*  tV. 

TtHPtN A I UNL.  UtGNttS  KtL V  IN 
ALOGI I KtL I  NATUNAL  LOG 
KP1/K2IML 
A 1 “CON I NO I 

XHLFOfNIIO.  THt  IOIAL  NUMMtR  OF  0  ATOMS  I  IN  MOLE/CC)  Al 
ANY  ltMPtHAIUHt 

CHANGE  IN  IFNtt  tlltHGT/NTI  FOH  REACTIONS  N2=2N.  02=20* 

AND  N*0=NO  NLSPtC 1 1 VtLY 

ATOMIC  AtlGHI  OF  AIR  AT  STP*  AttOUT  14.SS  GM/MOLE 
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XKtK  a 

ROLL 

HImC 1  ION 

OK 

A 

ATORb/MtAN 

ATOMIC 

UtlOMT 

AT 

STP 

XKtK  0 

KOLC 

K  MAC  1  ION 

OK 

U 

ATORS/REAN 

ATOMIC 

WLIOHT 

AT 

STP 

XKtHl 

MOLL 

l-HAC  1  ION 

OK 

N 

ATORb/MEAN 

ATOMIC 

WtlbMT 

AT 

bTR 

c 

c 

c 


LOMMON/LMb/E10Ul20l 
tUUlVALtNLt  I NHAK « LION 1 1  / 1  I 
LOKMUN/LMbO/LAHbU2llO) 

U 1  Ktl.b ION  A1KI1UI 

LOU  1  WALk.NCt)  A  IK  1 1 1  .LAKHNZIl)  ) 

tJUlVALtNLt  IA1H11I*  tU  1  b )  *  l  A 1H I  3 )  *  DEUTAU)  *  l  A  IK  1 4  I • OEOTHT > . 

'  lAlKlb)  *UI'OTAU)  •  IAIKI6)  *URDTMI  ) 

UIRLNblON  Alb) •  bib) i  Lib)*  UI6I*  tlb)*  BAKMbl*  HAKK2I6) •  COO  lb) 
•  *ULLHIb) .0LUXI6) .KHtNNOtb) *HbREL2tbl .EbHlL2(6) .MOFRCHb) 

ulRLNblON  UCOTlb).  OCOTAUIb) •  UL0II6).  OGOT(b) 

XtAL  xHl*  KR2 *  KP3*  MOKPCI*  NHAK 

UA  I  A  XKtKN*  XMtKO*  XKtK A/b . 3929t-2 *  1.44/6E-2.  3.237E-4/ 

UAIA  ft  I  KtK / 14  •  bb/  *  AIM  I  b  I  /  0  .  /  *  K'Ml /O  .  b3t  10/ 

uA I A  A/J. 30032*  3.4b7b4,  3.u29bb*  2.b439b>  2.6X91M*  2.49716/ 

UAIA  b/3.2bb91t-4 ,  3.3369lt-4*  2.3919bE-4*  -  7.03?bbt-h*  - 
•b./bbUbt-b*  2.0b9b0t-b/ 

UAIA  L/-4.4Jbb9t-0*  -  3.2blb4t-B*  -  2.bb34bt-A»  2.10493E-B* 
*1.162Jbt-b*  -  2.9U2bBt-10/ 

UAIA  U/2.04212t-12*  l./b«42t-12*  1.4bbl2t-12*  -  1 .23648E-12*  - 
•b.49b9bt-13*  -  2.16444t-lb/ 

UAIA  t/-b«bl01/E-17*  -  3.4bl29E-l?*  -  2.bb53bE-l7*  2.27227E-17* 
•1.2b236t-l7*  l.lbJ2bt“lB/ 

UAIA  UtLH/0.«  U.*  2147b. b*  U2b79,b*  589bb.b*  0./ 

UAIA  OANK/3. 47421*  4.6316b*  4.44bU7*  3.99389*  4.12669*  4.37650/ 
UAIA  UAMK2/1.*  1.*  1.*  4.4M4b2*  b.2b367*  4.37217/ 

UAIA  tML)-/2.b99tll/ 


A1HM  30 

A1MM  60 
AImM  70 
A1PM  00 

A1RM  100 
A1RM  no 
A 1MM  120 
A1MM  130 
AIRM  140 
AIMM  lbO 
AIRM  lbO 
AIRM  170 
AIRM  ISO 
AIRM  190 
AIRM  200 
AlKM  210 


MAKKZK  tb  ItR* • b 


TKtL  =  1 lbOb.4*  THETA  AIRM  220 
KHU  =  1 .  /  I  All  A1RM  230 
H TKtL  =  1.9b72b*lKEL  A1RM  240 
K2IKtL  =  02.0b4*TKEL  A 1  KM  2b0 
M ) 2  =  R2TKEL**2  A 1RM  260 
IKLLN  =  ALOGITKtL)  AIRM  270 


UO  J  1  :  l*b 
UCUII1)  =  0. 
LON l 11=0. 

9  ULU I AU 111  =  0. 
RMtSMM  =  0. 
bUR.NHb  =  0. 
tNtMOT  =  0. 

HO  =  0. 
li  =  0. 

UtUTAU  =  0. 
UHUTHI  =  0. 
URUTAU  =  U. 
ULUTHT  =  0. 

KR1  =  0. 
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KR2  -  U. 

KRJ  :  0. 

IF  I  I KLL  .LI.  2bUUU •  )  00  TO  1 
E01S  =  2.699E11  -  tHEF 

NOAH  S  1. 

O0  <0  1UU0 

1  COtlllNUL 

IF  (KMO  .LI.  1U.1)  00  10  2 
AlKtb)  S  Vb.UUUI 
htIUKN 

2  CON 11 HUE 
C 

C  COMMUTE  ENTHALI’Y  *  FREE  ENERGY  •  ANL)  DtOU  1  I  i  AND  OGDUl) 

C 

L=J 

IF'  (HmKK  .LT.  U)  L=b 
10  COUUNUE 

UU  lb  i  :  It  L 

HbKEC/U)  =  KTKEL*  (All)  ♦  IKEL*IH(I)  ♦  TK£L*(C(1>  ♦  TKEL*(0(I>  ♦ 

•  TKEL*E I1IIIH  ♦  DELHI  1  > 

OLD  III)  S  HbPCC/l I I/1KEL  ♦  1.9B72o*t-l.  ♦  TKEL*  (BUI  ♦  TK£L*(2.*C 

•  1)  ♦  lKEL*(.i.*Ul  l  >  ♦  IKEL*  I4.*E  I  1))  )  ))) 

FKENKOU)  =  A 1 1 )  *  1 1  <  -  lKtLU)  -  (RAKKIi)  ♦  TKEL*IBU)  ♦  TKEL*(C(1 

•  /2.  ♦  IKEL*  (01 1  1/3.  ♦  lKEL*E(l>/4.)>)>  ♦  DELHI  1 ) /KTKEL 
lb  UOUI 1 1 )=-( A  I  1 ) / TKEL  *UI II*IK£L*(C I D*TKEL*IDI 1 )*TKEL*Et 1 ) ) ) 

•  ♦ DELHI  1 )  / (HIKEL* IKEL) ) 

IF  IMAKK  .LI.  0>  00  TO  2U 
DO  2b  1  =  4#  6 
HbF'EC/ 1 1 1  =2.b*H  IKEL+UELM  I ) 

UEUTtl)  =  l.b*l. 9672b 

FKENHOI 1 1  =  2.b*(l.  -  IKELN)  -  UAHK2 I  1 )  ♦  DELH 1 1 > /KTKEL 
2b  UGUIIDS-  (2«b+UELH(  1 1  /  KTKEL)  /TKEL 
20  CONTINUE 
C 

C  AKOON  C0NCENIKAT10N. 

C 

CONIb)  S  XKEF  A*KMO  A1RM  b90 

Ml  I  EH  =  1  A1RM  b90 

IF  (TKEL  -  1200.  .Gl.  -l.E-30)  oO  TO  60 
C 

C  LO*  lEMHtKAIUKE  APPROXIMATION, 

t 

CON  1 1 )  =2  .  bVbb£-2  *KMO 
CONI  2 ) 57 .2379E"3*HHU 

OEUTHI  X  TAU*(UEUT(ll*COU(l)  ♦  UEDT (2) *C0NI2)  ♦  UEDT 1 6) *CON (6> ) * 

1  4.1B4E7*llbUb.4  -  l.b*PHI/I.99 

00  TO  70  A1RM  b60 

C 

C  CALCULATE  COHCtNlHAT ION  BY  1TEKAT1 V£  METHOD. 

C 

bU  CONTINUE  A 1KM  670 

C 

C  EQUILIBRIUM  CONblANTb. 

C 

VI  s  2.*FKENKG(4)  -  FHENKGt 1 I  AlKM  b30 


A1HM  3H0 
A  HIM  390 
A1RM  4U0 
A1RM  410 
(AlKM  420 
A 1RM  430 
IA1RM  440 
A1RM  450 


A1RM  400 

A1RM  bOO 
A1RM  blO 

AlKM  b20 
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KP1  =  LAF-I-Vll 

V2  =  2.»FI<LNK&ISl  -  F'NLNKG  l  2  1 
KP2  2  LXP1-V2) 

V3  =  FHLNKGI4)  ♦  FHlNHGISI  -  FHENRGI  3) 

KPJ  -  LXPI-V3) 

CALCULA  It  C0NIN2)  OT  ASSURING  CON t NO ) /CONI N2 )  sEST 

LSI  S  .U1 
IHM1  =  KP1/H2TKLL 
A1  =  XKLFN*RHO 
VV  =  XKCF  0*HH0 
tl  =  2.*K2TKLL/KP2 
300  CONllNUL 


A1KM  S40 
AIRM  SSO 
AIRM  Sf>0 
AIRM  S/0 
AIRM  SHO 


AIRM  bHO 
AIRM  /UO 
AIRM  710 
AIRM  720 
A1HM  7J0 
AIRM  740 


AF'TCH  FIRST  PASS*  USt  OLU  VALUt  OH  CONtNO)  IN  EQUATION 
KOH  C0NIN2) 


IF  INI  ILK  .NL.  1) 

•  v»0  10  32  S 
ALSl  S  2.  ♦  LSI 

U1  =  »A1/ (SQH  I  (IKMl )  ♦  SWKT  ( ALST  )  *SQKT  I  TRM1/AEST  ♦  4.M1II 

GO  10  330 
32S  CONllUUL 

THM2  =  A1  -  CON ( 3 ) 

IF  ( THM2  ,UT.  0.) 

•  TIIM2  S  U. 

U1  =  2  •  *  (  A 1  >  CONI  3)  )/(SUKI  I1RM1)  ♦  SQRTUKM1  ♦  b.*TRM2>> 


A  HIM  7S0 
A 1HM  7hO 
A1RM  770 
AIRM  780 
* 1RM  740 
A  1 KM  800 
A1RM  blO 
AIRM  820 

airm  jo 

AIRM  b40 


330  CONI  1 )  =  Ul**2  AIFiM  bSO 

CON  I N I 

CON  1 4 )  S  SQHT (KP1 ) *SUR I  ICON I 1 I/R2TKEL)  »1RM  bbO 

FI  :  1*  ♦  C0N|4)/KP3*R21KLL  A1MM  870 

CON  1 0 ) 

CONIS)  =  2.*VV/(H  ♦  SUKT (F 1M2  ♦  4.*E1*VV)I  AIRM  880 

CON  1 02  I 

CON  1 2  I  =  CONI  S)**2/XP2*H2IKtL  AIRM  B^O 

CON  I NO) 

C0NI3I  S  C0NI4)*C0NIS)*K2I*LL/KPJ  »1HM  900 

70  CONUNUL  AIRM  910 

SUMCON  =  0.  *1HM  920 

UO  1U  J  :  1*  fa  AIRM  930 

30  SUMCON  =  SUMCON  ♦  CON(U)  AIRM  940 


MOLE  FKACT IONS 
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00  Jb  d  =  1*  b 
Jb  MOFHCI(J)  r  CON ( J) /SUVCCM 
IF  (MAHK  .Nt.  U)  00  TO  2JS 
/b  UHl ft  (b#  210) MOFKC l *  Nil tH 
210  F0HMA1  l  lbMUMOFHC  Mill  Ml  ftH .  lHbt 12 .  b .  1  b ) 
■  HlTt  (6*  220 ) CON 

220  F0HMA1  (/M  C0N(1)  #10X#lF6E12.b) 

■Hilt  (b#  2 JO ) SUMCON 
2 JO  FORMAT  ( /M  SUMCON# lPbtl 2. b) 

2Jb  CONTINUt 


FOH  LOW  TLMF’tRA I  UHL*  NO  ITERATIONS 

IF  MALL  .LT.  1200.) 

•  00  10  110 
IF  (MTtH  .EO.  1) 

'  00  10  J1IJ 


ItST  FOH  CONVF  KOLNCE 

TEST  Z  AUS(0LL)X(1)  -  COM  1 1  ) /OLOX ( 1 ) *  100 . 
IF  ULS1  •  L  ( .  .1) 

*  oO  10  110 


TtST  IF  DERATION  L1M1  f  EXCEEOEL) 

IF  (Ml  ILK  .(it.  10) 

•  00  10  120 
J10  00  J14  1  =  1#  o 
J14  OLOX ( | )  =  CON ( 1 ) 

NlltH  =  NITER  ♦  1 

DtHAIt 

00  10  JOO 

120  AlR(b)  Z  lb. 0120 
HE  I OHN 
110  CONllNOt 

THtHMO.  RHOMtHTltS  OF  MIXTURE 

SNC  =  2. * (CONI  1 )  F  LON ( 2 )  ♦  CONI J) )  4  C0N14)  ♦  CON<b>  ♦  C0N(6) 
HHtSMH  Z  0. J14 /t /*TKtL*SUM(  >N 
NUMH  Z  SNL/SUMCON 
00  200  1  =  It  b 

LSFtC2 ( 1 )  =  HSHLC2U)  -  HTAtL 
C2  =  t2  ♦  MOFRCT  ( 1 )  •tSF’tC2  ( 1 )  /H 1 KEL 
200  SUMNHO  =  SUMNRO  ♦  C0N(1> »tSRtC2 U ) 

LNtHOT  =  TAU*SUMNKG*4.1b4E4 / 

EU1S  =  ENERGY  -  1  .b*RFtl*  TFtt  T  A/NUAR-EREF 
F*0  =  R2IKtL*SUMC0N 

•••NER1VA11VES  OF  CONCENTRATIONS  ••• 

IF  1  TAEL  .LT.  1200.)  00  TO  1000 


A1RM  4b0 
A 1RM  460 

A1RM  470 
A 1RM  4F0 
A1RM  440 

A 1RM1010 
A1RM1020 


AIRMIOJO 

A1RM1U40 

A1RM10S0 

AIRMlObO 


A1RM1070 
A IHM1080 
A1RM1040 


A IRM 1100 
A 1 RM 1110 
A 1HM1 120 
A1RM1130 
A1RM1140 


A IRM 1  ISO 


A1KM11H0 


A1KMU40 
A1RM1200 
A 1KM1210 
A IRM 1 240 
A1RM1250 
A 1RM1260 
A1RM1270 


A1KM1240 

A1RM1J00 

A1RM1J20 
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tUUlLlUKlCW  LOIJblANTS  UEKlVATlVtb 

UV1UI=  -2  •  *L)Gl)  1(h)  ♦  UOJIll) 

Ui/2  M  =  -2.*L>OUMb)»UOUl  U) 

UV3UI=  -tuOOl  (4IALMjL)nb))AU0UTt3) 

OKI'IU  I  S  KHl»UVlL)l 
0Kt'2UI  =  NF2«L)V2dl 
lMH3ul  =  Kt-^imui 

HlOMI  MANU  blOE  OK  Otl.  EOUATbt  hOH  CONCENTRATION'S 
UEKIVAI IVES 

HH1  =  -XHEKN*HH0««2 

KH2  =  -XHEKO*HHO**2 

Ht  J  =  CON(  1  )  «L>KH1L)T  ••  «2.Ub4*C0Nli«)**2 

KM*'  =  COU(2)*UKK2uT  -  «2.0b4*CONl5)*»2 

RHb  =  CON(3)*UKR3uT  -  02.Ub4*CONt4)«CON(b) 

CONCEN I KA I IONS  UEKIVAI IVES 

XX  =  00N14)*U2IKLL 
YY  =  LONtb)*R2lKEL 
22  =  4.*XX/lU'l  ♦  1. 

UL)  =  YT  ♦  KH3A22 
A'  =  2./tKI'2*22) 

UU1  =  KM4  -  KI’2/KHI*HH3 

EE1  =  KHb  ♦  2. •KHJ/KH1*RH3 

UL)2  =  .b*KR2«(HH2  -  UH1 ) 
tt2  =  KR3«RH1 

Abb  S  XX  ♦  ( 2 «  *  Y  Y  ♦  .b«KH2)*UU*WW 
Abb  Z  ttl  ♦  »I**UU1»UU 

dbb  =  tE2  ♦  mm*UU2«UU 

UCUT(b)  =  Abb'Abb 

UCU T  1 4 1  S  WW«(  (C..YY  ♦  .b*KI'2>  *UtOTlb)  -  UUl) 

UCUUJ)  =  2  •  •RHJ/KF1  -  22*ULUT  (4  ) 

UCU  1(2)  =  -.t*IUCuU3)  ♦  ULul (b) ) 

UCUIU)  =  -.b««UtOT(b)  *  ULUM4)) 

UCUlAU(b)  =  ubb/Abb 


UCUTAUI4)  r  WM*  l  (2«*YY  ♦  , b*M’2  ) »UCDT  AUI b >  -  DU2) 

UCUIAUtJ)  r  KH1  -  22»UCU  fAL)  1 4  ) 

UCUTAUI2)  =  ,  b*  ( RH2  -  UCUTAU13)  — I  )C  0  T  AO(  b)  ) 

UCUIAUU)  =  .b*(  -  UCUIAUU)  ♦  ( HH1  -  OCUTAL)  ( 4 )  )  ) 

UCUT(b)  r  o.  A 1RV 1 7 70 

UCUtAU(b)=-CONto)«RHO 

THtHMO.  RRORtRUtb  UERIVATIVtS 

bUl  -  UCUltl)  ♦  UC0H2I  ♦  UCUIU)  ♦  DCUTU)  ♦  DCUTIb)  ♦  DCDT(b)  AIRM17V0 
blMAU  =  UCOTAUIll  ♦  UCUIAUU)  ♦  UCDTAUIJ)  ♦  UCl>TAU*4)  ♦  DCDTAO(b)  A1RMI60 

•  ♦  UCUIAU(b)  A 1RM1B1 0 

bNUr  =  2.MUC0M1)  ♦  UCUIU)  ♦  UCDT13))  ♦  UCUTI4)  ♦  DCOTIS)  ♦  DCU I A1RM1B20 

•  >*>)  AJRM1B30 

SNUT  AU  =  2. •  (UCUIAUU)  ♦  UCUTAUU)  ♦  DCDIAUU))  ♦  UCDTAU14 )  ♦  AJRM1B40 

•  UCUlAUIb)  ♦  DC  U 1  A  LI  tb)  AIRMIBbO 


I 


A1H-MJ30 

AlRyl3bO 


A1RM1340 


A1RV1410 
A1RM1420 
AIHV1430 
A  1 R4 144  0 
A 1 HM1 4b0 
A1R41460 
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ONUl  S.  ISI.Of  -  NUAW*SUI  l/SUMCON 
UNUlAU  =  (SNOT*U  -  HOAK*SOI AUI/SUMCON 

IK  (i, uAK-1.  .LI.  l.t-bl  UHUlAU  =  UCOTAUll)  ♦  DC0TAU12)  ♦  OCOTAUU) 
Set  =  U. 

SCUt  S  U. 

KKOG  =  U. 

uo  **us  l  s  l»  b 

set  =  set  ♦  UCUI  ll>»tSI'tC2ll) 

KHUG  *  KKOG  *  OCUl AU ( 1 > *tSHtL2 l I  I 
HUS  SCUt  -  SLUt  ♦  UtU til) *LO'rf ( 1  I 

UtUIAU  =  tN£KGT«KHO  ♦  I  AU»KKOG»H. 184E7 
UNHIfUl  S  I  AU*  (SCt  ♦SCUt)»H.lbHt7 
UtOlHI  =  UNHOjt »llbUS.H  -  l.S*H.ll/NHAH 
OHUfilf  =  "HKtSHH*UNUT  •  1 1 60S.  H /Mb  AM 
UHUIAU  =  — HKtSHK/NbAK *UNU  f  AU 
C 

C  UtbUO  HKlMOUl 

C 

1UUU  CONflNUt 

IF  (MAKK  .Nt.  Ul  HEIUKN 
CALL  OVtHK  ( K ALL  ) 

•Hlft  lb> 10UJ)  I KtL  *  HHO*  MAHK 

•  Hilt  Ib.lOUS)  HKtSHH . NhAK.SUKNKG , ENERGT  » PO  »E2 

•  Hilt  Ib.lOUb)  tUl S » UtUl AU. UtOTH I >  OPOTHf  .  OHDTAU. SUMtON 
•Kilt  Ib.lUUK)  KH1.HH2.KHJ 

•Hilt  (b. 1UU7 )  MSHttl 
•Hilt  (b.lUOb)  KKtNKG 
NKltt  lb. 1U21 )  UGUT 
•Hilt  Ib.lUUU)  tSHtt2 
•Hilt  Ib.lOlU)  MOKKtf 
•Hilt  (b. 1011 )  tOIJ 

•Hlttlb.lUl/)  OKHIOT .  OKH2Ur.  OKHJOT 
•Hilt  (b. 101b)  HH1 .  HH2.  KHJ.  HHH .  HMS 

•  HI  ft  Ib.lUlSI  XX.YT.22. Abb.  A*>b»  bbb 
•Hilt  (b.  1U2U)  IJUU1  .  UNO  I  AU.  ONKOOT.  KALL 
•Hilt  Ib.lUlSI  ueui 

•Hilt  (b.lClb)  lieufAU 
IUU2  KOHMAf  (<tt  12 . U  .  1121 

1UUJ  KOHMAI  l 1  OH  1 TKtL. HHO.MA1 NUM.2Elb» 5 . 1 13) 

1UUH  KOHMAf  U2HUKP1.KH2.KHJ. JtlS.S) 

1UUS  K OHM A  I  l J2HUHRtSMM.NUAH* SUMNHG . tNEHGY .HO. tZ . t>E 1 S. S ) 

lUUb  KOHMAI  (‘4UHUtUIS.UtUlAU.UtUIHT.UHUTHT.OI’UTAU»SUMeON.6E15.5> 

1UU/  KOHMAf  17H  HSPt02 .btlb.SI 
lUUb  KOHMAI  (711  KHuNHO .  bt  1  S  •  S  ) 

1UU9  KOHMAI  l  7H  tSPtt2 •  bt  IS  .  S I 
1U1U  KOHMAf  17H  M0FHC1 . btlS.S) 

1UU  KOHMAI  (HI!  CON.  bt  IS.  b  I 
1U1S  KOHMAI ISHUOCUT.btlS. SI 
lUlb  KOHMAf  (7HUOCOIAU.btlS.bl 
1U 1  7  KOHMAI  U1H  UKH1- J/OT  .  Jt  IS. S) 
lUltt  KOHMAI  IU7H  HHl-S.SLlS.b) 

1U1V  KOHMAI  (22H  XX.TT.22.ASS.ASo.0Sb.bElS.bl 
1U2U  FOHMAT  (24M  ONUf .UNOTAU. UNHGUT .KALt . JE lb. 6. IS) 

1U21  KOHMAI  (bH  0001  .btlb.S) 

KtlUHN 

tuo 


A1HM1B60 

AIHM1B70 

A1HM1V10 

AIHM1V20 

AIRM1VJ0 

AIRM1V40 

AIKM19S0 


AIRM1V90 

AIHM2U00 
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System  Compositon.  The  AIRMOL  code  considers  a  gas  mixture  com¬ 
posed  of  N^.  O^.  NO,  N,  O,  and  A  in  thermodynamic  equilibrium.  The 
first  step  in  obtaining  the  thermodynamic  properties  of  the  mixture  is  to 
determine  the  composition  as  a  function  of  temperature  T  and  density  p. 

The  argon  concentration  can  be  found  immediately,  because  it  enters  no 
chemical  reactions: 


(1) 


where  is  the  mole  fraction  of  argon  in  air  at  STP;  M  is  the  mean  atomic 
weight  of  the  mixture,  —  14.  55  gm/mole;  C  is  the  argon  concentration  in 

A 

mole/cc;  and  p  is  the  density  in  gm/cc. 

Conservation  Equations.  Five  concentrations  are  still  unknown.  Two 

equations  can  be  written  to  express  the  conservation  of  nitrogen  and  oxygen 

atoms.  (AIRMOL  does  not  consider  ionization.  )  For  any  temperature  and 

density,  the  total  number  of  moles  of  nitrogen  atoms  per  cc  is  X°  p/M,  where 
o  , 

X^  is  the  mole  fraction  of  nitrogen  atoms  in  air  at  STP.  The  conservation 
equation  is  then 


2CV  +  CXT  +  C  =  XVT  p/M 
N2  n  no  N  k 


(2) 


where  is  the  concentration  of  species  a  in  moles/cc.  A  similar  equation 
applies  to  oxygen: 

2C02+C0+CN0=X0P/M  (3) 

Equilibrium  Constants.  The  following  three  reactions  are  considered: 

N2  -  2N 

Oz  ^20  (4) 

NO  ~N  +  O 
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The  equilibrium  constants  in  dimensionless  pressure  units  for  these 


reactions  are: 


K, 


N 


N. 


K 


2 


K 


3 


P  P 
NO 


NO 


(5) 


(The  usual  conventions  referencing  the  above  pressures  to  the  STP  values 
are  to  be  understood.  ) 

Assuming  that  each  species  behaves  as  a  perfect  gas,  the  partial 

pressure  for  species  a  can  be  written 

P  =  n  RT/V  (6) 

a  a  ’ 

where  P  is  in  atmospheres,  n  is  the  number  of  moles  of  species  a,  V 
a  a  r 

is  the  volume  in  cc,  and 

R  =  82.  054  (atm-cc)/ (mole-°K) 

However,  (n^/V)  is  the  concentration  .  Substituting  Eq.  (6)  into  Eq.  (5) 
yields  equations  that  express  the  equilibrium  constants  in  terms  of  the 
dimensionless  concentrations: 


K 


1 


RT/C 


N. 


RT/C, 


CQ  RT/C 


(7) 


(The  usual  conventions  referencing  the  above  concentrations  to  the  STP 
values  are  to  be  understood.  ) 

Free  Energies  and  Enthalpies.  If  the  equilibrium  constants  are  known 
as  a  function  of  T,  then  Eq.  (7)  and  the  conservation  equations  are  five  non¬ 
linear  equations  in  the  five  unknowns  (the  concentrations).  The  equilibrium 
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constants  can  be  written  in  terms  of  the  change  in  the  Gibbs  free  energy 
o 

AG^  across  the  reaction: 

K  =  exp  (-AG°/RT).  (8) 

where  the  superscript  o  indicates  a  standard  state  of  one  atmosphere.  To 
solve  Eq.  (8),  one  must  know  the  Gibbs  free  energy,  G°  ,  for  each 
species.  These  are  available  from  analytic  fits  of  tabulated  data  produced 
by  another  code,  SALLY.  SALLY  computes  the  classical  partition  function 
Q  from  basic  molecular  and  atomic  constants,  then  derives  the  enthalpy, 
free  energy,  etc.  A  least-squares  technique  was  used  to  fit  the  tabulated 
enthalpies  to  a  fourth-order  polynomial  in  T.  The  dimensionless  enthalpy 
for  species  a  is  given  by 


=  A  +  B  T  +  C  T2  +  D  T3  +  E  T4  (9) 

a  a  a  a  a 

H°  is  the  enthalpy  at  T  °K,  and  one  atmosphere.  H°  is  the  enthalpy  at 
0  °K,  one  atmosphere.  (Stable  gas  molecules  N^,  O^,  and  A  are  taken  as 
reference  states.  )  Thermodynamic  consistency  requires  that  the  following 
relations  hold: 


So  we  must  have,  from  Eqs.  (9)  and  (10) 


B  T  -  C  T2/2 
a  a 


(10) 


-  D  T3/3  -  E  T4/4  +  k  (11) 

a  a  a 


* 

See  any  reference  on  thermodynamics  and  statistical  mechanics, 
e.  g.  ,  N.  Davidson,  Statistical  Mechanics,  New  York,  1962. 
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The  integration  constant  k  is  determined  numerically  by  comparing  the 
value  of  the  free  energy  produced  by  SALLY  and  the  polynomial  value, 

Eq.  (11),  and  finally  taking  an  average  k^  over  the  whole  temperature 
range. 

Computer  Solution  ot  Composition.  With  the  free  energies  available,  we 
can  calculate  the  equilibrium  constants.  We  then  have  five  equations  with 
known  coefficients  in  the  unknown  concentrations;  they  are  listed  here  as 
a  group: 


2CN2 

KNtCNO=XN'/M 

(12a) 

2c°2 

+  co  +  cno  =  xo‘>'m 

(12b) 

RT  CN 

(12c) 

RT  ci 
O 

•  k2  co,  "  0 

2 

( 1 2d ) 

c  c 

N  O 

■  K3  CNO  3  ° 

(12e) 

Solving  Eq.  (12c)  for  and  substitution  in  Eq.  (12a)  gives  an  equation 


in  Cj^j  and  C _ : 


NO 


1/2 


2Cn2  +  <k.cn2/rt>  +cno  =  xnO/m 


(13) 


It  was  observed  from  published  data  that  over  a  large  temperature  and 
density  range  the  ratio  of  CKT(^  to  CN  is  about  0.  01.  This  fact  is  the  basis 


NO 


of  the  beginning  of  an  iterative  solution  for  the  concentrations.  If  0.  01 
*s  3ubstituled  for  ^  in  Eq.  (13),  one  is  left  with  an  equation  in 
which  only  Cj^  is  unknown: 

2Cn  +  (ki  cn  /Rt>,/23  0.iicn  =X°p/M 

2  2  2 
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After  solving  the  above  equation  for  CN  ,  we  can  solve  Eq.  (12c)  for  C  : 

1N2  N 


°N  -  (K,  C  /RT) 


1/2 


To  solve  Eq.  (12b)  for  Cq,  Eq.  (12d)  is  used  to  eliminate  Cq  ,  and 

Eq.  (12e)  to  eliminate  C„,_.  The  result  is 
^  NO 

(2RT/K2)  Cq  +  [1  +  (CN  RT/K3)]Cq  =  X°  p/M 

After  this  is  solved  for  Cq,  Eq.  (12d)  is  solved  for  CQ  : 

C  =(RT/K?)Cq 
2 

Iteration.  To  begin  the  calculation,  it  is  assumed  that  C _ =  0.01  Cm  . 

-  NO  2 

(C  has  not  been  explicitly  solved.  )  It  is  now  calculated  from  Eq.  (12e): 


CNO  ■  RT  S  C0/K3 


This  completes  the  first  iteration.  The  value  just  determined  for  C^q  is 

now  used  to  solve  Eq.  (12a)  again  for  CM  .  The  other  concentrations 

1N2 

are  solved  again  in  the  same  manner  as  the  first  iteration.  After  a  new 
value  for  each  concentration  is  obtained,  some  kind  of  convergence  test 
must  be  made. 

Convergence  of  Solution.  Several  methods  were  tried  to  determine  the 
simplest  way  to  test  convergence  and  still  ensure  that  all  concentrations 
had  changed  less  than  some  relative  percent  from  their  previous  value. 

It  was  noted  that  Cj^  was  always  the  last  concentration  to  converge;  hence, 
the  criterion  used  in  that  CM  changed  less  than  0.  1  percent  for  two  succes- 
sive  iterations.  Using  values  less  than  0.1  percent  did  not  improve  the  scheme. 
A  limit  of  10  iterations  is  set,  but  usually  no  more  than  3  are  required. 
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Thermodynamic  Variables 

The  following  variables  are  of  interest. 
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For  y  =  T  or  y  =  t 

ac 

E  _ 2L 

9y 

9N  _  _a _ 

8V  r- 


(?'•'•)(?  'O 
(?  c-)‘ 


E  is  the  specific  energy  in  cal/gm.  is  the  internal  energy  of 

rpecies  a  for  a  standard  state  of  one  atmosphere.  It  is  a  function  of  T, 

but  not  of  r.  The  dE°/dT  derivatives  are  obtained  from  the  fits  for  the 

a 

enthalpy  in  Eq.  (9).  For  a  perfect  gas 

E°  =  H°  -  RT 
a  a 

=  (A  +  B  T  +  C  T2  +  D  T3  +  E  l'f)  RT 
a  a  a  a  a 


+  H  RT 

0,  a 


dE  2  3  4 

=  R(A  -  1  +  2B  T  +  3C  T  +  4D  T  +  5E  T  ) 
dT  a  a  a  ot  a 


Internal  Energy  for  Atoms.  AIRMOL  is  a  subroutine  of  EIONX.  The 

latter  calculates  all  electronic  excitation  and  ionization  contributions  to  the 

energy.  To  be  consistent  with  EIONX,  AIRMOL  must  not  add  in  these 

★ 

terms.  Thus,  for  atoms,  the  energy  is  simply: 

E°  =  3  RT/2  +  H°  (23) 

a  0,  a 


An  option  is  available  in  AIRMOL  to  include  the  electronic  excitation 
terms.  The  third  calling  parameter  would  be  set  negative.  This  would 
be  done  if  AIRMOL  were  coupled  with  a  routine  that  did  not  calculate 
excitation  and  ionization  for  molecular  species. 
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dE 


a 


dT 


=  3  R/2 


(24) 


Concentration  Derivatives.  The  concentration  derivatives  are  obtained 

by  differentiating  the  five  equations,  (12a-e),  for  C^.  If  the  equations  are 

differentiated  with  respect  to  T  or  t,  the  result  is  five  linear  equations  in 

3C  /3T  or  3C  /3t.  The  coefficients  involve  the  C  ,  but  for  a  given  T  and 
a  a  a  n 

p,  the  have  already  been  calculated.  Hence,  we  have  five  linear  equations 

in  five  unknowns  with  known  coefficients: 


2CN2+CN+CAo=J1 


2C62  +  C0  +  °NO  ■  J2 


2C  RT  C  •  -  K  C  '  =  J 

N  N  1  3 


2C0  RT  C6  -  K2  .  J4 


CQ  RT  CN+CNRT  C6  '  K3  CNO  =  J5 


(25) 


The  derivative  may  be  with  respect  to  either  T  or  t.  The  quantities 

J  are  known.  If  C'  refers  to  (3C  /3T)  ,  J.  is  : 
i  a  a  t  i 

Jt  =  J.  =  o 

dKl  2 

J 3  '  CN2  dT  '  CN  R 


dK 

J4=C02TT-C0R 


dK 


J5  =  CNO  dT  ’  CNCQ  R 
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If  C'  refers  to  (9C  /9t)  then 


VVV” 

J,  =  -Xn'Mt2 


J 


2 


/  Mt 


2 


The  system  given  by  Eq.  (25)  is  solved  by  using  the  Gauss-Jordan 
method,  which  reduces  the  coefficient  matrix  to  a  triangular  matrix. 

Special  Cases 

If  T  is  less  than  1200°K  or  greater  than  about  25,  000°K,  limiting 
values  may  be  introduced. 

Low  Temperature.  For  T  less  than  1200°K,  the  system  composition 

is  assumed  to  be  the  same  as  at  room  temperature.  This  is  assumed  valid 
*  1°  / 

for  p  >  10  gm/cc.  The  mole  fractions  of  N^,  O^,  and  A  are  constant. 
The  mole  fractions  of  N,  O,  and  NO  are  zero.  N  is  therefore  constant; 
hence,  the  derivatives  of  N  with  respect  to  T  or  t  are  zero.  As  explained 
in  the  next  section,  the  EIONX  subroutine  calculates  the  translational  con¬ 
tributions  to  the  pressure  and  energy  derivatives.  AIRMOL  calculates  the 
contributions  due  to  changes  in  N.  Therefore,  in  the  low- tempe rature  limit 
the  (9P/9t)^.,  (9P/9T)t>  and  (9Es^/9t),j,  terms  passed  on  fnm  AIRMOL  to 

EIONX  are  zero.  However,  the  (9E  /9T)  term  is  not  zero,  because  it 

sp  T 

cor  :ains  contributions  from  terms  such  as  9E  / 9T.  It  follows  from 
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High  Temperature.  The  other  extreme  is  to  have  T  so  great,  or  p 
so  small,  or  both,  that  no  molecules  are  left.  Beyond  this  point  the  energy 
due  to  dissociation  is  constant.  The  nontranslational  AIRMOL  contributions 
to  the  derivatives  (9E/9T)^,  (9E/3t)^.,  (9P/9T)^,  and  (9P/9t),j.  are  all 
ze  ro  and  N  =  1. 

Interface  with  Other  Equation-of- State  Subroutines 

The  SPUTTER  code  uses  a  general  equation-of-state  subroutine, 

EIONX,  which  interfaces  with  molecular  equations-of- state  as  follows: 

1.  All  ionization  contributions  are  calculated  by  EIONX. 

2.  All  translational  contributions  are  calculated  by  EIONX. 

While  the  equations  written  in  this  report  have  been  given  in  terms  of  the 
temperature  T  in  °K,  SPUTTER  uses  9  in  eV  for  a  temperature  scale. 

Also,  the  reference  state  for  the  energy  is  not  the  same  in  AIRMOL  and 
EIONX.  The  following  steps  must  be  taken  before  any  quantities  are  passed 
on  to  EIONX  from  AIRMOL: 

1.  All  quantities  must  be  converted  to  a  temperature  scale  of  eV,  0. 

2.  The  translational  terms  must  be  deleted. 

3.  A  constant  AEre^-must  be  added  to  the  energy  to  have  consistent 
reference  states.  (The  value  2.899x  10  ergs/gm  has  been  chosen.) 

Six  quantities  are  transferred  from  AIRMOL  to  EIONX  by  means  of 
the  arrays  named  CARBNZ  and  EION,  w'hich  appear  in  named  common. 

The  quantities,  and  the  cell  of  the  array  to  which  they  are  made  equivalent, 
are  listed  here. 


EDIS 

— 

CARBNZ(l) 

DEDTAU 

= 

CARBNZ(3) 

DEDTHT 

r 

CARBNZ  (4) 

DPDTAU 

= 

CARBNZ(5) 

DPDTHT 

= 

CARBNZ(6) 

NBAR 

= 

EION(  17) 
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The  above  quantities  are  defined  as  follows: 

EDIS=E 

SP  \  gm  /  2- 

DEDTAU  =  (3E  /3  r» 

sp  0 

DEDTHT  =  (9E  /  90  >  -  4 

sp  t  2  — 


+  AE  , 
ref 


DPDTHT-  =  (9P/90)  -  x 

T  0 

DPDTAU  =  (9P/9t)0  -  ^ 


V'n  c 

/  „  a  or 
NBAR  =  N  =  — - 

a 

Coefficients  for  Least-Squares  Fits 

The  dimensionless  enthalpy  [(H°  -  H°a)/RT]  for  each  species  was 
calculated  by  the  SALLY  code  as  a  function  of  T.  The  data  were  then  fit 
to  a  fourth-order  polynomial  in  T  by  the  NOLOUT  code,  which  uses  a  least- 
square  technique. 

=  A  +BT+CT?+DT3+ET4 
a  a  a  or  a 

Table  III  gives  the  coefficients  in  the  above  equation  for  the  various  species. 

Also  listed  are  the  integration  constants  and  k^,  needed  for  the  analytic 

expression,  Eq.  (11),  for  the  Gibbs  free  energies.  The  term  k^  is 

used  if  (H°  -  H°  )/RT  =  5/2  for  the  atomic  species,  while  k'  is  used  if  the 

o  °a  a 

full  polynomial  expression  is  used. 
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Variables  Used 

in  AIRMOL 

A(6) 

Polynomial  coefficients  for  enthalpy 

A1 

Total  number  of  N  atoms  (in  mole/cc)  at  any  temperatu 

and  pressure 

B(6) 

Polynomial  coefficients  for  enthalpy 

BARK(6 ) 

Integration  constants  for  free  energy  if  enthalpy  is 

polynomial 

BARK2(6) 

Integration  constants  for  free  energy  if  enthalpy  is  5RT 

C(6) 

Polynomial  coefficients  for  enthalpy 

CON(6) 

Concentrations,  moles/cc 

D(6) 

Polynomial  coefficients  for  enthalpy 

DCDT(6 ) 

(8C  /8T) 
a  l 

DEDT(6) 

dE°/dT 

a 

DEDTAU 

(3Esp/3T)0 

DEDTHT 

(3Esp/36)T  -  p«/N 

DELH(6 ) 

H°  enthalpies  atone  atmosphere,  0°K 

DGDT(6) 

dG°/dT 

a 

DKP1DT 

dK .  / dT 

1 

DKP2DT 

dK2/dT 

DKP3DT 

dK3/dT 

DNDT 

(9T5/0T)t 

DPDTAU 

(8P/9t)g  -  P/t 

DPDTHT 

(ap/ae)T  -  p/e 

E(6) 

Polynomial  coefficients  for  enthalpy 

EDIS 

E  *G/f7,  total  specific  energy  due  to  dissociation 

Sp  C. 

ENERGY 

Total  specific  energy,  erg/gm 

ESPECZ(6) 

Internal  energies  at  T  °K,  one  atmosphere,  cal/mole 

EZ 

Total  dimensionless  energy,  E/RT 

FRENRG(6) 

G°/RT,  dimensionless  Gibbs  free  energies 
a 

HSPECZ(6 ) 

Enthalpies  at  T  K,  one  atmosphere,  cal/mole 
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KP1 

KP2 

KP3 

MARK 


MOFRCT(6) 

NBAR 

NITER 

OLDX{6) 

PHI 

PO 

PRESHR 

RHO 

RH1-RH5 

RTKEL 

R2TKEL 

RT2 

SCDE 

SCE 

SDTAU 

SNC 

SNDTAU 

SUMCON 

SUMNRG 


Equilibrium  constant  in  pressure  units  for  N^  ts  2N 
Equilibrium  constant  for  %  20 
Equilibrium  constant  or  NO  t;  N  +  O 

Third  calling  parameter  for  AIRMOL:  if  negative,  include 
electronic  excitation  for  atoms;  if  positive,  no  electronic 
excitation;  if  0,  like  positive,  and  also  print  debug 
quantities  in  AIRMOL 
Mole  fractions 

Mean  number  of  atoms  per  molecule  in  gas  mixture 
Iteration  counter 

Concentrations  from  preceding  iteration 

Gas  constant  (SPUTTER  units),  9.  649E1 1/ WTREF 

Total  pres  sure,  atmospheres 

2 

Total  pressure,  dyne/cm 
Density,  grn/cc 

Right-hand  side  of  equations  for  derivatives  of 
concentrations 

RT.  with  R  =  1.  98726  cal/mole-°K 
R^T,  with  R^  =  82.054  cc-atm/ (mole-°K) 

(R2T)2 

y'(dE°/dT)  C 
a  a  a 

£(0C  /3T) 

q  a  t 

£<3C  /3t> 
or 


n  C  where  n  is  number  of  atoms  per  molecule; 

a  a  a 


total  number  of  atoms/cc 


Total  energy,  cal/cc, 
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TAU 
THETA 
TKEL 
TKELN 
VI.  V2,  V3 


WTREF 

XREFA 

XREFN 

XREFO 


Specific  volume,  cc/gm 

Temperature  in  eV 
•  o , , 

Temperature  in  K 

In  T,  natural  log 

AG°  /  RT  for  the  reactions 
T 

(1)  N2  ~  2N;  (2)  Oz  S  20,  and  (3) 

NO  N  +  O  respectively 

Mean  atomic  weight  of  air,  about  14.  55  gm/mole 
Mole  fraction  cf  argon  atoms  at  STP,  divided  by  mean 
atomic  weight  of  air 

Mole  fraction  of  nitrogen  atoms  at  STP,  divided  by  mean 
atomic  weight  cf  air 

Mole  fraction  of  oxygen  atoms  at  STP,  divided  by  mean 
atomic  weight  of  air 


GOLEM:  A  TOOL  TO  STUDY  EQUATION-OF -STATE  AND 
OPACITY  SUBROUTINES 


The  GOLEM  code  was  developed  to  study  the  data  computed  by  the 
equation -of- state  and  opacity  subroutines  (used  in  SPUTTER,  MOTET,  and 
other  radiation-transport  and  hydrodynamic  codes)  that  use  temperature  0 
and  density  p  (or  specific  volume  t  =  1/p)  as  independent  variables. 

GOLEM  is  an  edit  control  code. 

The  GOLEM  code  input  requirements  are  extremely  simple.  The 
sole  input  card  format  required  is  as  follows: 
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SUUKUOl  INt  OULtM 
.  I  bOLtM/SUVU*-.  1  .o/UVUS.  Jh2A2 
SUBHUUllNL  bULtM 

L(J*U  RUNIHL  UtLR  RUN  1 MULtL  UL  AH  tUUAIlUNS  UR  SIAIt*  t(C)  PAHA wt  I  1  Kb 

LOAU  RUN  I HL  LtLR  RUN  (MULtLULAN  L0UAUUN3  UR  SI  Alt#  t»L)  PAHAMtltNS 

LUAU  RUNIKL  UtLR  fUH  IMULtLULAH  tUUA  I  1UNS  U»-  STAIt*  tIC)  PAH Awt  1 1  NS 

LUAU  R UN I HL  UtLR  RUN  IMULtLULAH  tUUAIlUNS  UR  SIAIt*  tIL)  PAHAMtltNS 

LUAU  RUNIHL  UtLR  RUH  IMULtLULAH  tUUAIlUNS  OR  SIAIt.  Elt)  PAH AMt I t HS 

IH1S  HUUI1NL  USAULL  RUN  IAHULAT1UN  UR  THtHMUUYNAMIL  QUANI lilts 


S  R  U  I  It 


LUMMUN 


LUMMUN 
1  AVAR 
*  1 1 
J  1 11*1 
A  R'<LW 
3  LU 
b  tMlIJA 
/  HMUL 
B  HP  1 A 

LUMMUN 

1  UIMAX1 

2  b  AMm 
J  HU  1  A 
A  3A 

3  312 
b  32U 

/  ASU  1 


*  b  AMm 
i  HU  1  A 
A  SA 
3  312 

b  N2U 
/  ASU  1 
b  UtLH  l 
LUMMUN 
1  A  I 

£  V  I 

3  AJ  I 

A  SMLA  l 
3  tL  1 

b  blbl)  I 
/  L 1 1 1 1<  I 
n  LKIPL  ( 
COMMON 
1  RHLM  l 
£  £i*l  l 
3  HL  1 
A  HUAI)  I 


LMUAI3/).  Nl<  , 

>  HLANRl.  bLANR*t 
«  lb  «  NHAU  . 

<  IbMl  •  1  ALPHA • 

•  LN I  MAR •  AH  • 

•  CVU  •  SLUb  . 

•  LMlNb  •  LA  • 

•  HHUN  •  tPlU  < 

•  NPIrt  •  HPU1A  . 
ID  •  I L  • 

,«  U  I MAX*  •  UIMAXJ. 

•  ACH1I  •  SlbMA'J# 

•  HU 1  AMI .  HU1U  > 

•  33  •  Sb  • 

•  31J  .  S1A  , 

•  tU  *  RU  • 
13* )*  HU  t 131J> 

J/J  f  P  1  13*) • 

P*  I  1 31 )  » 
13*1#  t  113*). 

13*1.  b  113*). 

13*).  A A  113*). 
13*1.  SMLb  113*). 
13*).  ti<  113*). 
13*).  CD  113*). 
13*).  LAPAL  113*). 
13*).  bURH  113*). 

ILLM  1  3/). 
3/).  ALM  l  if), 
it  It  *P *  1  3/). 

i/lt  HHUR  I 1UA  )  . 
1*).  HAXL  . 


NSMLH  , 
liL  AIIR3  . 
ijlanra. 
ULANR3. 

msmlh  . 

ALPHA  • 
LU  . 
LPSi  . 
Hl'Ulb  . 
Ij  I  H*  > 
UlH  • 
ML  . 
KU1MP1 . 
3/  . 

313  » 

I  AIJ  . 
VI) 

)'l 
3  V 
Ll 
U 
A3 

3MLC 

3MLU 

UC 

CAPAH 

RtW 

tRLM 

ULM 

SOL  1U 

HUR 

MAXLM 


1A  •  IB 
1  API  .  lb. 
1  AMI  .  Ibl 
IH  •  |  M, 

PUSHA  .  PU' 
MV  A  •  M  V| 
bA  .  bb 
H 1 A  .  H  1| 
I  ‘'KIN  I  .  IA 
U  I ll*P  •  Ull 
SiVlICH.  LU 
ACU3TA .  LN\ 
bMS  .  SI 
SB  .  3V 
sib  .  sr 

2i.HU  .  H 
1132).  HUU 
113*1.  PM 
1132).  HHU 
1132).  tK 
1132).  L 
i:32).  Xb 
113*1.  SMLU 
:i32).  3MLH 
1132).  MH 
113*1.  LKIL 


lb 

9 

1CA 

1LM 

lb)>l 

9 

1LAP1 

:CHPl 

1DM1 

9 

1LAM1 

1  lhm  1 

imax 

9 

MLANKh 

UtLPHI 

PUSMM 

9 

MO  1  LA 

UUlLb 

MVH 

9 

HLA 

MLB 

bb 

9 

bL 

bH 

Hill 

9 

HU  I  A 

hoik 

IA 

9 

IB 

TL 

UlHl 

9 

UtKMIN 

U  1 MA  A 

LU 

9 

LM1M 

UtL  T  A 

LNVHI 

9 

SUMHA 

SUMHB 

31 

9 

S* 

SJ 

3V 

9 

3 1  U 

311 

31? 

9 

SIB 

S1A 

113*).  UtLTAKl 13*) . 
113*).  SMLH  (13*). 
113*).  PU1  113*) 
132).  HHU  1 13* ) .  IHL I A  113*). 
132).  tK  (13*).  X  113*). 

132).  L  113*).  X*  (13*)» 

32).  Xb  113*).  XV  113*). 
132).  SMLU  113*).  SMLt  113*). 
132).  SMLH  1132).  NlbA  1132). 
132).  MH  1132).  ClllC  1132). 
132).  LKIL  1132).  LHIK  (132). 
132).  CAN  1132).  URLM  1  it) 
ifh  tLM  l  it),  RLLM  1  it), 
i7l,  AMA3N01  it),  LMKNO  1  it), 


1 132) 

1 132) . 
I  132) . 
I  132) » 
I  132) . 
I  132) . 
1132). 
1132). 
1132). 
1  it) 

1  it), 


Sh,  tCHCK  1  it), 
1UA).  iHtlAKtlUA). 


1 1UA) . 
I  lb)  . 


LOMMOH/Ll A/bULUU I U**AU) 

LU'  RUN/LMS/  tlUNl*U) 
tUJi VALtNLtl*UAN.t 1UNI J) ) 

tUUl VALtNLt  (tlUNI3) .PHI ) .  1 1 1  UN  1  lb ) . 2Mt AN ) 
tUU 1 V ALtNLt  1 1 ION  113).  NSUBt ) 

HtAL  LNbAMA 
HtAL  NSUBt 
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CUM'AOU/  t  A  I  tbA/tilbHAH  (bU  ) 

LUMMUN/LMbll/KUItNL  IbJbU  ) 

UlMtNblUN  HU) 
tWIVALtl.Lt  IHUlLNLIl)  >1111)  ) 

LUAU  tllliHt  ►"UltflliAL  lAULt 
LUMMo,./LMbL/  KI3II 
UlMtNjlUN  2  I bl I •  t-’AN  I  l  b  l  ) 

tU'Ji  VALtNLt  l  Ml  1  I  .  NOLMN  I  1.  (M(^).Z(Z))»(M(J)  »HAHT  l  J)  ) 

LOMMUN/LMbU/  fLMbUU) 

t  JO  I  V  ALtlILt  1  IL  'till )  .UALM  )  *  (  ILMblZI  » U ALK2 )  .  (  t  LMb.  1  7  >  »ZHAKLN> 
tUUIVALU.Lt  IL/KUl  AU.tlUNl  12)  I  .  I  UKUTNT  » t  ION  ll .} )  )  ,  ( NH  AH .  t 1  ON  (  17))  » 

1  1  iLMal  lb)  « UZU  I  AL))  .  (  ILMbl  lb )  •  UZl)  I  HI  ) 

LUMMUN/LMbt/MA  ItNL.  ILtMfll  .bNAhU.  11.12«13.i4.1b.lb.l/.]H.19.11U.Jl. 

2  J2 »  Jb . J4 . Jb  *  Jo. J / 
tUUlVHLtl.Lt  IbNAtU.t'A  111) 
tUUlVMLtlILt  U1U.M2) 

LOMMUN/LMbtbN/ILMbHllb) 

LOMMUN/LMbb/CAKHUZUU) 

UlMtNblUN  AIK  I  111 ) 

tOU  1  VALtNLt  l A1KI 1 ) .LANBNZl 1) ) 

LUMMUH/LN I KL/bL  f LLt*  JMUL I 
LOMMUN/ tOb  IN/t  1  ON  If)  UU  I 
LOUl  VALtNLt  lMAKH»tlUNlNl20)  ) 

LUMMUN/OULtMA/  IHAIA12SU)  .KIIA12SU) 

UlMtNblUN  KOff ( 1 ) 

UlMtNblUN  WUKUIO) 
tUUlVALtNLt  (UtLMMU.  UtLIAU) 

LUMMUN/LNtb  //t  I  A 
LUMMON/LMbJ/MA I KtL  1 1 1  .  b/ ) 

Kt AL  MA I KtL 

UAIA  ,-iAKKtK/ 1/ . 1HKN I U/U/ . 1 1UN ( 1 ) *  bUMH  Fb  * XNHTb.OLUAA T*OKLM(l)/b*U./ 
UA I  A  ALtA/l.t-4/ 


*K1 Itlb.  /UUU) 

AK1  It  lb.  /UU1) 

MK1 It  lb.  /UU2) 

MK1 It  lb.  /UUJ) 
aKI I t lb. /UU4 ) 

VI K  1  1 1 1  b  .  /UUb) 

WK1 It  lb.  /UUb) 

AKI  ILlo.  /uun 
AKI ILlo. /UUB) 
will  It  lb.  /UU9) 

Kill  1 1 1 b.  /UlU) 

AKI It  lb.  /U1 1 ) 

WK1 1 1 lb.  /U 12 ) 

Kill  It  lb.  /U1J) 

MAAHOI  =  tUbHAM l 2 ) 

AKI It  lb. /12) 

AKI It  lb. /Ulb)  IHOItNLlM.  K-l .  MAXKU1  ) 

Ait  1  It  Ib./bb) 

UO  ////  11=107 
N1UU=  N  ♦  1UU 

WKitt  lb./b4)  N1UU.  IMAIKtLlL.N).  L  =  1.U) 
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till  CONI 1HUL 

c 

X. 

•  CALL  I 1CKLN  I  IlMtl) 


L 

L 

L 

L 

L 

L 

L 

t 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 


CULUMNb  KUKMAI  UA I A 


l-*4 

b-U 


1U 


11-iO 

bb-bu 

bi-bo 

bb-bb 
b  /■  /b 
/^-au 


HH.U  UKLMU) 

K**.l  (HAIL 

U  IHHNfU 

IMII’KNIU  .tU.  U)  HK1NT 
IM1PHMU  ,tl).  11  NO  HH  IN  I 
IK  I  1 KHN I U  .tU.  £\  HHlNT  GULUUl 
AHHAT  UNLT  INO  I llLtb) 

IK  llHHNIU  .to.  Jl  HHlNT  OULOUI 
AHHAT  ft  1  I  H  HILtb 
11  1HNCHU 

1M1HNCMU  ,tO.  U)  HUNCH 
1M1HNLMU  .tO.  1)  NO  HUNCH 
IK  l  IHNLMU.EO.ii.UM.  IHNLHU.tU.b) 
.ANO.IHAlL.tU.il.)  HUNCH  U1A- 
HHANUUb  1NHUI  IN  STANUAKD  OU I - 
HUT  tUHMAI 

IK  llHNv.HU.EU..>.  UK.  1HNCH0.EU.4J 
.ANU. IHA1L.EU.11. IHUNCH  KtLt«i. 


K  1U.U 

HtL^HH.  HtLlUN.  HtLHHb.  HtLtNO 
IHttAlll 

tlb.U 

HHU l 1 > 

tib.d 

bVllI 

K1.U 

Itbl 

tlii.0 

UtL  1  H  1 

tli.U 

UtLtAU 

U 

J 

1U  CUHIlNUt 

UCM I  10 1  —  u. 

HtAUlb. /Ubl  UKLM! 1) • IHAlLf 1HHNIU. 1HNCHU. I Ht I  A ( 1 1  .HUM! 1 1 ibVIll » 
£  lEbl fUtLlHl .UtLI AU* J 

bUHHIb  =  bUMHTb  ♦  XNHIb 
MO  1 1 1  —  U 

IK  tUKLMtll  .Lt.iibl.  .UK.  UKLM (11.01. bUU . I  OU  IU  1U1 
MUltl=  1 
MUAltl-  U 

CALL  LUNMAl  1UKLM1 1)  .MUAltD 
1U1  LUNUNUt 

IK  I  UKLM 1 1 1  .tU.  U.)  OU  TU  11 

IMULUftAY  .tU.  «*.  .OH.  ULUWAT  ,tQ.  0.  .UK.  1HNCHU  .tO.  II 
£  OU  10  lbOO 

ik  iunlmui  .li.  u.)  ou  iu  lbov 

IK  I  1 HHN I U . tO • £  .UK.  1 HKN I U . tU . b )  GU  IU  lbOV 
HUNCH  //UU 
HUNCH  // U1 
HUNCH  tt\J£ 

HUNCH  /Tub 
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1M  I  1HM.HU.  tty.  .'.OH.  IHNCHU.tU.  31  .  AfiU.lHML.tU.il.  1  HUNCH  /7UH 
If-  l  l  IHuCMU.tU.S.UH.  IHNCHU.tU.H)  .  A,JU.  I  M  A  t  L  .  tU  .  1 1  .  )  HUNCH  //U7 
1H t t tUbHAHt J /l .Nt . U . 1 .«NU. I IHNLtIU.Nt . 1 1 )  HUNCH  //US 
It-  t  tUM-Mt  1  1  .tU.O.  >  .UK  .  lOftLHl  1  )  .  tU.  JUb.  )  1  HUNCH  // Ub 
IMMUItl.tU.li  HUNCH  //iU 
IS'/'/  CONI  INUt 

ANHIb  -  U. 


If  t  rtllblUALMl  1  1 

♦ 

.HI 

.LI.  ALt A  1 

UU 

IU 

IU 

If-  lAbblUI'.LM  1  1 

♦ 

.Hi  > 

.LI.  ALtA) 

UU 

IU 

HI 

If-  t  AUblUALMt  1  1 

♦ 

•  «OJ 

.LI.  ALL A) 

UU 

IU 

Hb 

11-  UtUblUALMI  1  1 

♦ 

•  HH  I 

.LI.  ALt  A  1 

UU 

IU 

HH 

11-  1  MUb  lur.LM  1  1  1 

♦ 

•  HD  1 

.LI .  ALLA) 

UU 

IU 

Hb 

If  1 AUblUALMl 1  1 

4 

.  Htti 

.LI  •  ACt  A) 

UU 

IU 

Hb 

UU  lU  H  c. 

c  «*•*••»••••  *•«•*»«*»*»•*•»••»»••*••»»•••*»•*•*» 

C  lilt  fULLOMNU  CAHUb  AHt  ACC 

C  HLAU  M  1  I  H  lUtb.S  t-  UHMA  I  b 

C  I  l.NCcUb  1  Vt  UUUNUMtb  AHt 

C  4UHU  ll  blAHIb  A I  btN-lMl 

C  ANU  tNLb  A I  till  1 

Hi  C UN  I  1 NUt 

HtAU  tb*/bll  ItObHAKlM.  K=1.1U) 

UU  IU  1U 
HJ  CUN  11 NUt 

HtAU  tb#/bll  ItObHAHIKI#  11=11. iU) 

UU  IU  1U 
HH  CUN  I INUt 

HtAU  tb*/bll  ttUbHAHtM.  K  =  il.,5UI 
UU  IU  IU 
Hb  cum  INUt 

Hc.AU  tb#  /S1J  (tUbHAHlK).  K-Sl  t  HU  1 
UU  IU  IU 
Hb  CUN  I INUt 

HtAU  lb. /SI)  (tUbHAH(K).  K=Hl.bUI 
UU  IU  IU 
Hi  CUN  I INUt 

11-  t  Itbl  .Nt.  U.  1  UU  IU  lUi 

If-  t  IHHNIU.Nt.i  .ANU.  1HHNTU.NC..O  NH  I  1 1  t  b  »  7U1H  1  I  tObPAK  t  K  )  < 
1  H=l.bU) 

C 

Hi  A  =  tUSHAKU) 
tCMCMIH)  =  tObHAHtb) 

UU  Hb  1=1.11 
tlUNllltl)  =  tObHAH  (  1  ♦  b  I 
Hb  CUlillNUt 

C  tObHAHtl/1  CUNIHOLb  1-tbltH.  iHt  CMOL  CALL  btOULNCE  HAKAMETEK. 

tIUNINlib)  =  tUbHAHU/1 
1 1  UN  111  ( iU  I  =  EObHAKtlb) 
tlONlNUUI  =  EObHAHIlUl 
Mi  =  tUbHAH(iO) 

KH1A  =  tUbHAH 1211 

IMNH1A  ,tU.  U.)  HHlltlb./Ulb) 

HH  1 A  =  U  11-  INCLUUt  HCACK-dOUT  H AU1 AT10N  CONTHlbUUON 
IN  bUUMOUllNt  tub 
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PUjHA=  t,0'jPAK(<!<.  I 

MAXLK,=  tObPAKl<;.>l*.b 

LMUAt.'l  =  LObPAM  t  2  **  I  ♦  •  t> 
bOLUMlbl  =  tUbPAM»2b) 
bCICLt=  t0bPAM(2b) 

Ni<=  LObPAI<(2 /(♦.:> 

1 A  M | =  t0bPAH(20l *.b 

»U  =  t0bPAKl2V»A.b 

CiM=  t0bPAM(3U) 

boili/lin:  tObPAi<(.ii) 

M  lb-  LObPAM  l 32  I 

HVAT  tObP AM ( ii ) 

HCA:  tObPAM (34) 

AMAbl  <0(11—  tObHAHIJb) 

CHKNO (II-  EObPAM ( 3H I 

0KLM(lb)=  tObPAM  (  30  I 

CM IN  =  tObPAM (40  1 

LMl)  A  (  1 )  =  tUSMAN(41l  ♦  .S 

MAXL  =  tObPAM (421  ♦  .b 

bi*S  tObPAM (43  I 

MO* It  =  OK  LM l  1  )  ♦  •  b 

IK  (KOXit.  ,t0.  1U2)  MAKK-cObPAH  <44  t  ♦  .  b 
tObPAM ( 44  I  CONIKOLb  MAMK.  I Ht  A1KM0L  CALL 


SEQUENCE  PAKAMETtK. 


btl  tObPAM ( 37 )  . NL .  0.  10  CALL  KAPPA 

IK  KAPPA  lb  10  Ut  CALLtU.  HHS(  CALL  E10NX  TO  Gt  I  PHI  ANl)  ZMEAN 
IK  l tObPAM (37)  .tU.  U.l  GO  10  47 
CALL  L 1 ONX ( 1  •  •  l.t  KOX 1 »  -1.) 

AMAbl  JO  (II—  PMl 

CHMNO(l)=  ZMtAM 

1K1I1IS  CHHNO(l)**(-l. 3333333) 

ZP2(I)=  CMRNO(l)**2. 3333333 

47  CONtlNUt 

UMlIt  (  b.  7121 
1 IMtA  =  U. 

KEWUJS  0. 

NbUHt—  0. 

LGAM3S  0. 

ZUAM  s  0. 

ILMbllUIS  0. 

L  ION  1 2  -  0. 
bAMMA-  0. 

LNGAMA  =  U. 

IK  (1PMNTU.NE.3  .ANU.  1PKN1U.NE.2)  GO  10  4 
AbblGN  4  10  LRN 
GO  10  b 

4  IPMN10  =  IPKNTU 

btt  IPKNIU  =  IPKIJ10  10  AV01J  IPHN10  WIPE-OUT  B*  LAbT  DATA  CARO 


OLUM A I  =  (MAIL 
L1MA1L  =  IMA 1L  ♦  l.b 

GO  10  (13>13*lb*lb#lb*13.13*lbtl3»13*13*13rl3»13rlb»13>*  LTHA1L 
lb  CONIlNUt 
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i  j 


1*-  INi..  (i  >  .tU.U.  )KUa(  1  )  =  1  ./SVt  1 ) 

Ih (SV  < l ) .LO.U. I SV l 1 )  =  1  ./ROW  ( 1  ) 

LON I INUt 

NH1  I  L  10*  70S)  0*LM(  1  I  .  IMA  lL«  IPRtllU.  1PNCH0* J*  1  Ht  I  A  t  1  )  •  ROW  1 1  )  .SVI  1  ) 


C 


c 

c 

1  ><A  1L 

• 

0. 

c 

lHAlL 

z 

1 . 

c 

IKAlL 

z 

2. 

c 

Trail 

z 

5. 

c 

ihuil 

z 

9. 

c 

1RAIL 

z 

s. 

c 

TRAIL 

z 

b. 

c 

IKAlL 

z 

7. 

c 

1  RAIL 

z 

tt. 

c 

1RA1L 

z 

•7. 

c 

(RAIL 

z 

lu 

c 

IKAlL 

z 

11 

c 

THAIL 

z 

12 

c 

trail 

z 

15 

c 

1  RAIL 

z 

19 

c 

TRAIL 

z 

is 

C 

C 

L 

C 


TRAIL  OPllONS  .•..»..«•«**»*»•*•»***.*•*•**•***•••**** 

NORMAL  <»H  1 L  Oh  1 1 VPEK A T URE-UENS  1  TY  POINTS 
SPtLIAL  2*'EAU  PATH 

FEHhtCl  0 A S  ANU  REAL  ONE  CAHU  PER  POINT 
HEAD  ONE  LAKU  PtH  POINT 

COPPUIt  ( I  ML  I A  .  TAUT  HECTANGLt  AROUND  CENTRAL  POINI 
NOHMAL  OR  ID  Oh  SELtLTEU  TEMPER A TURE-DtNS 1 TT  POINIS 
MOLECULAR  LJOA I  ION  OF  STATE  CHtCKOUl  SET 
COMPOTE  ( I  ML  T  A »  KHU)  KtCTANOLE  AROUND  CENTRAL  POINT 
or lu  Oh  Temper a lURt-LOw  density  i.le.  .1)  points 
GRID  Oh  I EMPtR A  I  ORE “Hi OH  DENSITY  I.OE.  .01)  P01NIS 
.  GR1U  Oh  ULNS1 I li  S-LOW  TEMPERATURE  I.Lt.  10  E.V.) 

.  REAU  DIAPHANOUS  DA  I  A  CARD 

.  HEAD  GILMORE  UA1A  CARD  (SEE  TRAIL-1 1  PATH.  COMMENTS) 

.  HEAD  H1LSENHATH  DA  I  A  CARDTSEt  TRAIL=11  PATH. COMMEN I S ) 
.  NOHMAL  TEMPERA IDHE  SET  AT  ONE  SELLC I  ED  DENSITY 
.  NOHMAL  DLNSIIT  ET  AT  ONE  StLtCTED  TEMPEHATURE 


IF  (  I  R  A  1L  .EO.  2 ♦  )  0KLMI1)  =  -0KLMI1) 

Ih ( IHA1L  .EO.  1. )  GO  TO  12 

Ih  (MOXlt  ,Nt.  207)  GO  10  bbOl 
KtAU  (S.7S1)  SOLID. UKLMI2) 

WRITt  (b «  /2V#)  SOLID 
WR1IL  I b »  735 )  UKLM ( 2 ) 

PUNCH  7722 
UKLMI1)  =  0KLMI2) 
bbU  1  CONTINUE 

in  TRAIL  .EO.  u.  .OH.  TRAIL  .EQ.  8.  .OR.  THAIL  .EQ.  9.  .OR.  THAIL 
2  .LU.  S.  .OK.  TRAIL  .EU.  1U.  .OR.  TRAIL  .Ea.  19.)  GO  TO  500 
IF ( TRAIL. EO. 15. )  GO  TO  SOU 
lhl I  KAIL  .Ea.  9.)  GO  10  200 
Ih I  TRAIL  .EO.  b.)  GO  TO  900 
IF ( 'HAIL  .EO.  7. I  GO  10  bOO 

IT  I  TRAIL  .GE.  11.  .AND.  TRAIL  .LE.  15.)  GO  TO  100 


1  CUN  I  1  NOE 
WR1 IE ( b  * 71B ) 

TRAIL  =  2.  PERhECI  GAS  AND  READ  ONE  CARD  PER  POINT 
I  RAIL  =  5.  HEAD  ONE  CARD  h  !.H  POINT 
ASSIGN  19  TO  LREIN 
GO  TO  bSUU. 

19  CONTINUE 
GO  ID  10 

11  CONTINUE 
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C  NOP^AL  txn  POlNl 

lULUmAt .to. I. .ON.OLUaAT .tu.2. .OR.OLOmAT .E0.3. )  GO  TO  17 
I  MtL  =  UMtA/XNPIS 

IlMLIiS  (IlMtS  -  IlMtll  ♦  Ib.bbto6b7 

TIMtU  =  I IMtO/SOMPTS 
Abb  ION  2  10  LHN 

lb  (  lPHNTU.Nt.2  .AND.  1PRNTU.NL  •  0)  GO  TO  £ 
b  LONIINUt 
MAHKtN  -  1 

•  HI  Itlb.  7014)  (EUSI’AHIK).  K=1,SUJ 

•  IT  1 1 L  (to.  702U)  MOXit 

U  IMUXlt.Ll  .  1U1  .OH.  MOXit. Gl .200)  GO  10  7776 
1 LU I -  MUX  XL  "  IUU 

ILU2  :  £  *  IFlXlMATHttU.lLDl)  ♦  ,b)  ♦  I 

•HUt  <0.7020)  (MATHtLUCU*  1LD1)  *  ICl)=2»  IU)2) 

7  7/ u  LON  I 1NUL 

•  Kilt  lb. 7024)  2MLAN.  I'Nl  .  ILMSU).  tCHCKtlB) 

00  3  j  :  1 • 1 1 62d » o  1 2 

L  -  J  *  oil 

IF  lIPNNIU  .tO.  £1  GO  10  b 
*H lit  lb#  7021 1  (GOLOUT 1 1 1 « 1=J.LI 
GO  1 0  f 

to  IKHIII  <b«  7022)  (GOLOOT  U  I  *  1=J.L) 
f  LONIINUt 

IF  (GOLOUTILU)  .tO.  U • I  GO  10  21 
0  CONI iNUt 
21  LONIINUt 

•  Hilt  lb.  M2) 

GO  10  LHN. (2.4) 

2  LONIINUt 


I  IMtA  =  HlMtO  -  I  I  Fit  2 )  •  lo.6bbb6  7.bUM  OF  I  iMtb  UbtD  DUHJNG  LALLb 
10  tOb. 

ll^tU  ~  UIMtO  -  lIMtl)  ♦  I  o .  bbbbb  7 .  TOTAL  1IME  UN  M ILLI  SECONDS  1 
OtTmttN  STmH I  OF  HUN  ANU  L Ab T  CALL  TO  tOb  FOH  IHt  LAST  INPUI 
LAHU. 

TIMtC  -  T IMt A/XNP IS.  mFttHt  XNPTb  lb  THt  TOTAL  NUMBtH  OF  THETA-RMO 
POINTS  FKOM  THt  LAST  INPUI  CAHU. 

TlMtl)  z  TIMtb/SUMPTS.  mhtHt  SUMP1S  IS  TFIt  TOTAL  NUMBER  OF  POINTS 
IN  IHt  tNTIRt  GOLtM  HUN. 

ALL  I  IMtb  PR  IN  I  cL)  AKt  IN  MILL  IStLONDS 


mRITt  (b. 702b) 

•Hilt  lb. 702b)  1IME1.  I IMt A .  TIML2.  TIMES.  TIMES.  TIMEC.  XNPTb. 
1  I  I  MtU .  SUMP  lb 


17  LONIINUt 
CALL  tXI  T 

HtlUKN 


12  LONIINUt 

C  1  HAIL  Z  1,  SPtLIAL  2Mt AN  PATH 

•Hlltlb. 72 01 
IU10TS  OKLMll)  ♦  ,b 
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(.ALL  tIONX  (l . .  l.  »  1010)  #-i.  ) 

•KDLIbi  701)  OKLM(l)  .  AN  •  HHl  »  T  LMS  (  3 ) 

OC  10  10 
C 

lb  LON) i NUL 

«K 1  )  L  ( 0 »  /S3) 

LALL  tXl I 

ML  1 1 'HU 
C 


L 

L 

L 

C 

L 

C 

L 

t 

C 

t 

C 

C 

L 

C 

C 

C 

C 

C 

c 

t 

c 

c 


c 


1UU  LONMNUL 


IKAlL  =  11.  Rt  AO  OlAHHANOOS  DATA  CANO 
OlAHHANOOS  OATA  lb 

MONU(l)  =  TMLTA  OK  NHO  mON0(2) 

LNtKOT  MONO ( 4 ) 


wOKO l 3) 
LION  lb 
HONO(b) 

mono ( n 
)  N  A  1 L  = 


HNESSURL 

LION 


IML  OlAHHANOOS  NAME  F ON  LIONIZ 


=  KNOb  MONO ( b )  =  KHLK 

=  2UAH  MONO  ( 0 )  =  LOAM 

12.  Ht.AO  OlLMUNt  OATA  CANO  (SLL  TNAIL=11  HATH.  COMMENTb ) 
OlLMONL  OATA  HAb  WONO(l).  AMO  W0N0<3)  AS  IN  OlAHHANOOS.  ANO 
MUH012)  =  H  (0TNtb/LM2)  AND  W0N0ST4)  THNU  (8) 

AML  NO!  UbLU. 

INA1L  =  13.  ML AO  MlLSLFNAlH  DATA  CARDTSLE  TNAIL=11  HATH . COMMLN I S) 
HILbLNNATM  OATA  MAb  MONO(l)  =  T  <0£G.  KELVIN)  ON 

LOO ( NHO/NLFLHLNCE-KMO ) .  (MHENL  NEFENENCt-NHO  IS  W0RD(2> 

ON  CANO  M1TM  1  IN  WONO(l)) 

MONO ( 2 )  =  HEFLNENCL  NHO  (O/LL)  ON  H  ( ATMOSPHERES) 

MONO ( 3 )  =  L/Nt 

MONUb  (4).  (b) »  ANO  (b)  ANt  NOT  USED 
MONOin  =  1.VV1  •  ( 1  •  *2b  AH ) 

MONO ( b )  lb  NOT  ObtO 


MLAO ( b* 73U  I  (HEAO(l).  1  =  1.12) 

NHllE(b.732)  (HLAO(l).  1=1. 12) 

NtLHHb  -  U. 

NLLLNO  =  0. 

NLLE2  =  U. 

NLL2LM  =  U. 

NLL10M  =  U. 

102  NLA010./J4)  (MONO(l).  1=1. N) 

IF  1  MONO ( 3 )  ,NL.  0.)  00  TO  104 

IF  MONO ( 1 )  ,L0.  -.4.  tNO  1NP0I  ANO  60  TO  NEXT  TNAIL  CARD. 

TO  LNO  OlAHHANOOS  SLT »  OSE  CANO  HUNCHED  M 1 TH  -.41)  IN  COLUMNS  1-4. 
IF  A  ULANK  CANO  FOLLOWS  OlAHHANOOS  CARO.  HHOOPAM  GOES  INTO  EXIT 
IF  ( Abb ( MONO ( 1 )  ♦  .4)  .LI.  ALLX)  GO  TO  103 
IF ( MONO ( 1 )  .LU.  0.)  00  >0  11 
IF  t  THL  I A  ( 1 )  .NL.  MONOID)  WN11E(b.712) 

1FONA1L  .LL.  12.)  THLTAU)  =  MORO(l) 

IF  (  IKAlL  .EU.  13.)  II.LIAU)  =  MONO  ( 1 )  /  1 . 160S4L4 
1FITNA1L  .LU.  13.)  NEFNHO  =  W0RD(2) 

00  10  102 

103  I1MLL  =  T1MEA/XNHTS 

WK1IL  ( b. 700 )  TIMEC.  TlMLA.  XNHIb 

T1MEC  UNITS  ARt  MILLISECONDS  RLH  COMHUTA 1 1 ONAL  POINT. 

00  TO  10 
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1U<*  LONIlNUt 

IM1KA1L  .Lt.  12. (  HOaUI  =  WOKU(i) 

IFllKAIL  .Ed.  13.)  =  t  XI’  l  *0K0  (  1  )*2.302b8bl  )  •  KEFRHU 

SVIli:  l./KOMti) 

IM(UMMll)  ,tO.  0.  .OK.  OKLUkll  ,L3.  3Ub.)  .AI.U.  KOMUI  .Of.  1U. 
1  . ANU •  Hi  A  , NE •  U.)  bU  10  1  U2 

IFllKAIL  .Ld  13.)  <*ONUkZ)  =  »ORl)  (  2  )  *  1 . 0 1 32b 
IF  (  '.KAIL  .Nt.  13. (  00  HI  10H 
AUKU(/(  =  WOKO»  71/1.991  -  l.U 
AUKI)(3)  =  W0KIM3)  «  f  HtT  Alii  «  3.3312097tlU 
108  LONTlHUt 


IF 

(1KA1L 

.Nt. 

12.  I 

*01(0(2) 

=  *ORt)(  2 1 

*  l.tfa 

IF 

( (KAIL 

.tu. 

11.  I 

AK1 It (bi 

i  73b ) 

IF 

k IKA1L 

•  to. 

12.  ( 

AR1  (Ho. 

i  73b( 

IF 

( IKA1L 

•  to. 

13.  ( 

WKilttb. 

i  73  / ) 

IL 

kb* 73B( 

THt 

(All( 

•  KOA(ll. 

'  (AORD(I)i 

1=2*6 

AKltHO#  739( 

AbblOli  lib  TO  LKtlN 
00  (0  ObllU 

lib  com  luut 

IFktlONlZ  .Nt.  U.l  KtL  1UN  =  1.E2  ♦  (A0RU(4(-E10N1Z)/W0RD(4> 
KtLKKb  =  II»0RUI2I-M1  (1  I  )/A0Ml)(2(«l.t2 
KtLtNO  =  (A0Kl)(3(“Ell(  >/ftOKU(3)*l.C2 
KtLt2  =  (*0RU(3(-L(llFtLHCK(16)(/»0KU<3>  •  1.E2 

IF  (*rOKU(7J  .Nt.U.  (KELZUM  =  ( WORD ( 71-FEW ( 1 > > /WORD ( 7 ) *1 ,E2 
AlU  <Lkb*74U)  RtLHKb*  KtLtNO*  KtLZBH • RELE2 * KtL ION 
OAMMA  =  U. 

LNOAMA  S  U. 

00  10  1U2 
C 

2UU  LON  I  lnUt 

t  (RAIL  =  4.  COMHUTt  UHLIA.  TAUC  HECTANOLE  AROUNU  CENTRAL  POlNl 

AK 1  ft tb*  722) 

AN* ft (to*  716(  OtL IHT .UtLTAU 
bAVTAU  S  bV  ( 1  ( 
bAVlht  S  (HtTA(l) 

THtlAll)  =  bAVIFlT  -  b.U  •  ULLIHf 
IlMtA  =  U. 

L>0  2 AO  N 1  - 1  >  1 1 

SVIH  S  bAVTAU  -  b.O  •  UtLlAU 

IF  I lHKN10.Nt.2  .ANO.  1KKNTU.NE.3I  AR 1 Tt ( b* 712 ) 

00  2 1 U  N2- 1 *11 
KOWll)  =  l./bV(l) 

Abb 1 ON  2Ub  TO  LHtIN 
00  10  bbUU 
2Ub  LONIlNOt 

bVUI  =  bV(l)  ♦  UtLTAU 
21U  LONIlNUt 

(MtTAIH  =  TFIETAU)  ♦  UtLfMl 
22U  LONIlNUt 

IlMtC  =  IlMtA/ANKIb 
wH  I  ft  (b*  70U)  TIMtC*  T IKEA*  XNRTb 
00  TO  1U 
C 

4UU  LONTlNUt 
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L  IKAIl  =  o.  MOLcLUL AH  tOUAIiON  OE  STATE  CHtCKOUT  St T 

AH  1  I  L  <  b  «  /.14  I 

IIMcA  =  U. 

DO  42J  1=1, bU 
El  =  1 

lMtlA(l)=  E I*S.t«:/l.lbUS4t4 

It-  <  IHHNTU.NE.i!  .ANU.  1HHNTU.NE.3I  WR  I  Tt  t  6 ,  7  li! ) 

DO  *^u  J=1 ,12 
JJ=  11-j 

Sv(l)=  1U . * • Jj 

HOW(l)=  l./SVtl) 

ASS 1 ON  4 1 0  TO  LKtIN 
00  10  OSUU 

4 1 u  tom  Mot 

4iiU  LONlifJUt 

IIMtC  =  TlMtA/XlHIS 
HHllL  (b./UU)  TiMtC.  1  lf'L  A  <  XNHTS 
00  (0  1U 
C 

suu  oorniNUt 

0  IHAlL  =  U.  NOHMAL  OH  1 U  Ot-  TEMHtK A TURt-DtNSl T Y  HOINTS 

0  IKAIL  =  S.  NOHMAL  OHIO  Ot-  SELtCTED  TtMHtKA TURt-DtNS /  T Y  POlNlS 

C  IHAlL  =  B.  OHIO  Ot-  ILMl'tHAIURL-LOw  DtNSITT  l.Lt.  .1)  HOINTS 

0  IHAlL  =  y.  OHIO  Ot-  TtMl'tHMlUHt-HIOH  UENSllY  (.Ot.  .01)  POINTS 

c  IHAlL  =  1U.  OHIO  Ot-  UtNSl  I  ltS~LO«K  TEMPERATURE  l.Lt.  10  E.V.) 

t  Trail  =  14.  normal  temhehaiure  set  at  one  selected  density 

c  IHAlL  =  IS.  NOHMAL  DENSITY  SET  AT  ONE  SELECTED  IEMHERATURE 

1MTHA1L  .EU.  U.)  WK 1  T  t  (  b .  I  <it> ) 

It- (IKAIL  .EU.  S.)  00  TO  SU* 
it i trail  .to.  w.)  wnntib./uB) 

IKIHAIL  ,EQ.  y.)  WHIltlb./UV) 

1MIHAIL  .tO.  1U.)  hl(llt(6*/lU) 

IE  ( I  KAIL  .(  0.  14.)  WR 1 1 1  (  b »  /ID 
IE  (IHAlL. tO. IS.)  MH1  Tt  <  b,  7i!S ) 

00  10  SU4 
SUi»  CONIlNUt 

*HI  lt(b#  V46)  TMt 1  A ( 1 )  » UtLTHl  .ROW  (  1 )  ,  DEL TAU 
IHtILO  =  T  MET  A ( 1 ) 

THtTHI  =  DELTHI 
KltOLO  =  HOW(l) 

KH0H1  =  UtLTAU 
SU4  LON  I  II, UL 

WKilt(b»/42>  IttAlA 
W  H I  I L  ( b  »  f  07  ! 

WH1  lt(b,744)  HMA 
IlMtA  -  U. 

•  Hi  IL  (b,  m) 

00  SJU  1=1. 2SU 

IE ( THAT  A ( 1 )  • EU .  U.)  00  TO  S40 

1EI1HA1L  ,tu.  S.  . AND. ( THAI  A ( 1 )  ,0T.  THtTHI  .OR.  THATA(l)  ,LI. 
£  IHtILO) )  00  10  S^O 

1EITHA1L  .tu.  1U.  .AND.  IMAIA(I)  ,GT.  10.)  00  TO  S4U 
IFt THA1L.NE.1S. I  llltTA  1 1 )  =  THAT  All) 

ie  (Ukail. ut. i4.)  .anu.  uphnto.ne.  j»  .and.  i ihrnto.ne.2) ) 

1  WHl  IE  '6. 712) 
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lM«0ltl.t0.1)  «K 1 1 t I b«  TbU ) 

IMHO  It  I  .tO.  1.  ANU.HPlA.Nt.U.  I  OKI  TEIb.  763) 

00  S2U  o=i.2bu 

iMHuAIJ)  .tO.  U.U)  00  TO  S2b 

1MIKA1L  .tO.  b.  • ANU . I KMA ( 0 I  .01.  KHUHl  .OR.  RHA I J )  ,LT . 

2  HhULO))  00  TO  b2U 

IMlHAlL  .to.  B.  .AND.  RmA(J)  .01.  l.E“l>  GO  TO  b2U 
IMIHmIL  .tO.  O.  .AND.  RHA(J)  .LT.  l.E“2»  GO  TO  b3U 
Ih  (  I  MAIL  .Nt.  14.1  KOIUI  =  KHAIJJ 
SVIl)  =  1. /KOMI  11 
AiblON  01 U  TO  LKtIN 
00  (0  USUU 
blU  tOill  li.Ut 

1M  fKrtlL.tO.14.  »  O0  TO  b3U 

b2u  coni i nut 

S2b  CONIlNUt 

1H IKAlL.tO.lb. 1  GO  TO  b4U 
SJU  CONIlNUt 
b4U  CONIlNUt 

IlMtC  =  T1MEA/XNP1S 
MK lit  lb. 700)  IlMtC.  I IMt A  >  XNPIS 
00  10  1U 
C 

bUU  CONIlNUt 

C  TKA1L  =  7  COMPUTt  IIHEIA.  KHO)  RECTANGLE  AROUND  CENTRAL  P01NI 
MKlTtlb. T22I 

MK1  1 1  It  •  / 1  7 )  DtLHlT.UtLRHO 
SAVKllO  =  ROM  I  1 ) 

SAVThT  =  I HLT  A  1 1 1 

iHtlAll)  =  SAV  III  I  -  b.U  •  ULLTHI 

I IMt A  =  U. 

00  62U  Nl=l . 1 1 

ROM  II)  =  SAVKHO/ (UtLKHO**b) 

It  I 1PHNTU . Nt • 2  .ANU.  1PKNT0.NE.3I  MR1TE 16.712 ) 

UO  610  N221.ll 
SVIl  I  =  1./H0MI1) 

ASSIGN  bUb  TO  LKtIN 
00  TO  bbUU 
bUb  CONTINUE 

HON  I  1 )  =  ROW  II)  •  UtLKHO 
blO  CONI INUt 

IlItTA  1 1 )  =  THE  I A  1 1 )  ♦  UtLTHI 
b2U  CONIlNUt 

IlMtC  =  T 1MEA/XNP I S 

nKI Tt  lb. 7001  IlMtC.  IlMtA.  XNPIS 

00  TO  1U 

NKI Tt  ANU  PUNCH  STATtMENTS  ••••• 
bbOO  LONTlNUt 
6602  CONIlNUt 

IMMOTtl  .tO.l)  00  TO  JUU 

1MI0KLMI1)  .to.  0.  .OK.  OKLMIll  .EO.  30b.)  .ANU.  KOW(l)  .GT.  1U. 
1  .ANU.  K1A  .Nt*  0.)  00  TO  bbbU 
GAMMA  =  0. 

LN0A.1A  -  U. 
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t  V0L-  0. 
L10NI2  =  u. 
XNPIS  =  XNPTS 


1  . 


SLI  LUSPAH(JG)  .Ll.  0, 
It-  (LUbPAH  (  Jb)  ,Nt. 
CALL  (  ICKLH ( I IMfc/l 


10  CALL  tOb 
U.)  GO  TO  bbl)3 


Ib.b6b6b7  ♦  T i A 


CALL  LOb(l) 

CALL  I  1CKLH(  T  IMLO) 

•  l*tA^  (  I  1ML i  -  I  lMLi.’) 

IE  (M0X1L.lQ.2U/)  bO  fO  bbUO 
LbAM  =  1.  ♦  L*1  l  1  )  *b\/  (  1  )  /  ( L  <  1  ) -LCMCK  (  1 0 )  ) 
tbA-V  SI,  ♦  Pl(l)*bVO)/Ld) 

1)-  t  L  lUNI  1  )  .NL  .  U.  )  LbAM  1.4LI0N(7)  *E1 ON (2 )  /  1 1 ,  S*  1 LMS  ( Q )  I  ON  (  1  )  ) 

1)  (  lFKNTO.LU.2  .OH.  XHHUIU.LU.J)  GO  10  bSOJ 

•  HUUbi/UJ)  TMLlAin#  HOW(l>.  bV (  1 )  <  PUlli  E(l),  evil)*  PHI  (  n  » 

1  ELW(l).  AbO(l) 

bbOJ  CONtINUL 

C  SLI  LObPAH(Ob) .LG.U.  TO  CALL  LOS 

t  SL  I  LObPAN  (  07  )  ,  Lb  .  U  .  (0  AVOID  KAPHA 

IE  ( tObPAK  (  J  /  )  ,  UL  .  0.  )  00  TO  bbU2 
bbUl  CONI 1NUL 

lE(OE.LMl)  •  oL  •  ifUl.  •  AND.  OKLMU)  .LE.  JOO.)  GO  To  6S30 
IK2HAH  ,  LO.  U.)  00  10  bblb 
L 1  ONI /  r  L ION ( M I -1 . b»LION(l > * ILMb IS)  4LCE1CKdfl) 

CALCULATION  Oh  ILMS(IO)  HLMOVEU  ULC  AlJbL  EIONX  APPMOX I  MAT  1 ON  IS  GOOD.  L.N. 
LNbAMA=  TLMbdOI/THLlAd) 

1E(LNGAMA  ,01.  0U.U2B)  OAMM  A  =  l.LJS 
IEILNGAMA  ,LT.  (-UH.mbNH7 ))  GAMMA  =  l.E“JB 
IE (GAMMA  ,LQ.  O.)  GAMMA  S  LAP ( LNOAMA ) 

IE ( (GAMMA.LI  .2.71B2M1U)  .AND.  (IPKnTU.NL.2  .AND.  IPRNT 0 . NE . 3 > ) 

1  WHllL  <b.71b) 

NbUHLS  ( b . U24  7L2 J/ I Lfb( 0) ) »2bAR*H0W ( 1 ) 

GO  10  bb20 
bblb  C0N11NUL 

IE  < lPHNTO.NL.2  .AND.  I HUNT U . NL . J )  WHITE  (6.728) 
bS2U  iEdPHNIU  . LCI •  II  GO  fU  obJU 

IE  (IPHNTO.LO.2  .OK.  IPHNT0.LU.3)  GO  10  bS04 
lUCNb  r=  HON ( 1U)-LI0N( 1 )»LION( UdElONl 7) 

KLLCMb=  iHCNbl/LIONdO) 

KK=  1 U*NOLMN I  -  b 
KKK  -  I0»NOLMM  ♦  1 

WH1 iLIb! 701) (CION (ft)  .K=l. 20) . ( lLMb(K) »K  =  1» JO  1 . SNAFU. GAMMA , LNGAMA » 
NbUUL*  IHCNbl  .HLLCNb 
wHl TL (b. 7U1)  (2(K) »Kr2»KKK) 

IE (M0A1L.L0. 101  I  WHI 1L (6. /01 ) ( ILMbbIK ) .KS1. lb) 

IF  ( M0X1L  .LO.  b  .OH,  MOXIL  .EO.  J06  .OH.  MOXIfc  ,tQ.  102) 

1  WPIIL  (6.701)  (CAHUNKK)  »K=1.1U) 

WHItL(b>/O2)ll*I2«IO.I‘*.lb»16.I/.IB.I9.IlU»M(I)»(M(K).K=4»KK»10). 

2MA TEHL* ILLMN1 » J1 * J2» JJ. J4 . Jb*J6> U / 

C  LOU 1VALLNCL(J2»L0) 

IF (NOLMNF . LO. 1 )  WHITE (b. /Oil  P01LNL ( 1 1 ) . POTLNL » I J-I ) .POTENLJ  U) 
bbJO  CONTINUE 

IE  (IPHNT0.LU.2  .OH.  IPHNTU.LO. J)  GO  10  bS04 
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IFItPHNIU  .t«.  1)  WN1 Tblb#  Tb2)  bNAFU#  GAMMA » LNGAMA#  PHI »  TLMS  1 10) 

1  #NbUbt#  THCNbT  *  KtLCNb#  UPUTAU#  t!0NU4) 

4KDttb#?«)lb>  tG AM#  tGAP2»  tGAMb#  E10NI2 
M  llPNCHU  .tO.  1)  GO  fO  bb4U 

IF  I  I I PNC. 10 .LU. 2 .OH . IPNLHU.tU.b) .ANU.TRAlL.tQ.il.)  PUNCH  721*MOXlt# 
lTHtTA(l) »KOMIl># IwOKUlK) #K=2»8) 

IF II IPNCHU.EG.b.OH. lPNCHU.tG.4) .ANU.THAIL.tQ.il.)  PUNCH  727# MOXlt# 
IT MET  A  1 1)  #HOW  ID# HtLPHb » HtLtNb •  KtLt 2 »  KEL2HH •  HtL  1  ON 
PUNCH  104.  MOXlt  »lHtlAID»KOWIDiPltD»tll>)CVID#PBlll>#FEWtD# 

*  AbUll) 

IF  I IOKLM ll).Gt.*0l.) . ANU. IOKLM I 1 ) . Lt • 300 • ) )  GO  TO  bbOO 

PUNCH  711#  MOXlt#  THtTA(l)  •  HOW  ll)>  Pill)#  EUI#  GAMMA#  TLMSIIO)# 

*  Ftwll)  •  tlONi* 

PUNCH  71b.  MOXlt# IHtTAIl) »HOWI 1) » UPDTAU#UPDT)IT#U2UT AU.02DTHT# NLAH • 
1  NbUbt 

bbUO  LONTlNUt 

PUNCH  714.  MOXlt#  THtTAIl)#  HOWtll#  Pill)#  till#  EGAM#  EGAM2# 

1  FtWll)#  tCHCKIltl) 

IF • IOKLM I l).tG#b<) .OK. IOKLM 1 1) .tU.bOb. ) .AND# IRIA.Nt.O.) ) 

1  GO  10  bblU 

bbll  LONTlNUt 
bbbO  CONTlNUt 

bb40  IFIITHA1L  .Lt.  10.,'  .OH.  I  (HAIL  .GE.  14.1)  WHITCI6»707> 
bb4l  CONTlNUt 

00  TO  LKLTN# 114# Ub»blO*2Ub#410#b0b) 

6bU2  CONTlNUt 

CALL  KAPPA  1 1 • 1 ) 

IF  I IPHNTU.tU.*  .OH.  IPHNTO.EU.b)  GO  TO  bbOb 
WHlTtlb# 7100 )  THtTAIl) #HOW 1 1 ) • SV 1 1 ) • OKLMl 1 ) .CAP AH  ID  #CAPAC ( 1) # 
*FE*U> 

IF  I 1PNCH0  .Nt.  1)  PUNCH  71U1.  M0X1E.  THE  I A ( 1 ) r  H0WI1)#  FEWIl)# 
d  CAPAHI1).  CAPACI1) 
bbUb  CONTlNUt 

IF  1 1 tOSPAK I bb ) . Nt  <  U  • )  .AND.  HPRNTO.tQ.2  .OH.  1PRNT0.EQ.3) )  GO 
1  TO  bb04 

IF ItObPAHIbb) .NE.O. )  GO  TO  6bbO 
GO  TO  bbOl 
bbU4  CONTlNUt 

GOLOUI IMAHKEH)  =  IHtTAIl) 

GOLOUI IMAHKtH  ♦  1)  =  HOW  1 1 ) 

GOLOUI  IMAHKEH  ♦  2)  =  PHD 
GOLOUI IMAHKtH  ♦  b)  =  til) 

IF  ItObPAH ( b7)  .tQ.  0.)  GO  TO  6bl2 
GOLOUI IMAHKtH  ♦  4)  =  CAPAHI1) 

GOLOUI IMAHKEH  ♦  b)  S  CAPACIl) 
bblb  CONTlNUt 

GOLOUI IMAHKEH  ♦  b)  =  FtWID 
GOLOUI IMAHKtH  ♦  7)  S  CVI1) 

GOLOUT IMAHKEH  ♦  bl  -  PHI ID 
GOLOUT IMAHKEH  ♦  0)  S  AbQll) 

GOLOUT IMAHKEH  ♦  1U)  =  tGAM 
GOLOUT IMAHKEH  ♦  11)  =  tGAM* 

IF  I tGAM  .EG.  LGAM2 )  GOLOUT I  MARKER* 1 1 )  S  GAMMA 
MAHKtH  =  MARKtH+12 
GO  TO  bb41 
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bbl2  C0NI1NUL 

OOLOUT ( MAKKER+4 )  S  EIONI^ 

If-  (LObHARI 1) .NL.U.  .AND.  LION! 17) .NE. 1. )  OOLOUT (MARKERS)  = 

1  CION ( 17 ) 

C  LION (17)  s  NBAK 

O0L0UI  (MAKKLK+b)  =  ILMbtlU) 

00  10  bblJ 
bblU  LONllNUt 

lb AVMX=  MOXIL 

M0A1L-  b 

LMOL=  CAKHN/ll)  ♦  ECHCM1B) 

HUNCH  72.li  MOXlE* IMLTAI1) iKOXMl) »EM0LfP1(1) * ICANBN2IK) tK=3»6) * 

2  NUAK»LLHCK(1B> 

MOXIL—  1SAVMX 
00  IO  bbli 

bbUU  CONTINUL 
CALL  Lb7 

KLL  HI  =  I LION ( 7) “PI ( 1 ) ) /LION ( 7 ) 

KtL  H2  -  CL10N(73~P1C1))/P1C1) 

WHITE  ( b*  7U1V)  THLTA<l)»HO«ll)»LlA*Pim*E10N(7)*REL  PI*  REL  H2 
HR1TE  l  b» 701 )  LION 
White  tb./Ol)  LIlliCVIl) 

HUNCH  7.31*  M0X1E ' 1 HLTA I 1 ) • ROM 1 1) *P1 1 1 ) *EION( 7 ) *  KLL  Pl'REL  P2*t(l)* 
1  LrON(J) 

00  10  bb41 
3UU  CONTINUL 

CALL  UVCHM  IPAKL) 

CALL  I1CKLHUIML2) 

1  HUT  AS  THtTAtl)*l.t-3 

CALL  LObMOT (MOXltl . l*bV ( 1) # THUTA  * ANb ) 

Hllli:  ANb*l.Llb 

CALL  LObMOT (M0XILl*2*bVll)*lHUTA  *ANS) 

Lll):  ANb*l.Llb 

CALL  CObMOT I M0XIL1 * 3*SV ( 1)  • THUTA  *ANS) 

CVH)=  ANb*l  itlJ 

CALL  L0SM0T(M0XIL1*4.SV<1) • IHUTA  •  ANb) 

PBldls  ANb*l.tlb 

THUTAS  THUTA»»4 

CALL  LObMOT C M0XIL1 *b*SV ( 1) *  THUTA  tANS) 

XLMOA=  ANb 

CAHAHTUS  1.37*SVIlJ/ANb 

CALL  TICKEK(TIME^) 
bAVLH-  Pl(l> 

bAVEL=  till 

bAVLCV-  CVIll 

bAVLPHS  PB  Ml) 

T 1MLA—  UIML3  -  T1ML2I  •  Ib.bbb6b7  ♦  TlMEA 

IP ( HH1A<L0<U< )  00  TO  lUb 

IHLTA4S  THLTAI1)**4 

Pl(l)=  PHI)  -4b.bb7*TMLlA4 

HtllU)s  PU1(1>  -1J7.U*THL1A4 

E 1 1  )=  EU)  -U7.0*lHLTA4*bV(l) 

CW(1)=  CV(1)  -b4B.0*THLIA4/THLTA(l)*bVtl) 

10b  CONTINUL 

HKlTL(b>7bl)  MOXlL»TMLlA(l>*KOXHl)*Plll)»Eli)  *CV 1 1 ) *PB1«1 ) *CAPAH 1 1 
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1 ) * XLMDA 

IFCRPIA.NE.U.)  *RlTt(b.7b2l  SAVEH.SAVEE.SAVECV.SAVEPB 
lHlHNCHO.Nt.il  HUNCH  /721.MOX1E . THETA! I > .RO» ( 1 ) .PI ( 1 ) .£ 1 1 ) . 
1  LV(1).PU1I1)»CAPAR( II .XLMDA 
00  TO  LHtlN*  (1H. lib. bill. 2US.V10.b0b) 

. .  F  0  H  M  A  T  S  . . . . . 


•••••••••••••••••••••A*  ntAU  FOHMATS  **••••••••••••••••••••• 

706  FORMAIIPV.O*  FV.l*  211.  F10.0.  1H2E1S.H.  UPFV.O*  1H2E12.6.  121 
7 JO  FOHMA I ( 12Ab) 

7JH  FORMAI (btlO.V.  2F6.JI 
7S1  FORMA I  I  ll'tb.  J) 


•••*••••••»••••••••••••  wNirt  formats  ••••»•••••••••••••••••• 

700  FORMAT  OUHl  TIMtt  =  .ElJ.b.  JX.  1JH=  T IMtA/XNPTS  /10H  TIMEA  =  . 
ltlJ.b.JX.  blHS  bUM  OF  I1MES  UStU  DURING  CALLS  TO  EOb  COR  EOSMOTJ  / 
210M  aNHIS  =  .tl J.b. JX.bOH-  TOTAL  NUMBER  OF  ThETA-RhO  POINTS  FROM 
JIHL  LAbl  1NHU1  CAHU.  /<*0HU  ALL  UMtb  PRINTED  ARE  IN  MILLISECONDS.  I 

701  FOHMA1  (1H  .  lPlOtlJ.bl 

702  FORMA  I  I1H  .  10C1X.110I  I 

70 J  FORMA  1  (1H0  .  JX  1PVE1V.7) 

70b  FORMA f ( 10H0OKLMC 1 1  =  Fb.l.  JX  /HI RAIL  =  Fb.l.  SX  8HIPRNT0  S  12.  3X 
2  bHIPNCHU  s  12.  Jx  JHJ  S  12  //IX  10HTHETAI1I  s  lPElb.8.  5H  E.W.  JX 
J  bHRHOCll  s  tlb.tt.  OH  G./C.C.  3X  7HSVC1)  =  E15.0.  OH  C.C./G.) 

70/  FORHA1C//I 

700  FORMA1 (b/HO  GRID  OF  NORMAL  ItMPtRA (URE-LOH  DENSITY  POINTS  IFROM  .1 
2  G/CC  UOmNI / ) 

70V  FORMA  I (67H0  GRID  OF  NORMAL  I EMHERATURE-H16H  DENSITY  POINTS  IFROM  . 
201  O/CC  UP) /I 

710  FORMA I (SOHO  GRID  OF  NORMAL  DENS I  T 1ES-LOM  TEMPERA  I URE  (BELOW  10  t.V 

2.1/1 

712  FORMAT  (  1H1I 

71b  FORMA  I CbJHO  •••••  NOTt  THAI  GAMMA  HAS  LESS  THAN  2.71B2818  •*•••/) 
716  FORMAT I1SH0  DELIA  THtTA  s  1HE12.S.  VH  EV  5X  12H  DELTA  TAU  =E12.S» 
1  brl  CC/G) 

71/  FORMAT  I IbHO  DELIA  THE1A  s  lHtl2.b.  VH  EV  SX  12H  DELTA  RHO  =E12«b. 
1  bH  G/CCI 

710  FORMA 1 (ObllO  READ  ONE  CARD  HER  TEMPER ATURt-DENSITY  POINT.  PERFECT 
IDAS  IF  I RAIL  (INPUT)  EOUALS  2. /I 
71V  FORMA  I (4bH0  NORMAL  TtMPERAIURE  StT  AT  ONE  SELECTED  DENSITY  /) 

720  FOHMA1I20HO  SPECIAL  ZMEAN  PATH///) 

722  FORMA  I ( VUHO  COMPUTE  RECTANGLE  AROUND  CENIRAL  POINT///) 

/ 2V  FORMA) (J8H0  MOLECULAR  EQUAIION  OF  STATt  CHECKOUT///) 

72b  FORMAT  (WHO  NOHMAL  DENSITY  StT  AT  ONE  SELECTED  TEMPERATURE  /) 

/2b  FORMAT I43H0  NORMAL  GRID  OF  IEMPERATURE-DENSITY  POINTS/) 

72b  FORMAT CHSHO  PEHFECT  GAS  ANSHER.  GAMMA  HAS  NOT  COMPUTED/) 

72V  FORMAT  ( 1VH1THE  SOLID  AHHAT  IS  /ISX.1P10E12.S) ) 

7J2  FORMAT  1 1H0  12Ab) 

7JJ  FORMAT  (VH  0KLMI2 ) r , Fb. 1 ) 

7Jb  FORMAT (28H0  DIAPHANOUS  TYPE  CAROS  HAVE  ) 

7Jb  FORMAT (2bH0  GILMORE  TYPE  CARIS  HAVE  ) 


50 


AFWL-TR -67-131,  Vol  IV 


73/  FOHMAM2BHO  HILSENR/.TH  T  YPL  CAMUS  HAVE  » 

73B  FORMAT!  bX  7HTHEIA  s  1PE12.S.  SH  E.V.  3X 

2SHKH0  s  L12.S,  bH  G/CC  3X  3NP  =  E12.S.  10H  UYNES/CM2  3X  3 HE  S 
3E12.b.  7H  EKGS/G  /bX  bHElUN  =  E12.b.  7H  EHGS/G  3X  bHKPOS  =  Elii.b. 
4GH  CM2/G  3X  bHKPLK  =  E12.b»  bH  CM2/G  3X  bHZBAR  s  0PF7.3.  3X 
bbHtGAM  =  F  7, 3/ ) 

73V  FORMAT ( lbHU  LOb  OUTPUT  lb  I 

740  FORMAT (9H  KtL  P  =  lPE12.b*  3X  7HREL  E  =  tl2.5*  3X  9HHELZBAR  = 
2El*.b.  3X  lbHKEL  (E-EZEKO)  =  E12.b*  3X  13HHEL  IONIC  E  =  EI2.b//l 
742  FOHMA I ( 14H0  THE  I A  bLT  lb/ ( lP10E12.b> ) 

744  F0KMAH12H0  RHO  bLT  lb/ ( 1P1  Ut  12. bH 

74b  FOHMA  f (b4H0  NOHMAL  GK1U  WlIH  bELLCTEO  TEMPERATURE-DENSITY  POINTb/ 
21X.17H  MINIMUM  THETA  =  .F9.3.bH  E.V.  .17FI  MAXIMUM  THETA  =  .1PE12.S 
3* bH  t.V.  ./1X.19H  MINIMUM  DENSITY  =  .1PE1U.4.5H  G/CC.19H  MAXIMUM  U 
4LNbITT  =  .ElZ.b.bH  G/CCI 

7b2  FOHMA I ( bX  7HbNAFU  =  1PE10.3.  4X  7HGAMMA  =  E12.b*  4X  BHLNGAMA  = 

2  E12.S.4X. bHPH 1  =  E12.S.4X.  23HTLMb( 10 1 sTHET A*LNGAMA  =  E12.b 

3  /bX#  BHNSUbE  =  .E12.S.1UH  THCNST  =  .E52.S.10H  KtLCNS  =  *El*.b. 

4  10H  UPOTAU  =  . Lit . b . 12H  L10NU4)  =  »E12.b) 

7b3  FORMAT (b7Hl  J  MUST  bt  SPECIFIED  ON  TRAIL  CAHU  SlNCt  RHORs  E0SPAH1J 
2)  FOH  AIM.  4bH  UbL  J=3  TO  AVOID  tSb  WHEN  MATERIAL  NO.  =  102.  /bIM 
3Ubt  J=4  TO  AVOID  E10NX  WHEN  MATEH1AL  NO.  IS  20ft.  > 

7bO  FOKMAl (1H0.SH0KLM  .SX.bMTHETA  .10X.4HRHO  »7X»  9MPHESSURE  .5X./HENE 
2HGT  • 7X» 7H0EUTHI  .7A./HUEUIAU  .BX.6HCAPAH  . 7X « 7HLAMDDA  ) 

7bl  FOKMAMlHOf  14 • H(2X. 1PE12.S ) ) 

Yb2  FOHMA! (lH0.40X»4(2X.lPtl2.b) > 

7b3  FOHMA I  ( 73H  TmE  bhOHT  LINE  lb  P*  E»  DEDTHT ,  DEDTAU.  WITH  RADIATION 

1  CONTKIUUTlONb.  /> 

7b4  FOHMA I  (SX*  14. 7X.F 3.0i 2X. S(Fb. 0.2X. F9.B)) 

7bb  FOHMA I  ( lbHIMATHEL  AHKAY  lb  //99H  MATERIAL  NO.  NOLMNT  Z  PA 

1HT  2  PAH1  L  PART  Z  PART  L  PARI 

2  I 

7000  FOHMA I ( 1H1  4bX  32H****  STAND ARU  OUTPUT  FORMAT  //IbH  OUlPUl 

2L1NL  1) 

/0U1  FOHMA It  1 IbH  THE  I A 

l(tVI.  HHO  (tt/Ct).  bV  (CC/G).  PI  (DYNEb/CM  SG> .  E  (EHGS/G).  CV  (EHG 
2S/G/E V )  .  Pl»l  (EMGS/CC !  •  FE*»  Ab«  (CM/SEC)  /> 

/ 002  FOHMA I  1 21H0  E10N  ARKAY  CONIAlNb/  19H  OUIPUT  LINES  2.  3) 

/003  FOHMA I (  12bH  THETA  (EV)  .  TAU  (CC/G>*  ZHA 

1R.  ZUAH1.  PHI.  ESUM.  PHEbHR  (DYNES/CM  b«» .  ENERGY  (ERGb/G).  DEDlHI 
2  (ERGb/GM/EV) .  UEUTAU  (ERGb/CC)  /  122H  bNObPD  (CM/SEC).  DPDTAU  IE 
3RG-G/LC  bO).  OPUTHT  (UYNEb/CM  bU/EV).  FAlLUKE  RECORU.  NSUHE.  ZMEA 
4N.  NUAR.  ZbUMl.  ZbUM2<  ZSUMJ/) 

7004  FORMAT (31H  EXPLANA I  ION  OF  bYMUOLS  ABOVE  * 

700b  FOHMA I ( IBH  1)  TAU  =  »  22HbPEtlFlL  VOLUME  (LC/G)  /IBH  2» 

12UAH  =  .  4BHMEAN  ION  CHANGE  (NO.  OF  ELECTRONS  /  NO.  OF  IONS)/ 

ZlBh  3)  PHI  =  .  32H9.b4Bb/9EU  /  MEAN  ATOMIC  WEIGHT  / 

372M  41  ALL  UER1VAI IVES  W.H.T.  TAU  (UEDIAU.  DPUTAU)  ARE  AT  CONbTA 

4N1  THETA.  /  72H  b)  ALL  DERIVATIVES  W.R.T.  THETA  (UEDTHT.  DPUTHT ) 
b  AHE  AT  CONSTANT  TAU.  /  IBH  b)  SNOSPEEU  =  .  b/H( (PARTIAL  PHESHM 

t>) / (PART 1AL  DENSITY)!  Al  CONSTANT  ENTROPY.  /  71H  7)  FAILURE  HECOH 

to  CONTAINS  THE  EHHOH  FLAG  AFTER  CATASTROPHIC  ERRORS.  ) 

700b  FORMA  I ( IBH  9)  NHAH  »  102HMEAN  NO,  OF  ATOMS  PER  MOLECULE. 

1  II  DIFFERS  FROM  UNITY  IF  MOLECULAR  EOUA I IONS-OF-ST ATE  SO  COMPUTE 

211.  /) 
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700 7  FORMA I  (21140  TLMS  ARRAY  CONlMlNS/  2SH  OUIPUT  LINtS  4*  S*  6*  7  ) 
7000  MJKMAM  126M  U*CK1*  HACKS *  MEAN  ATOMIC  W 

lElGHT  *  4  VARIES*  LN  ( GAMP  A*2UAH )  *  XBAR(l)*  2BARLN*  SIGMA*  Xl*  SYNTH 
2b 1 1C  POTENTIAL  (  IsTIiET  A4LNGANA)  /  107H  2BAR  ♦  BACKS  -  240ACK1*  2B 
9AR  -  BACK  1 r  V(1*J>  -  V(1*J-1).  SUMPOT *  U2DTAU*  U2DIHT*  THE  NEXT  14 

4  VALUES  VARY  /41H  SNAP U* GAMMA «LNG AKA * NSUBE *  THC NS T 'HELCNS  /) 

700V  FOKMAM.UH  EXPLANAl  ION  OP  SYMBOLS  ABOVE  > 

7010  P0RMAI(3bH  1)  BACK1  IS  PREVIOUS  2BAR  ITERATE  /  49H  2)  BACKS  IS 

1  SECOND  PREVIOUS  2BAR  ITERATE  /  99H  9)  XBAH(l)  IS  RELEVANT  MOLE 

SFNACT10N  /  4UH  4)  SIGMA  (USED  IN  EIONMS)  IS  VARIABLE  /10H  S)  X 
.M  =  BX  22I4PH1  •  (l./NBAR  4  SOAR)  /  6SH  b)  V(1*J>  IS  THE  UTH  !UN1 
‘-2AI1UN  POIENT IAL  (1  .LE.  J  .LE.  2(D)  /  SOX  3 SHF OR  THE  1TH  ELEMbNl 

5  0>-  THE  MATERIAL  /  79H  71  SUMPOT  (USED  IN  EIONMS)  SUMS  THE  PIRSI 

b  (.*>1)  POTENTIALS  WHERE  1  .LE.  V(J>  /  14H  B>  U2UTHT  =  4X  26M2SUM 
71/2SUM2  (CONSTANT  TAU)  /  14H  9)  U2UTAU  =  4X  2BH2SUM9/2SUM2  (CONS 

b  T  ANT  IMETAT) 

7011  POKMAK/SH  10)  ALL  GUANT1I1ES  INDEXED  WITH  1  ARE  SPECIES  DEPENUEN 
IT  ANO  CELL  CON  I AlNS  /  SOX  SSH0UANT1TY  FOR  LAST  SPECIES  IN  MATERIAL 
S  (l.E.  1  =  NOLMNT ) ) 

7012  format (bOH  id  snafu  contains  a)  19th  iterate  of  2  bar  if  is  .eu 

1.  20  /  12X  2HOR  BX  2BHB )  2  BAR  IF  2  BAR  .GT.  2 MEAN  /  ASH  12)  GAM 
SMA  IS  DEFINED  AS  THE  DIMENSIONLESS  DEGENERACY  PARAMETER  IN  THE  SAH 
9A  EQUATION  /  46H  19)  LKSAMA  IS  THE  NATURAL  LOGARITHM  OF  GAMMA  / 
49oH  14)  NSUBE=  (U.0S4SE29) *2HAN*RHO/ (MEAN  ATOPIC  WEIGHT)*  THE  NUM 
SBER  DENSITY  OF  ELECTRONS  (NO./CC)  /  96H  IS)  THCNST  s  EION(IU) 
b-  EION(I)  *  E I ON (19)  4  t ION  17 )  I  THtRMOOTNAMIC  CONSISTENCY  DEV1AT1 
/ON  /  B1H  lb)  RELCNS  =  I HCNST /ElONI 10 )  I  RELATIVE  THERMODYNAMIC 
B  CONSISTENCY  DEVIATION  //) 

7019  FORMAM1U7H  THE  NEXI  1  TO  S  LINES  (DEPENDING  ON  THE  NUMBER  OF  ELE 
AMENIS*1  10  S)  ARE  2(2)  ONWARD*  10  VALUES  PER  ELEMENT  /129H  IF  I ME 
B  MATERIAL  IS  CHS  THE  NEXT  S  LINES  ARE  THE  TLMSU  ARRAY*  IF  THE  MATE 
CR1AL  IS  CARBON  THE  NEXI  LINE  IS  THE  CAHBN2  AHRAY*  /40H  OTHERWISE 
DIHESE  LINES  WILL  NOT  APPEAR./  93H  THE  NEXT  LINES  ARE  11  TO  U0*M( 
L1)*(M(K)*KS4*KK*1Q)*MAIERL*.ILEMNI*U1  TO  J7*KK= ( 10*NOLPNT-6)  /90HU 
FEXPLANAI10N  OF  SYMBOLS  ABOVE  /67H  1)  NOLMNT  S  M(D  IS  THE  N 

DUMBER  OF  ELEMENTS  IN  THE  MAIERlAL  /  44H  2)  MATERL  IS  THE  SPUTIEM 

H  MATERIAL  NUMBER  /  29HU  TWO  LINES  MAY  NEXT  APPEAR:  /3X.126H  IF  NOL 
1MNT  =  1*  A  LINE  PRINTS  WITH  1HE  AIOMIC  NUMBER*  VW“1>*  AND  V(J>  (WH 
JERL  V(J-l).LT.SYNPOT.LE.V(J)  WAS  USED  IN  THE  E10NX  /3X.46H  SUBRO 
KUT1NE  UNLESS  )J-1I=0  OK  J=AT0M1C  NO.)  /9X*U1H  IF  lPRNTOsl*  A  L 
LINE  PRINTS  WITH  SNAFU*  GAMMA*  LNGAMA*  PHI*  TLMST10T*  NSUBE*  THCNSI 
M*  RELCNS*  DPDTAU*  E10NT14).  / 

N  45H  THE  LAST  LINE  IS 

OEGAM*  EGAM2*  EGAM9*  E10N12  //6X*29H  EGAMs  1  •  4P1  *SV/ (E**ECHCK  ( 1B> ) 

P/bX* 1BH  EGAMS=  1.4P1*SV/E  /OX.4BH  EGAM3-  1 .4E10NT7) *E 10NT2)/ i l.S* I 
ULMS ( 9) «E10N(  1 )  )  /bX*4SH  E10NX7.S  ENERGY*)  1  .S«THETA4XD  4ECHCK(1S)  > 
7014  FORMAT (23H1  EOSPAH  ARRAY  CONTAINS/T1P10E12.S) T 

701b  FORMA ((GiHOBEACK-BOUY  RADIATION  CONTRIBUTION  INCLUDED  BY  SUBROUlIN 
SE  EOS) 

7016  FORMA)  (SOH  RARX  DECK  CONTAINS/)  1P10E12. S)T 

701f  FORMAT (20H0  EGAM  (USES  E-EOT  =  1PE10.3*  SX  16HEGAM2  (USES  E)  = 

S  E10.9*  SX  23HEGAM3  (USES  THANSL  E)  =  E1U.3*  SX  BHE10NI2  =  E1U.9T 
7019  FORMAT(7hOTHETA=*1PE12*S.SH  RH0-* £12 .5* 1SH  (RHO/RH02ERO)S*E12*S* 10 
1H  PRESSURES* E 12. b* 

SlbH  E10NX  PRESSURES  *E12.S*/ 10  X*SSH  1(P1(D-P  E10NX  )/Pl(  1)  )S*E12.b* 
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S2oH(  IPU1I*H  E10NX )  /P  E10NA)=.E12.S  ) 

/020  f  ohha i  (2*.hi  iHt  material  numbe h  is  »is> 

7  Vi:  l  MJMMAI  ( 1H1 . SX . SH 1  MET  A  »  7X  .  SHHHO.  BX  »2MP1  *  9X  *  1HE  *  4  A*  bMC  APAH/ *  4X  *  bHLAP 
2AC/.SX.SHFEW.BX.2HCV.  7X»  SMPU1  .  7X .  SMAbQ.  6X . 4MEGAM .  HX.  bMEGAM2//44X.b 
SHE10N12.4X.bHSTNP0T»SSX.SH0AMMA/ ( 1M  . lPbE 1U . 3 • OPF H. S» 1P5E10. SJ I 
7022  FOHMA!  I1H1  .  (lPbLlU.S.UPFB.b.lPSElO.  S)  ) 

702S  FuHMA)  UoHUCOMPOSlI  ION  IS  • 1 OX. 1M2 » 8X . 4HPAKT  ./✓ (24X.F4.0.4X. 

1  Fo.an 

7024  FOHMAT  CiHU*  S0X.14H2MEAN  =  .  OPFH .  S/ SIX .  1  4MPM1  =  *  1PE 

112.S/S1X. 14HAMEAN  =  MJt'FV .  S/ SI  X » 14HENEHG  Y  2EKO  =  .1PE12.S) 

7025  F OHM A (  (BSH1  TIMES  NtCOKUtO  PER  GOLEM  HUN  AHE  AS  FOLLOWS  I  ALL  I  1M 

ALS  AKE  IN  MILLISECONDS)  *  WHEHE  /  B7H  1)  XNPTS  =  IOTAL  NUMBEK  OF 
UTHEfA-HHO  COHPU (All UNAL  POINTS  FHOM  THE  LASI  INPUT  LAND  /  B7M  2i 
L  SUMPTS  =  TOTAL  NUMdEK  OF  tHETA-HMO  COMPUTATIONAL  POINTS  IN  I HE  E 
UNI  IRE  OOLEM  HUN.  /  22HU  QUANTITY  MEANING  //  S4H  T1ME1  T1 

EMEl  IS  I  He.  TIME  A I  I  HE  ST  AH  I  OF  tME  HUN  /  70H  TIME  2  TIME2  IS 

F  THE  riME  PHECEDING  EACH  CALL  TO  EOS  (OR  EOSMOT )  /72H  TIMES 
UI1MES  IS  UME  UPON  HETUPN  FHOM  EACH  CALL  TO  EOS  (OH  EOSMOT)  //  101 
HH  riMEA  1 1ME A  =  (TIMES  -  I 1ME2 ) *lb.bbbbb7 .  THE  SUM  OF  TIMES 

iUSEO  UUH1NG  CALLS  TO  EOS  (OH  EOSMOT)  /  H8H  TIMER  TlMEO  =  (T 

JIMES  -  ) 1ME1 ) *lb .bbbbb 1 »  TOIAL  TIME  USED  BETWEEN  START  OF  HUN  ANU 
XL  AS  i  CALL  TO  EOS  (OH  E0S401 )  /1SX.24HF0H  THE  LAST  INPUT  CARD.  / 
LIUbH  ) 1MEC  I1MEC  =  IlMEA/XNPTb.  TIME  USEU  PEH  CALL  TO  EOS  (0 

MK  EOSMOT)  PEH  fMElA-RHU  COMPUTATIONAL  POINT.  /  112H  TIMED  Ti 

NMEU  =  T 1MEB/SUMP1 S»  TIME  USEU  BETWEEN  STAHT  OF  HUN  AND  LAST  CALL  ) 
00  EOS  (OK  EOSMOT)  PEH  (HETA-HHO  /  1SX.  20HC0MPUTAT 10NAL  POINT.  > 

702b  FOHMAT  ( 1UHU  T1ME1  =  .  F14.b»10X.  BHTIMEA  =  »F14.b»/10H  T1ME2  =  * 
IF  14 .  b. 1UX •  8HT1MEB  =  .F14.bi/10M  TIMES  =  . F 14 . b. 1UX. 8HT IMEC  =  • 
2F14.b»/10H  XNPTS  S  .F14,b»10X.  BH T I MED  =  .F14.b»/llH  SUMPTS  -  • 
SFIS.b) 

71UU  FOHMA  T ( 1H0 . SX. 7H  THETAS. 1PE12.S. SH  HHO= »E12 . S. 4H  SVS.E12.StbH  OALM 
2S.0PFb.lt7H  CAPAH=.lPE12.St7H  CAPACs.E12.btSH  FEWS.E12.5) 

••*•*«•••••••••*•••*•*•  PUNCH  FOHMA TS 

704  FOHMA I (  1HA.  14.  F9.S.  1PSE10.4.  OPFB.bt  1PEB.2  ) 

711  FOHMA I (  lHbt  14.  FM.J.lPE10.4.EB.2t2E10.4,0PFll.StlPE9.4.E6.2) 

71S  FOHMAKIHC.  14.  F9.S.  IPSEIU.4.  UPF'b.2.  1PE10.4) 

714  FOHMAT ( 1HU .  14.  F9.S.  1PSE10.4.  OPFB.St  1PE8.2) 

721  FOHMA I ( 1HE.I4.FS. S.bE9. St 2Fb. J) 

72S  FOHMAT (1HH.11.F9. J. IP 7EB .2. 0PFS.2 tEB.2) 

727  FOHMA I ( IMS. 14.F9. S» lPbbll « S) 

7S1  FOHMAT  (lHl.14iF9.Si IPbElU .St  UPFb.2) 

7101  FOHMAT (1HF . I4.F9. S. 1P4E1U. 4 ) 

7700  FOHMAIdHA  IX  SHMOXIE  2X  SHIHETA  SX  SHHHO  7X  1HP  9X  1HE  9X  2HCV  BX 

.  SHPBl  bX  SHF t W  SX  SHASa  -) 

7701  FOHMAT (1NU  IX  SHMOXIE  2X  SHI  MET A  SX  SHHHO  7X  1HP  9X  1HE  8X  SHGAMMA 

.  4X  bHSYNPCl  SX  SHFEW  SX  7MEI0NIZ-) 

7702  FOHMAKIHC  17.  SFMOXIE  2X  SHtHETA  SX  SHHHO  bX  bHUPUTAU  4X  6HDPUTHT 

.  4X  bHU2D.AU  4X  bHU2UlHT  SX  4HNUAH  4X  bHNSUHE-) 

770S  F0HMAK1HU  IX  SHMOXIE  2X  SHTHETA  SX  SHHHO  7X  1HP  9X  1HE  9X  4HEGAM 
.  SX  SHEGAM2  SX  SHFEW  4X  bHECHCK-) 

7704  FOHMAT (lHEtlXtSHMOXlEtbH  THETA.SX.4H  RH0.bX.2H  P.7X.2H  E.6X.SH  E10 
2N.4X.SH  KH0b.4X.SH  KPLK.1X.SH  2BAK. lX.bH  EGAM-) 

7705  FOHMAT (1HF ilX.SHMOXlEtbH  THETA.4X.4H  RH0tbXt4H  FEW.SX.6H  CAPAH.4X. 

2bH  CAPAC.2bX.lH-) 

770o  FOHMA ) ( 1HH. 17H  MOXlE  THETA  MHO  .SX. bH  EMOL  .SX.SH  P  .2X.4SH  DEUIAU 

2  UEUTHT  UPUTAU  OPOTHT  NBAH  tCHCK-  ) 

7707  FOHMAT (1HG. IX. SHMOXIE. bH  THETA.SX.4H  HHO.BX.bHHELPHS.SX.bHRELENb. 

1 SX . SHHELE2. bX . bHKELXBH . SX . 7HHEL ION-  ) 

7720  F0HMA1 (1HM.ISH  MOXlE  THETA  » 2 X » SH  HHO  . SX.SH  P  »bX  SH  E  .4X.3SH  UE 
2UTHT  UEUTAU  CAPAR  LAMBUA-  ) 

7721  FOHMAI (1HM.14.FV.S.1P7E9.S) 

7722  FOHMAT (SHMOXIE* 2*.  SHIHETA.bX.3MH0W.9X.2MPl »9X»2HP2»7X»bHREL  P1»SX 
l.bHKEL  P2.7X»SHt  -) 

ENU 
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GOLEM  INPUT  CARD  FORMAT  (continued) 


COLUMNS 

FORMAT 

DATA 

1-4 

F4.  0 

OKLM(l) 

5-8 

F4.  1 

TRAIL 

9 

11 

IPRNT 0 

If  (IPRNTO  .  EQ.  0),  print 

If  (IPRNTO  .EQ.  1),  no  print 

If  (IPRNTO  .  EQ.  2),  print  GOLOUT 
Array  only  (no  titles) 

If  (IPRNTO  .  EQ.  3),  print  GOLOUT 
Array  with  titles 

10 

11 

• 

IPNCHO 

If  (IPNCHO  .  EQ.  0)  punch 

If  (1PIICH0  .  EQ.  1)  no  punch 

If  (IPNCHO  .  EQ.  2.  OR.  IPNCHO.  EQ.  3) 

.  AND.  TRAIL.  EQ.  11.  )  punch 
DIAPHANOUS  input  in  standard  output 
format 

If  (IPNCHO.  EQ.  3.  OR.  IPNCHO.  EQ.  4) 

.  AND.  TRAIL.  EQ.  11.  )  punch  RELE2, 
RELZBR,  RELICN,  RELPRS,  RELENG 

11-20 

F10.  0 

THETA(l) 

21-35 

E15.  8 

RHO(l) 

36-50 

E15.  8 

SV(1) 

51-54 

F4.  0 

TEST 

55-66 

E12.  6 

DELTHT 

67-78 

El 2.  6 

DELTAU 

79-80 

12 

J 

These  quantities  are  used  as  follows: 

OKLM(l):  A  material  number  used  to  specify  the  substance  under 
study.  A  list  of  the  material  numbers  used  by  the  SPUTTER  code  is  present 
in  the  DIAPHANOUS  writeup,  earlier  in  this  volume. 

TRAIL:  The  specifier  of  the  path  (through  the  temperature-density 
plane)  to  be  studied 

IPRNTO:  Controls  the  type  of  printout 

IPNCHO:  Controls  the  kind  of  punch  output 
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THETA:  Specifies  the  first  input  temperature  (if  one  is  required) 
RHO:  Specifies  the  first  input  density  (if  one  is  required).  Either 
RHO  or  TAU  (see  next  quantity)  may  be  input 

TAU:  Specifies  the  first  input  specific  volume  (if  one  is  required). 
Either  RHO  or  TAU  may  be  input 

TEST:  This  field  is  used  only  to  distinguish  TRAIL  cards  from  other 
possible  GOLEM  input  cards 

DELTHT:  Specifies  either  the  increment  in  temperature  or  the 
second  input  temperature  (if  either  is  required) 

DELTAU:  Specifies  either  the  increment  in  density  or  in  specific 
volume  or  a  second  input  density  (if  any  of  these  are  required) 

J:  This  field  is  not  presently  used 

The  possible  trails  through  the  temperature -density  plane  that  can 
be  used  are; 


TRAIL  =  0. 

TRAIL  =  1. 

TRAIL  =  2. 

TRAIL  =  3. 

TRAIL  =  4. 
TRAIL  =  5. 

TRAIL  =  6. 
TRAIL  =  7. 

TRAIL  =  8. 

TRAIL  =  9. 
TRAIL  =  10. 
TRAIL  =  11. 
TRAIL  =  12. 
TRAIL  =  13. 
TRAIL  =  14. 
TRAIL  =  15. 


T  RAIL  OPTIONS 

Normal  grid  of  temperature-density  points  (see  next  page) 
Special  ZMEAN  path 

Perfect  gas  and  read  one  card  per  point 
Read  one  card  per  point 

Compute  (THETA,  TAU)  rectang1e  around  central  point 
Normal  grid  of  selected  temperature-density  points 
Molecular  equation- of- state  checkout  set 
Compute  (THETA,  RHO)  rectangle  around  central  point 
Grid  of  temperature -low  density  (.  LE.  0.  1)  points 
Grid  of  temperature -high  density  (.  GE.  0.  01)  points 
Grid  of  densities-low  temperature  (.  LE.  10  eV) 

Read  DIAPHANOUS  data  card 
Read  GILMORE  data  card 
Read HILSENRATH  data  card 

Normal  temperature  set  at  one  selected  density 
Normal  density  set  at  one  selected  temperature 
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The  normal  grid  of  points  takes  advantage  of  a  set  of  temperatures, 
the  THETA  array,  the  RHO  array,  and  densities  that  are  built  into  the 
program  in  the  form  of  data  statements.  These  two  data  statements  and  a 
third,  the  EOSPAR  array,  (containing  the  parameters  required  by  various 
equation-of- state  or  opacity  subroutines)  are  gathered  together  in  a  block 
data  program  (called  the  KONTRL  block  data  program).  The  temperature 
and  density  arrays  so  specified  can  be  changed  at  will.  Thus,  the  normal 
path  is  really  as  variable  as  desired.  In  practice,  a  standard  set  of 
temperatures  and  densities  have  been  used.  They  are: 

Normal  THETA  array  /0.  025,  0.  05,  0.  i,  0.  2,  0.  3,  0.  4,  0.  5,  0.  6,  0.  7, 

0.  8,  0.  9,  1.  ,  1.  5, 

1  2.  25,  3.  4,  5.  ,  7.  ,  10.  ,  15.  ,  22.  5,  34.  ,  50.  , 

70.  ,  100.  . 

2  150.  ,  225.  ,  340.  ,  400.  ,  500.  ,  600.  ,  700.  , 

800.  ,  900.  , 

3  1.  E3,  1.  5E3,  2.  25E3,  3.  4E3,  5.  E3,  7.  E3, 

1.  E4,  210*0. 

Normal  RHO  array  / 75.  ,  50.  ,  25.  ,  10.  ,  5.  ,  2.  ,  1.  5,  1.  ,  0.  5,  0.  1, 

1.  E-2.  1.  E-3, 

1  l.E-4,  l.E-5,  l.E-6,  l.E-7,  1.  E-8,  1.  E-9, 

2  1.  0000001E-10,  l.E-11,  1.  E- 12,  l.E-13, 

1.  E- 14,  227*0. 

Similarly,  the  standard  set  of  input  parameters  in  the  EOSPAR 
array  (which  specifies  quantities  used  by  the  subroutines)  is: 

Normal  EOSPAR  array  /0.  ,  488.  ,  -1.  E38,  1.  E38,  6*0.  , 

1  7*0.  ,  1.  E-  18,  1.  E-3,  0.  , 

2  1.  ,  0.  ,  1.  ,  2.  ,  2*0.  ,  3.  ,  2*0.  ,  1.  5, 

3  8*0.  ,  1.  ,  8.  2E11, 

4  1.  ,  2.  ,  8*0. 
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These  array  elements  are  used  in  the  following  way: 


EOSPAR(l) 

EOSPAR(2) 

EOSPAR(3) 

EOSPAR(4) 

EOSPAR(5) 

EOSPAR(5) 

EOSPAR(5)  = 

EOSPAR(5)  = 

EOSPAR(5)  = 

EOSPAR(6) 

EOSPAR(7) 

EOSPAR(8) 

EOSPAR(9) 

EOSPAR(IO) 

EOSPAR(ll) 

EOSPAR(12) 

EOSPAR(l  3) 

EOSPAR(14) 

EOSPAR(15) 

EOSPAR(l6) 


EOSPAR(17) 

EOSPAR(17) 


Controls  usage  of  molecular  equation-of- state  by  EIONX 
to  allow  ES1LMS,  AIRMOL,  and  CMOL,  set  EOSPAR(l).  NE.  0. 

Equals  number  of  entries  in  MARI  deck 

Free  parameter 

Free  parameter 

Controls  ECHCK(18) 

Controls  energy  zero  choice  -  see  comment  below 
5.98566E11  ergs/gm  for  atomization  energy  of  carbonusing  CMOL 
9.63E11  ergs/gm  for  ES1LMS  CH2  computations 
2.899E11  ergs/gm  for  dissociation  energy  of  air  for  AIRMOL 
Controls  EIONIN(l) 

Controls  EIONIN(2) 

Control*  EIONIN(3) 

Controls  EIONlN(4) 

Controls  EIONIN(5) 

Controls  EIONIN(6) 

Controls  EIONIN(7) 

Controls  EIONIN(8) 

Controls  EIONIN(9) 

Controls  EIONIN(IO) 

Controls  EIONIN(ll) 

These  11  colls  can  be  used  to  enter  a  special  material 
composition  to  EIONX  codes.  Set  EOSPAR(6)  =  the  number 
of  elements  in  the  material.  Set  EOSPAR(7)  through  (16)  = 
successive  sets  of  (atomic  number,  atom  number  fraction) 
EOSPAR(6)  .  LT.  5.  5  is  required 

Controls  EIONIN(28) 

For  CMOL  only 

Equivalence  (EIONIN(28),  FESTER),  controls  choice  of  run, 
full- equilibrium  or  translation-only 

Use  EIONIN(28)  .  EQ.  -1.  for  translation- only  treatment 
Use  EIONIN(28)  .  EQ.  +1.  for  full-equilibrium  treatment 
at  GGA;  •  EQ.  0.  or  +1.  for  full  equilibrium  treatment  at  AFWL. 
for  identity  of  results,  use  same  value  of  EIONIN(28)  at  GGA 
and  AFV.'  .. 
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EOSPAR(IS) 

EOSPAR(19) 

EOSPAR(20) 

EOSPAR(21) 


EOSPAR(22) 

EOSPAR(23) 

EOSPAR(24) 

EOSPAR(25) 

EOSPAR(26) 

EOSPAR(27) 

EOSPAR(28) 
EOSPAR(29) 
EOSPAR(30) 
EOSPAR(3 1) 
EOSPAR(3?) 
EOSPAR(33) 
EOSPAR(34) 
EOSPAR(35) 
EOSPAR(36) 

EOSPAR(37) 

EOSPAR(38) 

EOSPAR(39) 


Controls  EIONIN(29) 

Equivalence  (EIONIN(29).  ZBRMIN),  controls  minimum 
allowed  ZBAR 

Controls  EIONIN(30) 

Equivalence  (EIONIN(30),  EPSI),  controls  ZBAR  for  EIONX 
iteration  test 

Controls  M2 

Controls  RPIA 

Set  EOSPAR(21)  .  EQ.  0.  to  include  radiation  contributions 
in  EOS. 

Set  EOSPAR(21)  .  NE.  0.  to  avoid  radiation  contributions 
in  EOS 

Controls  PUSHA 
Controls  MAXLM 
Controls  LMDA(2) 

Controls  SOLID(18) 

Controls  SCYCLE 
Controls  NR 

Set  EOSPAR(27)  .  GE.  2.  for  path  =  0.  in  EIONX 
Set  EOSPAR(27)  .  LE.  1.  for  path  =  -3.  in  EIONX 

Controls  IAM1 

Control*;  IB 

Controls  C7A 

Controls  SOLID(IV) 

Controls  RIB 

Controls  HVA 

Controls  HCA 

Controls  AMASNO(l) 

Controls  EOS 

Set  EOSPAR(36)  .  NE.  0.  to  avoid  EOS 
Set  EOSPAR(36)  .  EQ.  0.  to  call  EOS 

Controls  KAPPA 

Set  EOSPAR(37)  .  NE.  0.  to  call  KAPPA 
Controls  CHRNO(l) 

Controls  OKLM(l8) 
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EOSPAR(40)  Controls  CMIN  =  8.  2E11 
EOSPAR(41)  Controls  LMDA(l) 

EOSPAR(42)  Controls  MAXL 
EOSPAR(43)  Controls  S2,  normal  value  =  0 

EOSPAR(44)  Controls  MARK,  the  AIRMOL  control  parameter  MARK  is 
equivalenced  to  EIONIN(28). 

Set  EOSPAR(44)  to  +2.  ,  0.  ,  or  -2.  to  achieve  desired 
results.  +2.  is  standard  value 

Remaining  cells  free. 

The  main  print  and  pun*-h  options  are: 

IPRNTO  =  0  :  Normal  printout  with  all  debug  and  intermediate  quantities 

IPRNTO  =  1  :  Limited  printout  with  main  thermodynamic  variables 

IPRNTO  =  2  :  Tabular  output  without  captions 

IPRNTO  =  3  :  Tabular  output  (with  titles)  of  0,  p,  P,  E,  Z,  (9E/00)T> 

(9E/3t)q,  the  speed  of  sound,  EGAM  =  1  +  P/pE,  and 
several  other  variables 

IPNCHO  =  0  :  Punches  all  thermodynamic  quantities  computed  by 
subroutines 

IPNCHO  =  1  :  No  punch  output 

No  matter  which  printout  format  is  chosen,  a  page  explaining  all 
quantities  is  printed.  On  this  page  the  units  used,  some  relatior  s  used, 
and  some  definitions  for  several  variables  used  are  discussed. 

If  the  option  to  punch  ca/ds  is  exercised,  the  different  types  of  cards 
are  prefaced  by  title  cards  and  made  sortable,  together  with  the  title  cards, 
by  a  distinguishing  character  punched  in  column  1  of  the  card. 

The  input  requirements  of  the  various  trails  are  simple:  wherever 
any  temperature-density  point  is  the  single  or  central  point  of  a  path  to  be 
studied,  those  values  are  inpu'.  to  THETA  and  RHO  (or  THETA  and  TAU). 

If  increments  are  required,  the  values  are  input  into  DELTHT  and  PELTAU 
(DELTAU  is  also  used  for  Ap  if  needed).  If  a  trail  requires  upper  and 
lower  temperatures,  the  upper  one  is  input  into  DELTHT  and  the  lower  one 
is  input  to  THETA.  If  upper  and  lower  densities  are  required,  they  are 
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STANDARD  OUTPUT  FORMAT 


•VTIVT  kCM  i 

W*  «>l.  IM  it/Cci.  it  icc/f i .  fi  l»IXt/t*  M>*  I  IMM/tl,  C.  itl|*/l/t>l.  Ml  iCMt/CCI*  Ffi,  il*  ica/tttl 

UK  Mil  IWliM 
«W1*VT  U«  •*  4 

ixi*  i«*i .  iw  it**,  ituii  mi.  iij*.  mm  iotxt/c*  mi*  mhi  ittH/ii*  (co*«  ijitt/M/t*i.  unto  i mu  r r i 

M*MS  ICa/HCl.  SFIliv  lCM-l/tc  Ml.  0*JT**1  l)l«l«*  M/til*  llUgH  MCMI.  MUM.  Wii  lt#|,  HUM.  MUM 

IIMWIIM  (*  ilOKI  MM 

il  Tig  ■  (Mlini  Huai  (CC/OI 

41  MM  •  MM  IM  -«H  in*.  •»  tUCIMM  /«•*•»  IMI 

<1  Ml  ■  a.tttaTXII  /  MM  ilmlC  atlMI 

•  I  *kk  IXiltlll.CI  t.i.T.  Tig  lOijIij,  Stoligl  Ml  it  CFXIioT  TXT*. 

•I  Xk  kill. ill. Cl  a.i.t.  IXH  lOti’.T.  MQT"TI  Ml  il  IMHMT  lag, 

•I  MM*fC3  •  .ITUIIU  MIMI/lM'm.  MMIITII  It  (MUM  IHTMn. 

II  Hluil  MCI*:  CMTilM  l*M  C«M  Ml  ii|(i  CililtiMNlC  mm, 

«l  MM  MM  M.  •»  IW  Ft!  MllOkl.  II  ll»tH  FtM  CUT  IF  MllliU  l«Uil|»MMF.*lilt  M  CMUK  IT. 

IkM  MMt  CmtliM 
•KTMvt  U«l  a.  ».  *•  T 

MtiC.  IKi|.  MM  licit  aCIMT,  ■  Illicit  ulli«.|MI.  IIMlIt.  lid. I.  IIMi.  il.  IKTMTIC  FHTWIlik  IHTMlMCMiMI 
toil  •  MCil  .  i*MCi|.  | III  -  MCII.  tll.jl  -  vll.dl.  |dl,  HSTiS.  MfilH  ,  TM  Mil  |l  »XUtt  *M| 

Mil  V.  MM  ,k*SMi.  OlgM . » MMT .  HUM 

IMkiMTIM  m  liaMkt  MM 
il  MCII  ||  MlIM  MM  I IIIITt 
II  MCil  ||  |IIM  NtllM  MM  ,n«lt 
II  IIMIII  ||  tikCltal  MU  FMCTIM 

•  I  IIMi  iuMS  .«  IlCMI  II  FMIMU 

II  il  I  Ml  •  l|. /MM  •  (IMI 

•I  III. SI  It  IX  Jl«  IMIlillM  MHlTlii,  II  .U.  S  .U.  till  I 
»M  lit  III  CUMal  M  IX  MTCIIH 

II  Mill  IsttO  I*  IIMMI  Id  TM  Flilt  Id  I  FUCgtlXt  MM  |  ,U.  Fill 

•  I  MS  Til  ■  >U*I.IWt|  ICMIIMT  II,)  I 

*1  MSI*.  t  .WiillM  ICMITMT  IMlil 

mi  Xk  witiiiui  lung  tii*  i  mi  Mfciti  >M  tiu  cmtiIm 

acstlll  FM  kill  IMCId  I*  MICIlik  II. I.  T  i  MUM! I 
Ml  IMFg  CMTilib  >1  l*l«  IlliilC  ««  |  |M  |F  II  ,U,  •« 

M  II  I  M  I'  I  IM  ,|t,  MM 

Ml  HM  II  gll|K3  il  M  DlXttllXCIt  NMXIiCI  FMtXICI  l«  K  IM  IluiTIM 
ill  LNftiM  II  flk  Hllklli.  kMlllfM  L9  UmI 

1*1  **1  1 1. MtiClil *iFil*iMO/ IX**  »IF*lt  tCIMTI .  IX  aumci  OCMlTl  F*  IkICtaM*  IM./tCI 
IF!  TXMt  t  il  Ml  III  -  IIMIII  t  C I  Ml  |  II  •  CIMIII  i  TXt**|TkM|t  CFXIITCXI  MlliTIM 
III  *U«t  a  IXMil/IIMlIII  l  MkilltC  IX»MJI*MIC  MMIIICXI  MlliTIM 


!•»  **FT  C  Tl  I  hIMI  IMFCkSIM  M  TX  agaM*  IF  CkCXtll.l  10  |l  M(  (HI  r**MS.  II  1X1*1  If!  CkTXtl 

•fj'i  ’•*  Jl'ljllH  KC  IM  Id  •*•*»■  l»  TX  MlHIX  It  CM*#*  TX  XIT  klX  II  IX  C total  OMIT, 

V" hIMI li  i<€tl  »!*(•  II ki 

lx  Mil  kl«t*  M  II  Tl  HI.  till.  Hill.  •aa.ti.lll.aiTlX.lklaaT.SI  Tl  sl.iit  1 1  MMkMIX. 

IMkMillM  |F  IIMKI  MM* 

Cl  MCI  ■  till  II  TX  «MI  |F  lUXoTI  10  TX  MT«*!X 
41  MT|X  |»  IX  ISgllCi  MICIlik  WFH 

TM  klXi  Ml  XlT  IFKMl 

|F  MkFNTil,  I  kltt  Mill*  tilt  IX  iltaic  OMH.  tldl.  M»  >141  llXIt  Fid  l.kl.HMIl.kl.tlSl  Ml  Ml  I*  TX  dim 
MMXlllX  4k.ll  tS*llil  M  JtilMIC  M.l 

|F  IFttlMi.  i  klX  N|tll  all*  |*iFg.  IMM.  kXiOi.  Fa  I .  Tkatlll*.  HXM*  TXMT.  MkCM.  MTM.  IIMI  HI. 

TM  mi  kl*I  II  loot.  ||M«.  IIMI.  licit 

(IM*  C.Mitlt/IIXIXIIIIII 
ItMta  c.  >»i  it  hi 

l*M|a  i.X.niliXIMIII/li.tttknillXIMilIl 
IIMi  la  CXillili.MIXIitill  tICXillll 
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input  into  DELTAU  and  RHO  (or  TAU),  respectively.  If  some  subset  of  the 
normal  0  set  is  used,  then  only  the  needed  density  need  be  input,  and  vice 
versa.  For  further  guidance  consult  the  code. 

Note  that  although  the  GOLEM  code  is  lengthy  and  appears  com- 
plicated,  it  has  an  extremely  simple  logical  structure  on  any  given  trail. 

Each  trail  generates  a  member  of  a  set  of  temperature-density  points 
The  equation-of- state  or  opacity  subroutine  is  then  called  to  compute  the 
thermodynamic  data  relevant  to  this  temperature-density  point.  These  data 
are  then  either  printed,  punched  (or  both),  or  stored  in  an  array  for  later 
printout.  The  trail  next  generates  the  succeeding  temperature-density  point 
and  the  process  is  repeated.  Any  number  of  trail- specifying  input  cards 
may  be  stacked  in  a  given  run. 

Finally,  further  development  of  the  GOLEM  code  will  couple  it  to  a 
plotting  routine,  GRAPH  (which  can  already  couple  with  the  DYPER4  and 
TRANS  codes).  Examples  of  GOLEM  output  for  the  AIRMOL  subroutine 
are  given  in  Appendix  I.  An  example  is  also  given  for  the  CMOL  subroutine 
in  reference  4. 

MARIER:  AN  ISOELECT RONIC  IONIZATION  POTENTIAL  PREDICTOR 

MARIER  does  2nd-  or  4th-order  least-square  fits  to  a  given  iso- 
electronic  sequence  of  ionization  potentials. 

The  program  contains  one  read  statement: 

READ  (5.  7701)  KSTART,  KEND.  LASTZ,  LOWERGO.  LOWERZ, 

NEXT,  LORDER,  LREDUC,  LSTEP,  MORE 

7701  FORMAT  (10  (12,  2X)) 

The  meaning  of  these  variables  is: 

KSTART  is  the  lowest  atomic  number  used  in  the  first  isoelectronic 

sequence  done 

KEND  is  defined  by:  (KEND- KSTART  +  1)  isoelectronic  sequences 

are  done 

LASTZ  is  the  highest  atomic  number  used  in  any  isoelectronic  sequence 
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PnUGIM.M  MAM  ILK  l  INI’UI  #OUTl»UI  •  T  AFt  S  =  INPUl  . 1  AFtbrOU I  HUT  I 
LOMMO>./LMSH/UU  I 

UA  I  A  KPHEV*  KS  I  AH  I  t  KENU »  LMST2  /«•  0/  1M/U/  I*V/U/ 

UIMENSION  XI10UI  iKUIUIi  LOEF  <«•  1  UU>  .COEISI  *POTENUUOUI  .KATNOUUOI 
HtAL  MAHi AN 

DIMENSION  MAH1A44UUU#  1HUI 
UIMENSION  MATNUliUOl 
DIMENSION  XXIJI #Tt(JI .LOt.M Jl 
UA I  A  Li/J/  L2/2/ 

UA I A  ULVLAT/U./  POTENL/IUU*0./  UtVIAI/0./ 


ASSUME  MAHI  UECK  USLU  MAS  LLLMLNl S  IN  MONOTONE  INCHLASING  OKULN 
FOLLOWEU  UT  1SOIOP1C  MIAIUHES 

MAHI  DECK  IS  ASSUMED  10  C OU  t  A I r4  ONE  OH  UO  SPEC  IF  ILAT  IONS  F  OH  t  ACM 
LLLMLNl.  UHL  SECL'MU  SFELIF  1 C A 1  10(4  MILL  OHUINAN ILT  1<F  USED  FOH 
St ’LL  1 AL  ISU10P1L  VIXIUHtS.)  THIS  PH OGHAM  WILL  USt  DATA  FROM  TH| 
MKSI  SFtCIF 1CA I  ION  FOH  A  GIVEN  ELLMLNt  •  I  HE  MAHI  DLCK  ENDS  WITH 
A  2EH0. 


1  CONI  1 HUE 

HLfcU  (S’ //Oil  KSlAHl.  KLI4U*  LASU.  LOWHGO.  L0WM2 »  NEXT.  LOHUEH* 
1  LHLUUL.  LSlEP*  MOHL 

1701  F0HMA1 (10(12*2X11 


KSlAHl  IS  lliL  LOaLSl  A1UM1L  NIIMHLH  USAULL  IN  THE  MHS1  ISOELtt- 
IHONIL  SLUULNLL  UONL 

KENU  IS  UtFINEU  BTIlKEMU-KSIANlFll  ISOLLtLTHUNlC  SEOUL NLLS  AHt 

UONt 

LAST  t  IS  1l«L  HIGHEST  AI0M1L  f  lUMOt'H  USLU  IN  ANY  ISULLLCTHONlC 
SEQUENCE 

KPMLV  IS  THE  VALUE  OF  KENU  USLU  ON  1 HE  I’HEVlOUS  0A1A  C AHQ.  ll 
IS  INI  I  I ALLY  SET  TO  lEHO. 

LOWHGO  SFELIF-tS  IHE  INDEX  OF  1HE  FlHSI  1EHM  IN  TMt  ISOELECTHO- 
N1C  SEOUENCt  WH1LH  IS  AL IUALLT  USED  IN  THE  CALCULATION. 

LUWHl  SPECIFIES  I  HE  LUMESl  ATOMIC  NUMHEH  WHICH  LAN  HE  USED  IN  A 
LALLULA1 ION. 

NEXT  SFELIF1ES  I HE  LOHt  FAHAMEIEH  FOH  SUUHOUTINE  UEHUG.  IF  NEXI 
EOUALS  *tHO»  FHINT  MtSSAGE  ANU  CONTINUE  HUN.  IF  ‘IEXT.NE.O. 

FHINI  MESSAGE  ANU  call  mehh 

LOHULM  SPECIFIES  Fill  1140  POLYNOMIAL  OHUtH 

IF  LHEUUC  EOUALS  U»  LUFDEH  WILL  0HUINAH1LY  HE  H .  IF  LREOUC.NE.U 
LOHUEH  WILL  OHUlNAH ILY  HE  J 

IF  LOHUEH  .01.  «*  IS  USLU*  HtUIMENSION  COEF  AHRAY  TO  COEF (LORDtHF*.* 
lUUI  ANU  COL  AHHAT  10  LOE ILOHULHM I 

LHLUUL  .EU.  U  USES  10NUAI10N  POTENTIALS.  LHEUUC  .ME.  0  USES 
I0N11A1  ION  POlENUALS  U1V1UEU  BY  TEHM  INUtX 

LSTEP  CAN  BE  USLU  TO  MODIFY  IHE  TEHM  INUEX  VALUE  d.L.  WE  COULU 
CALL  THE  INITIAL  TEHM  INDEX  IHE  (IFCSlEP-lMl  1CHM.I 

WH1 IE  16*  77021  KSI  AI<T. KEI4U. LAST2 . KPHEV »LU»HGO. LOwH/ . NEXT. LOHOtH* 


c:  r  c:  r*.  n  no 
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i  LHLUUL*  LbTLP*  MOMt 

770/  ►  OMMA I  UUHllNPUl  Ab  Ht  AU  «Ab/  MM  KSTAHT=*  13*  t,H  KtND=,l3,  7H  LAbl 
i/=*13*  7ri  KP«lV=  »  13*  till  LO»NGO=  *13*  7(1  LOKR/s  , 13*bM  NEXT=  *13* 
/dll  LOHULKS.I3*  BH  LKtUOCS*  13*  7H  LbTt  l>=*  1 3*bM  P0Ht=*l3> 

11-  (KbIAHl.tU.OI  Kb  I  AH  I  SI 
It-  (LAbl*  .LU.0)  LAbl/:  V/ 

It- (KtNU.tO.O  .OK.  KtNU  .of.  LAbl/  I  KENU=L AbT 2 
IMKblAMt  .01.  Ktl.U)  Kb  I  AK  I  =KLNU 
It-  (L0»HG0  .LU.O)  LOKKOO-l 
It-  ILOHUtP  .tO,  01  LUHUtK=4 
It-  (KPHtV.tU.KtNU.ANU.LOMH/.tQ.l)  CALL  EXIT 

10  till)  HUN*  UUPLILAIt  IhE  LAbT  DATA  CARO  OUT  SET  LOaR/Sl.  TMlb 
lb  I Mt  LAbT  HLUUlKtU  1NPUI  LAHU  ANU  MILL  CALL  tXH. 

OKI It  U>*  7001 I Kb I AR l *KtNJ*LAbT/ »KPHLV  »L0*NG0*L0WK/ • LOKOEK * LHEUUC 
l*LbftP*MOHt 

7001  ►  0NMAM24H  PANAMt i tKb  Ab  UbtU  NLHE/8H  KSUK I  =,  1  3  .  l-M  KO'Ot, 13* 7H  LA 
lbt/=*  13* /M  KPHtV=* 13*  mi  LODPGOs  *13  *  7H  LOk'H/r  1 13, 

/d H  LOHULK=* 13*  SH  LMtUUL=,13*  7H  LbTtP=*13*bH  HOKES . 1 3 i 

KPKEV=  KtNU 

KCOUN  I  SKtND-KS  J  AH  T  ♦  1 


UU  3ot>  1S1.100 
UU  3UU  JS1.1UU 
MAHIAnI 1 *31-0. 

30d  LON  I  lilUt 

UO  *0  1  =  1  Mi 
00  ‘.*0  1/Sl.lUO 
LOLA  11*1/1=0. 

VO  CON  I 1NUK 
101  CON  1 1 NUt 

UO  bOO  K=  KbTAKI*  KtNU 

c 

C  UO  all  btOUtNCLb  iitldttN  Kb  I  ANT  AND  KENU  INCLUSIVE* 

C 

C  THL  K-TM  bt-.00t.NCt  El  lb  lilt  (LAbT/-K*ll  IONIZATION  POTENT  1 ALS 

C 

C  K  K»l  KK  LAbT/  x 

C  V  •  V  .  V  *...*  V 

C  12  LOWtK  LAST/-KA1 

C 

c 

C  UblNo  J.OKATTEAUb  LtAbl-bOUAKE  POLYNOMIAL  PIT  SUBROUTINE 
C  10  A  NUAUHATIC  tUUAIION. 

C 

C 

K/=  K*L0WHG0~1 

Lb IOKt=  0 

10/  CUNTINUL 

00  103  KK=  K2*  LAbT/ 

C 


63 


AFWL-TR-67  -131,  Vol  IV 


C  THIS  ISUE'-tLlHUNK  lUNl/AlIUN  SEQUENCE  HA«,  (LASU-K  ♦  !)  CLEMCMS 

L  KNiUi  SlUME  IHIO  I  ML  T  AHMA  1  •  SOME  MAT  HE  2EH0  IN  I M£  MAH I  DECK  OH 

C  MAT  l)t  M1SS1NO.  IF  SO*  iHt  SEQUENCE  HAS  IHESE  ELEMENTS  M1SS1NO  IN 

L  I  HE  T  AHHAT  ANU  M*S  LESS  1MAN  tLASf*-KM»  TEHMS 

C 

L  LU*tN  SPECIFIES  AH1LII  10N12A 1 1ON  PUlENll*L  IS  USED 

L  KK  SPECIFIES  THE  ATOMIC  NUMHEH  Ob  I  HE  SUCCESSIVE  SEQUENCE  TERMS 

C  LS> UHL  SPECIE 1ES  !ME  SEQUENCE  1NUEX  U , 2 »4. . . LOVER . LE . ( LAST2-KF1 ) I 

L 
C 

LUAEHS  KK'K»1 

10H  LON  I (HUE 
MSI 

C  M  SUUSCH1PIS  AlOMtC  NUMHlHS  IN  THE'  MART  AHHAT 

105  KMAHl-U(M) 

1MAMAH1  .EO.  KKI  00  TO  107 
IF  IKMAH1  .EU.  01  OO  10  104 

C  I  ME  AMOVE  OCCUMS  mHENEVEH  I  HE  KK-TM  ELEMENT  IS  NOT  IN  THE  MAH1 

L  UECK 

106  CUNllNUE 

M=M«  AMAH !♦  2 

ou  lu  lus 

107  C0NI1NUL 

C  A 1  IH1S  MU INI  I  ME  KK-IH  ELEMENT  MAS  KEEN  LOCATtU 

C  IIS  LUALH-IM  10NUAI1UN  P0IEN11AL  MILL  HE  USED 

L 

C  IES1  LOHEH-lM  1 ON i  2  A  1 1 UN  P0IEN11AL.  IF  2EM0»  SKIP  10  NEXT  ELEMENT. 

lb  (KMAHi.LI .LOAH/1  00  10  104 
L 

lUUt ASM4 1 ♦  LOOEH 

IF (AMS)U(INUFXJ 1 .LI .  l.E-b  1  00  TO  104 
L  »L  NO*  HAVE  A  VALID  UAIUM  ANU  CAN  ENTEH  IT  INTO  I HE  T  AHHAT. 

LSIORLS  LSIOHEU 

A (LSI  ONE ) S  LO»EK»LSTEP 
TILSIUHElS  UdNUEXI 

IF  (LHEUUC.NL. 01  T(LSIUHEIST(ES10HE>/X(LST0HE) 

MA I NO ( LS I OKE I S  KK 
MAH  I  AN I KK  *  LOSEH ) =U ( l NUE X I 
104  CONTINUE 

C  A I  1 MlS  PUlNl •  I  ME  X  AMU  T  AHRATS  HAVE  HEEN  SET  UP. 

C  THEME  AIIE  LSIOHE  EMIH1LS  IN  THESE  AHHATS 

lumueksluhueh 
iLOMUHSLO.IUEHd 

IF  (LSIOHE  .LT.  ILOHUK  .AMU.  LOHUEH  .EO.  H »  LURUtH=2 

c 

c 

c 

LALL  Fit  (X.  Tt  LSTUNEt  LUHUEH *  UEVEAT.  lM.  COE) 

IF  (1M)  2Ul.202.20l 

201  CONI (HUE 

AMITEI6* //04ILS10ME. LOHUEH. LOaEH. (T( J) .MATNOI J) . JS1.CST0HE) 

LALL  UEUUO(201«202*NEX 1 1 
00  To  SOU 

202  CONUNUE 

IF  (LUHUEH. NE. LUHUEH) 1L0KUHSLUHUEH*! 
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UO  20 3  J=l. 1L0MUR 
LULF  I  J*  K  )  r  Lot  ( J) 

204  LON  I iNUt 

LmSI=L04ERF8 

LVALUATt  StOUENCt  PROP  POLYNOMIAL 

UO  2U4  jri.LOntH 

XJ=J 

RAIN0IJ)=  K-l+J 
POltl'bt  JJSCOttl) 

UO  <41  1-2*  lLOMOM 

POItNLl  J)=POTtNLt  OMLOt  I  1)  •  I  XJ**  I  l-l )  ) 

VI  LON  I  1 nut 

KKAll.O  =  KATNOIJ) 

11-  IMAKlANIKMINO.  J»  .to.  0.)  V  AM  I  AlJ  I  KK  A  I  NO*  J )  S  POTtNLIJ) 

204  LON  I lNOt 

NUXl=L04tKFl 

■  KIT  Lib* 7 703)LS lORt  *LUMOtM  *  LOrtER • I  Y  I  J) .MATNOl J) •  J=1 .LSTOHl ) 

7703  FORMAT lbMlUSlN0*l3. 23N  10N12AI10N  POTtNT l ALb. 3X* lbMA  PIT  OP  OHOtH 
1*12*811  10  TMt  *13*2bM-IH  lbOtLEL I HONIC  StQUtNCL  73X .  4HM  IlFI.  3X  * 
212M1I.MJI  VALUE  *18H  AT  AlUMlC  NUMBER  / I 10X . IPt 1U . 4 . 14X *  13 H 

«M1 It (O* 7002)  ( K A  T NO ( J ) •  J*  POTENL  t  J) •  J=l*LOWlH  ) 

7002  POIIMA  I  I21HQHAS  A  F11  tVALUA  T  ION/ 31  611  FOR  l  =*I3*8H  AT  JS*I3*UH*A 
lVALUt  OF*  OFF V. 1*3X1) 

7704  F0HMAII2VH  FURIMtH  tVALIJA  I  tU  VALUCS  ARE  /I3X.4M  2  =*I3*3X.4H  J  =• 

1  13.  IPt lb,6)  ) 

IF  (LUMUEM  .EO.  4)  *Rltt(6* 770b)  (COt I J) * J=1 *5) 

IF  (LUMUtM  .to.  2)  ARl Itlti  7707)  (COL  I  J>  * J-l *3) 

77Ub  FORMAII2IH  USINU  I  ML  POLYNOMIAL  •  bX  .  IPt 14 . 0*6M  FJ*  *1PE14.«* 

1  7H  «J*J«  • IPt 14 . 8* 1011  FJ**3  •  * 1PE 14, b* 1 OM  FJ444  •  .1PE14.8) 

7707  FORMAT (21M  USINU  IHt  POLYNOMIAL  * bX. IPE 14 . B* 8M  «J*  .IPE14.8* 

1  7M  ♦  *)•  J»  *lPtl4.H) 

•  Ml  It (0*  7003)  OtVtAI 

7003  FORMA  112611  THE  SIANUAKI)  UtVlATlOI.  MAS  t  1PE12.S  > 


MOMtso  FI  I  2SV3  10  100  41111  INPUT  IP  A VA I LADLE • OUTPUT  IP  NOT 
MORt-1  FIT  2=V3  10  100  A 1  I H  INPUT  ONLT 
HOME— 2  FIT  2SV3  10  10U  XI TM  OUTPUT  ONLT 
HOHt  -  3  BYPASS  F  1 1  OF  2,01. <72 

IF  IMOHt.tO.3)  UO  TO  bUO 
IF  (HORt  . LU •  1)  UO  TO  3U1 
C  PA  1 M  FOR  MORt.tU.2.0R.MOMt*LO.O 

XXI  3)=L0*tl< 

T  T  I  3 )  spo  I  LIlL  ( LOMt R I 
X  A 1 2 )  SLOMtll— 1 
Y  Y 1 2 1  SPOT  tNL I LOMtP  1) 

XXI I  )ZL0Mt(1-2 
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1 1 1  l)-HUILf)LIL02Ln-2l 

imvokl.nl.u)  oo  io  yj* 

It  lb  AINOlLjTOKt)  .LU.  KAlNOILOAtK)  I  TT  t  3)  =  T  ILSTORt I 
lb  IMAIWOU.btOKfl)  .t'l.  ftAINO(LO*EH~l I  )  T T 1 2  I  S T  ILS 1 OHE-1 1 
lb  (MA>NOILbTOMt-2l  .LU.  KA Ib.OI LO<ftK-ZI)  TT t 1 1ST ILST0HE-2) 
JU2  CONtlNUt 

•Hilt  ( b .  / 1 1 0  I 

mu  bUHMAI  IJUHUlNHUl  TO  iMt  uUAURAiiC  blT  IS  /) 

UO  <*U1  LTS1.J 
Lf T=LO*tH-J»LT 
LTTISaAILTI 

■  Hi  I  Lib. /100I  KAINOILTT) .LTTT.  TT  iLT J 
MOV  bOKMAI  IbA.ldH  Al  A10M1C  NUMBER  lUtlOH  »1TM  J  r  » 13. 

12BH  AH  IONIZATION  MOftNl IAL  OF  .IPElb.tt) 

HU1  CONtlNUt 
00  10  JUb 
JUl  CONtlNUt 
C  HAIM  bOK  .HOME  =  1 

AAIll=A»LbT0ME-2l 
AAI2ISXtLbT0ht-ll 
AAOIsXtLSTOHLI 
TT  I  1 1ST  (LbT0Ht*a2) 

TTtZISTILiTONt-ll 
TT1JI=T ILbTOKtl 
UO  1UU  LX=1.J 
LXA=LblOHL-J»LX 
LXAXSAXILX) 

•Milt  (O./1U0)  MA  I  IjO  (L  XX I  .LXXX.TT(LX) 

1UU  CUNllNUL 
JUJ  CONIlNUt 

CALI,  bll  tXX.TT.LJ.L2*UtVlAT.|M2*C0t2l 
lb  I1M2I  20U1.2UU2.2UU1 
2UU1  CONUNUt 

•  UHL  10./7UJI  LJ.L2.ITTIJI.MA1NOIJI.JSIO) 

CALL  UtUU012UUl.2U02.NtXT) 

00  10  bUU 
2UU2  CONtlNUt 

UO  2UUJ  JSb.B 
COtb  ld.M=C0t2l  J“b) 

2UUJ  CONtlNUt 
C 

c 

UO  2UU«*  JSNUXl.LAbT 
XJSJ 

KAIN0(JI3K-1*J 

HoltNLI JI=C0t2ll)bC0L2l2l*XJ.XJ*XJ*C0E2l J) 
ftKA)MOSKAINO(J) 

M  Al<  1  AN  ( KK  ATNO  .  J I  =H0 1  LNL  I  J) 

2UUH  CoNllNUt 

•  Hitt lb. 77UOI  UAlNOIJ).  J.  HOTtNL l J) .  J=NUXT.LAST) 

•Milt  Ib./7U7)  C0t2 

•Mitt  Ib.tUUJ)  UtVIAT 
C 
C 

bUU  CONtlNUt 
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•Milt  ( O. /UUO) 

/uuo  fommai  uni) 
c 
c 

JO  HOU  J=1  • 10U 

lFIJ.oT.SN:  .AND.  MOKt.tG.3  )  GO  10  600 
ArfllLlb.  /U0/)J 

/U0/  F  OKMA I  I2UFIUF0K  tLEMtNI  UUMbEH  #13.  31FI.  THt  I0N1Z«I10N  POTENTIALS 
1  ANt) 

C 

C 

jo  eui  jzsi.j  .10 
J4-  M1NUIJ2F9.J  ) 

MKlIt  Jo#  /00b)  J2.IKAHIANU.J3).  J3=JZ.J**) 

7UUS  FOKMAr  I  1X.13»3A.1P1UF_12.S> 

C 

601  LON ri not 
6UU  CONI  1  nut 
C 

JLOKUNS 1  LOKUH  ♦  3 
IF (WOHL.LO.3)  JL0KUHS1L0HJH 
1M JLOHUK.tO.b) 

1  »Hi  Tt  (o.  77<1b)  l  J.  (COtFI JJ. J)  .  JJ=1  •  JLC’KUH )  • J=1 • KCOUNT ) 

/7Ub  FONMAI  I  1'iHlCOtF  AHKAT  1  S/  « <4X  .  1 3.  IPSE 1  S .  b .  3*  #  lP3t  lb ,  B )  ) 

IF ( JLOHUH.EG.b) 

1  MHlltlb. 7/UtJ)  l J. ICOtF IJJ.J) «JJ=1. JLOKUH) « JSl.KCOUNT ) 

/70tt  FONMA  f  U‘*HlCOtF  ANMAT  IS/ "*X . 1 3. 1P3E1 S. « . 3X . lP3t IS. B ) J 
1FI JLOKUH.tU.S) 

1  NK1 ILIo./VlU)  JJ* ICOIF (Jj.J). JJ=1. JLOHUH) .jrl.RLOUNT) 

/71U  FOKHAI  1 1  ‘♦MlCOtF  JKKAT  IS/ t HA  •  1 3  •  1PSL  IS •  t) )  ) 

1M  JLOKUH. LO.  J) 

1  MHl 1 t lb. 7709)  IJ. ICUtF IJJ.JI. JJZ1.JL0KUH) .Jsl.KCOUNT) 
flU*  FOIIMAI  UOHlCOtF  AMKAY  IS/  l  <*X  •  1 3*  1P3E  IS.  6 )  > 

SO  TO  1 

C 

CALL  MAH  It 

KtIUHN 

tNU 
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LOWRGO 

LOWERZ 

NEXT 
LORDER 
LREDUC 

MORE 

inclusive  are  done.  The  kth  sequence  fits  the  (LASTZ-k+1)  ionization 
potentials: 

k  k+i  kk  LASTZ 

12  ’  ’LOWER . VLASlZ-k+l 

(unless  some  of  the  initial  members  of  the  sequence  are  for  elements  with 
atomic  numbers  less  than  LOWERZ,  in  which  case  these  terms  are  not  used 
in  the  input  to  the  least- squares  fit).  If  the  sequence  of  known  ionization 
potentials  contains  less  than  5  terms,  a  2nd-order  fit  is  tried  even  if 
LORDER  =  4. 

MARIER  has  been  used  with  the  block  data  program  MARIE  (see 
separate  writeup)  to  calculate  a  tentative  set  of  ionization  potentials  for 
the  first  92  elements.  Where  present,  experimental  values  have  been 
used.  (The  sources  for  these  are  listed  in  the  MARIE  writeup.  )  Some 
further  work  on  this  task  is  needed;  however,  it  is  felt  that  further  value 
changes  will  oe  within  10  percent  of  the  presently  assigned  value. 

MARIE:  A  BLOCK  DATA  PROGRAM  OF  IONIZATION  POTENTIALS 

The  MARIE  program  is  an  intermediate  step  toward  the  final  com¬ 
pletion  of  the  MARI  block  data  program,  a  table  of  the  ionization  potentials 
of  the  elements.  (See  the  writeup  of  program  MARIER.  ) 


specifies  the  index  of  the  first  term  in  the  isoelectronic 
sequence  that  is  actually  used  in  the  calculation 

specifies  the  lowest  atomic  number  that  can  be  used  in  a 
calculation 

is  a  debug  parameter 

specifies  the  order  of  the  polynomial  fit 

=  0  uses  ionization  potentials;  LREDUC  t  0  uses  (ionization 
potentials  /  term  index)  in  the  input  to  the  polynomial  fit 

is  used  to  decide  on  extrapolations  for  atomic  numbers  >  92 

All  sequences  between  the  (KSTART)-th  and  the  (KEND)-th 
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c 

t 

c 

L 

L 

c 

c 

c 

c 

L 

l 

l 

c 

c 

c 

L 


l 


t 


t 


t 


l 


c 


c 


L 


bUbWUUflNt  MAM  It 

L  AS  f  LUMHlLtU  KtH.  9.  14bb  UT  OAHT  LANt 

IHlb  UtCK  CONIAlNb  ►UK  ALL  tLtMtNl b  MHtbtNI 

A  lAULt  MAUt  UH  UK  I Mt  ► OLLUMlNU  OUANI IT  I Lb »  IN  UNUtM 
AlUMiL  NUK-btH  UK  T Mt  tLtMtNl 
AIUM1C  WLlbHI  UK  THt  tLtMtNl 
I  UNI  *  A I  ION  HUItNTXALb  UK  fMt  tLtMtNl 
LllMtH  ALL  1UN12AMON  HOTtNl  XALb  AML  tNTEHtU  IN 
•  blKlCILT  MUNUIUNIC  UHUtR  UM  MibSINl*  ONtb  AHE  FNlEMtU 
Ab  2tHU 

UAIA  lAKfcN  KMOM  NUb  *7U-l*  NOS  *70-21  M  .  M.  liAHST  ANO  I  • A .U.SYMH » 26 
»146bl)  ALLLNb  AblMUMHIblCAL  TAbLEb.  4HU  tU.I  ANU  btHNt  HUNS  lUbtU 
KUM  At*  * •  ANU  Ul. 


LOMMuN/LMbU/H  I J) 

UAIA  M/1..  1.UU0*  14.b9H/ 

LUMMUN/LMbb/Ht  t  **  I 

UAIA  Ht/*.*  4.UU26.  24.b0b»  b4.4U4/ 

LUMMUN/LMbO/Ll  lb) 

MtAL  Ll 

uaia  Li/4.*6.944*b.49*  /b.oiv. i**.4i9/ 

LUMMUN/LMbO/UL  161 

UAIA  bt/4..  4.U1**.  9.4*.  1B.2UO.  lb4.0b*  *17. bb// 
LUMMUN/LMbb/b  I 7) 

UAIA  b/b. *  1U.011.  b .*474*  *b.lbb.  47.929.  *b9.4b.  440.21/ 
COMMON/LMbb/t  I  0) 

UAIA  L/b»  •  U.UlUt  ll.*b9*  *4.402.  47.07b.  64.492.  492.U0. 
1  409.9b/ 

LUMMUN/LMbb/N  I  VI 
MtAL  N 

UAIA  N/ 7  •  •  14»UUb7 .  X4.b4*»  *9.bl2>  47.440*  77.4t9.  97.606* 
1  bb*.Uo»  bbb.99/ 

LUMMUN/LMbb/O  I  XU) 

UAIA  u/6.*  lb. 449.  14. bib.  4b,lbb.  b4.947*  7 7.4X4*  XU. 4. 

X  140.1*.  74 9.4*  071.44/ 

LUMMUN/LMbb/K  I XX) 

UAIA  K/4* .  Xb. 4404.  X7.4*.  44.40b.  b2,66>  07.2bb.  1X4.24. 

X  Xb 7. Xb.  X0b.X0*  9b4.0.  X1U*./ 

LUMMUN/LMbb/Nt  1X2) 

MtAL  Nt 

UAIA  Nt/XU.t  2U.X04.  2X.bb4*  4X.U0*.  b4. 7b.  97. ID.  126.4. 

X  Xb  7.4X  *  *07.2*  *44. X*  X19b.b>  14bU.4/ 


H 

MAM  I 
IMAM  I 

H 

2MAH 1 

Ht 

XMAHI 

Ht 

2MAKI 

LI 

XMAHI 

LX 

2MAH1 

LX 

4MAHI 

Ht 

XMAHI 

bt 

2MAMI 

b 

XMAHI 

H 

2MAHI 

L 

XMAHI 

L 

*MAH  I 

C 

4MAH I 

N 

XMAHI 

N 

2MAHI 

N 

4MAH I 

N 

4MAM I 

U 

XMAHI 

u 

2MAHI 

U 

4MAHI 

K 

XMAHI 

K 

2MAHI 

K 

4MAHI 

Nt 

XMAHI 

Nt 

2MAHI 

Nt 

4.4AHI 

Nt 

4MAHI 
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c 


c 


c 


c 


c 


c 


c 


c 


c 


c 


c 


CUMMON/CM*U/NA  lljl 

MtAC  HA 

UAIA  UA/li.f  22.4848*  b.148*  h  7.24*  71. bb*  48.88*  148.4/* 
i  1/2.04*  208.444,  204.1**.  244. /b.  1404 .0,  lb4b.l/ 

MA  IMAM 1 
NA  2MAM1 
NA  4MAM1 
NA  4MAKJ 

CUMMON/LM*U/MO  1141 

MtAC  Mb 

,U*'*  ^**»44»  1*.041*  80.12,  104.24*  141.24* 

i  18b, 44*  224.4*  2b*. 4*/*  42V. 4*  4b/. 4b*  l/bl.2*  19*4./ 

MO  IMAM  1 
MO  2MAM 1 
MO  4MAM1 
MO  4MAM1 

CUMMuN/CM*b/AC  (1*1 

UAIA  AL/ 14. *  2b.98l*«  b.48b*  1H.M2H*  2b.4i*H*  114.4b.  1*4.81. 

1  14U.4/*  241.94*  2Mb. 2*  440.22*  44b. b4*  441,4b.  2UMb.b* 

* 

AC  IMAM 1 
AC  2MAM1 
•C  4MAMJ 
AC  4MAM 1 

tUMMUl4/LMbb/Sl  41b) 

UA!A  bi/14,*  28.08b*  b.lbU4*  lb. 444*  44.4b/«  4b. 141,  lbb.7b* 

1  20b. lb.  24b. 44.  404.44.  4bl.M4*  401.4/*  4/0.17.  *24.49, 

*  c**4b#  •  4bbb* / 

*1  IMAM  1 
*1  2M AM  1 
*1  4MAM 1 
*1  4MAM I 

COMMON/ LM^U/H  41/) 

UAIA  H/lb. *  40.4/48.  10.4b4*  14. /2.  4U.lbb*  *1.4*4.  b*.007. 

1  220.414*  2b4.41*  404.2b*  4/l.b*  424.4*  4/4.4.  *b0.4. 

2  bll.4*  2 M 1 * . •  4001./ 

M  1MAM1 

H  2MAM1 

H  4MAK1 

M  4MAKI 

CUMMUN/CMbh/b  IlHI 

UAIA  b/lo. *  42.004*  10.4*  24.41*  4*.04*  4 7,292*  /2.4b* 

1  80.04*  2H1 *  *  42b. 82*  4/ M.4S.  44/.*  *0*.8.  *bb.  * 

2  b'Jl .  *  /Ob.*  4220.*  44M2./ 

*  IMAM  I 

*  2NAM I 

*  4MAM 1 

*  4MAM1 

LUMMON/LMbM/tL  (141 

UAIA  CL/1/.*  4b. 4*4*  14.02*  24.804*  49.414*  *4.4**.  b7.blb* 

1  40./*  114.4*  448.4*  400.8*.  4**.4,  *40.4.  *44,* 

2  bob. *  /44«  *  bO/.*  4b*4, *  4441,/ 

CL  IMAM I 
CC  2MAMI 
CC  4MAMI 
CC  4MAMI 

CUMMUN/LMbb/ AM  (201 

UAIA  AM/18.*  44.448*  1*. /*4.  2/.b2b*  40.041*  *4.8*  /*.02* 

1  41.42*  124.*  144.44*  422.b*  4/4.4*  *4b,9*  021.* 

2  b8 /. *  /**. *  8*4.*  41b.*  411*,*  440/,/ 

AM  IMAM  1 
AH  2MAH1 
AH  4MAM I 
AM  4MAM I 

CUMMUM/LM*H/A  (211 

MbAL  A 

UAIA  A/14.*  44.102*  4,444*  41.81*  4b.*  80,4*  8?.b* 

1  44,/*  118,*  1**,,  l/*.44*  *04.8*  *04.*  024.* 

2  /!/,*  /8b.*  b/0.*  4bb«*  1041.*  4604.*  4410./ 

A  IMAM  1 

A  2MAHI 

A  4MAH 1 

A  4MAM1 

A  *MAHI 

CUMMuN/LM*B/CA  (22) 

UAIA  CA/20. *40. 08*0.111* 11. bbb* *1.21*b7. *84. 49* 104. *12be # 143.4* 
1180. ,211.4**41.8*0**. • /2/. *02U. * 84b. ,440*  *1084. *11*4, **119,, *471 

CA  1MAH1 
CA  2MAMI 
. /CA  4MAMI 

COMMON/ LM*B/*C  (241 

UAIA  *C/21.*  44 , 4*o*  b.*4*  12.8*  24.7*,  /4,4.  42.. 

1  111.*  144,*  1*4,*  180.*  22b.*  2*0.*  087.* 

2  7*8.*  840.*  940.*  1010.*  Ill*,*  1210.*  1282.* 

*c  imami 

*C  2MAM1 
*C  4MAH 1 
*C  4MAMI 
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c 


c 


c 


c 


c 


c 


c 


c 


c 


c 


J  04M0.0#  U000.4/ 


CUMMUN/CMbb/ I  1  (C4 )  ,  j 

U*l*  11/22.#  4/.V#  o.b2#  U.)7i  27 .4/#  40.24#  yy  ti  11 

1  120.#  141..  1/2. •  1V0.#  21/.#  2bb. •  2  a.#  11 

*  /NO.#  NO**..  Wl.i  104b .  •  1 132.  •  1240.#  1441.#  II 

•»  141/. N#  b04V.O#  bb2 /.//  II 

CUMMUU/CMOb/V  1201  v 

U*IA  V/  20.#  0U.V42#  b./4#  14. bS#  2V. 4#  40.*  fcb,  ,  12V.#  101.#  V 

11/4..  20b.#  200.0#  200.#  00V.#  00b.#  bV/.#  V/b.#  1007.#  Il70.»  V 

2 120U • #  1000.#  14NU.0#  lObO.O#  bb40.N#  /240.4Z  V 

CUMMON/CMbll/CH  1 2b  I  CM 

UAIA  CM/24.#  Ol.VVb#  b./b4»  ib.4V#  00. Vb#  00.#  /O.#  CM 

1  VI.#  Ibl . •  100..  210.#  24V.#  2/2.#  2VV. •  CM 

2  000.#  004.#  1010.#  lOVb.#  11H2. •  1001.#  10VO.#  CM 

0  102b. 2#  lb2b.O#  i/OV./#  /2bb./»  70V7.4/  CM 

CUMMUN/CMOU/MN  12/1  MN 

Ht»L  MN  MN 

UAIA  MN/20. •  04.Vao#  /. 400*  Ib.bOb#  00. bV#  bO.»  /b.#  MN 

1  100.#  11V,»  lVb. «  222.#  240.#  200. •  010##  MN 

2  000.#  404.#  400.#  110b.#  1222.#  1010.#  140b..  MN 

o  lboo.#  lb/o.#  i//v.#  iobo.«  7vi o. •  bb/b#/  mn 

COMMON/ CMOB/I-L  (20)  ht 

UA I A  l-t/20.#  00.04/#  /.b/#  lb. lb#  0O.b40»  b/.#  7V,#  l-t 

1  100.#  100,#  101.#  2/0.#  202, •  2VU, •  000.#  ►t 

2  0 00.#  OVU.#  40/.#  4bV . #  1200.#  1004.#  1400.#  ►t 

O  1000.  #  ION/.#  IbO  /. .  IVOb.#  202V.#  NOW.#  V2KI  ,/  ►t 

CUMMUN/CMOU/CU  (2VI  Co 

UAIA  CO/2/..OO.V0O2# /.bb#l/.Ob#00.4V#b0.#b0.#lllb.#104.#lb4.>lV0.#  CO 
12V0. #000. #00/. #ObO. #412. #444. # 012. »b4 /, #1400. • 14 Vb. #b*U , • V007. 7*  CO 
21uolb./  Co 

COMMON/ L.M0U/N1  (001  NI 

MC AC  Nl  NI 

UAIA  Nl/2b,#bb./l# /.bOO# lb. 10# 00. lb# Ob.# /V. # 1 12. # 140 , # lbV,  # 202  .  #  NI 
1200. #021. #000. «ObO. »40U, #400. » 000 . • 000. «  OO /. • 1041 . #  7*0. 1 1004b##  Nl 
210/HO./  Nl 

COMMuN/CMbD/CU  (Oil  CU 

UAIA  CU/2V, #b0.04#  /,/2 4.  20.2V#  Ob.bO#  OV. #  02,#  110.#  140. • 1 70. • CU 
120b. •  241.#  2b0 . «  0/0.#  400.#  440.#  4d0.#  020,#  ObO.#  bOO,#  b/l.«  CU 
2 1 bV4 . •  1 /Vb. •  IVOb.#  20b/. •  21/0.#  2 ObO. •  2408.#  2bbV.#  10H10..  CU 
Ollb/0./  CU 

C0MMUN/CM0U/2N  (021  2N 

UAIA  2N/00 .#bb.O/#V.OVl#17.Vb#OV.7#b2.#bb.#110.#14b.#lbO.#2lO.#  2N 
1200. #0. #011. #420. #400. #4 VO. #040.# ObO. #b20># /OO. # V#0. # 1 lblO. #  2N 

2120V0./  2N 

COMMON/CMOH/V.A  (001  (#A 


OMAMI 

1MAMI 
2MAm  I 
OMAMI 
4MAM I 
OMAMI 

IMAM) 
2MAM1 
OMAMI 
4MAM  I 

1  MAM  I 
2MAM  I 
OMAMI 
4MAM  I 
OMAMI 

IMAM  I 
2MAMI 
OMANI 
4MAMI 
OMAMI 
bMAMl 

IMAM  I 
2MAMI 
OMAMI 
4MAM  | 
OMAMI 

IMAM  | 
2MAM  I 
OMAMI 
4MAMI 

IMAM  1 
2MAm  i 
OMAMI 
UMAMI 
4MAM I 

IMAM  I 
2MAMI 
OMAMI 
4MAMI 
OMAMI 

1MAMI 
2MAM I 
OMAMI 
4MAMI 

IMAM  I 
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c 


t 


t 


t 


t 


c 


L 


c 


c 


L 


c 


UAIA  OA/Jl.t  64./^.  bit  ZUibllt  J0tM4i  64,16.  VU.t 
1  IIB..  144..  1/4. .  OBi. 

*  i4*0.»  1243b..  1 3246./ 

LUMMON/LMSB/Ot  041 

UAIA  Ot/32..  72.  S4.  /.MBS.  IS. 434,  34.223.  4S.711.  43.447. 

1  133..  14B.  .  1  //.#  /|i£.  t  /bif.f 

2  20*0..  lMVl.t  14127./ 

LOMMON/LMSB/AS  I3SI 

UAIA  AS/33..  74.4216.  '/.Bib*  20.204.  26.317.  SO.  04.  62.626. 

1  12/. SS.  ISO..  162. *  216  »  .  2S3.  . 

2  21*0..  141/b..  1SUJ/./ 

COMMOH/LMSH/St  Obi 

UAIA  St/34..  /6.4b. 4.  76.21. S. 32.. 43.  ,bS.  .B2. .  15S.  »lb/.  .223,  »2bU. » 
122*0. .16042.  .IS*///./ 

LUMMUN/LMSB/bN  0/1 

UAIA  0N/3S..  74.404.  11. B4.  21.6.  36. 4.  470.  S'#. 7. 

1  6b. b.  103..  143..  22B • .  260.. 

2  23*0. .  lbUV.t  16447./ 

CUMMUN/LMSB/AH  OBI 
NtAL  AN 

UAIA  AM/36..  63.6,  0.444,  24. S/1.  36.461.  S2.»  6S.» 

1  74. »  11U.»  126..  234..  2  /U.  • 

2  24*0..  1/00..  1/44/./ 

tUMMUN/LMSH/HB  1341 

UAIA  MO/3/..  BS.4  /.  4.176.  2/.S«  40..  S2..  71,. 

1  65..  100..  OS..  1S1. .  2/'.. 

2  2S*0. .  16014, .  164/6./ 

CUMMON/LMSB/SH  1401 

UAIA  SM/36, .  B/.62.  S.b42»  11,027.  43. »  37..  72.. 

1  12,.  10/..  124..  162..  1/4..  324,. 

2  26*0..  140SS. >  2003b./ 

• 

CUMMUN/LMSB/T  1411 

UAIA  7/34,.  66.406,  BOB.  12.23.  20. S.  62..  77.. 

1  43..  116..  131..  146. .  141 • .  206. . 

2  26*0..  20123..  21130./ 

LUMM0H/LMSB/2N  »42l 

UAIA  2N/40, .41. 22.6. 64* 13. 0.22.46.34,33. 02. »V4.» 11 7. .141., IS/,  » 
1 1/6. .222.. 27*0. .21221.. 222S2./ 

CUMMON/LMSU/NB  1431 
NtAL  NB 

UAIA  NB/41.,  42.406.  6.66.  14,32.  2S.04.  36.3.  SO.. 

1  1U3. .  12S. .  143..  167..  IBS..  203.. 

2  26*0..  223S1 , .  23406./ 

LUMMOU/LMSB/MO  1441 


OA  2MAMI 
b  A  3MAHJ 
OA  4MAM1 

Ot  IMAM  I 
Ot  2MAMI 
Ot  3MAHJ 
Ot  4MAH] 

AS  IMAM] 
AS  2MAMI 
AS  3MAN1 
AS  4MAK1 

St  1MAK1 
St  2MAH1 
St  3MAHI 

HH  1MAH 1 
BN  2MAM1 
BN  3MAH1 
HK  4MAK  1 

AN  IMAM  1 
AH  2MAK1 
AN  JMAK1 
AM  4MAH 1 
AM  SbAMl 

MB  IMAM  1 
NO  2MAM1 
NO  3MAM 1 
MB  4MAMI 

SN  IMAM  I 
SN  2MAHI 
SN  3MAMI 
SN  4MAHI 

T  1MANI 
7  2MAM1 
T  3MANI 
T  4MAM I 

2N  IMAM I 
2M  2MANI 
2M  3MAN1 

MB  IMAM I 
NB  2MAM 1 
NB  3MAM 1 
I  IB  4MAN1 
NB  SMANI 

MO  IMAM I 
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c 


c 


c 


c 


c 


l 


c 


c 


c 


c 


c 


He  *t  HU 

UA'A  MU/42.*  Vb.V4*  /.I*  lb. lb*  K7tUi  4b. 4*  61.2*  HO 

1  oo.*  1 2b  •  *  im.i  lbV.*  iv/.*  2iu.*  hu 

2  2V*0.  *  24bl4.*  24bVU./  HO 

CUMMON/LMbU/IC  1 4b  I  *<• 

UA  I  A  lt/44.  *  VV.  *  /.2B*  n./bOl  ,  .4  0.  *bV,  *  /O  .  *V4,  *  Ibl  .  *  164.  *  1VV.*  It 
1224.  *4U*U.  .<*4  7Ub.  *2bBU /./  *t 

tUM*UN/LMbU/KU  I4bl  HU 

DAI  A  MU/44,*  101.0/*  /.4b4.1b.  /b *26.46*46.  *64.  *el.  *  10U.  *11V.*  1V4.  •  HU 
121b.* 22b.  *41*0.  *2bV41.  *2/Ubb./  HU 

COHMON/LHbll/HH  14/1  HM 

UA  I A  HM/4b.»  102.Vl'b*  /.4b*  16.0/*  41. Ub*  4b.*  b /.*  HM 

1  db.*  I  Ub  •  *  12b.*  14 /.*  22b.*  2bu.*  HH 

2  02*0.*  2/16V.*  26440./  HM 

COMHUN/LHbH/nJ  I46J  HU 

UA  I A  HU/ 4b.  *lUb.4*H.44*lV.42*32.V2*4V.*bb.*V0.*110«*142.*lbb«*  HU 
11  /6. * 2bl. *  44*0. *264/6. *2Vb46./  HU 

CUMMUN/LMWAG  14V)  *** 

UA  I A  A  0/4/.*  1U/.B7*  /.  b/4*  21.46*  41.62*  M.*  7U.*  Ab 

1  6V .  *  11b.*  14V.*  162.*  16/.*  *0 

2  4b*U.  •  2V60 1  .  •  4UVV4./  *<* 

CUHHUN/LHbb/tU  »bU)  tu 

UA I A  tU/46.*  112.4*  6.VV1*  lb . V2  *  46.2*  bb.*  73.*  tU 

1  V4 . •  lib.*  14b. •  1/0.*  lVb.*  tU 

2  4b*U . *  bilbo.*  424/1./  tu 

tUHHON/LHbU/lN  Ibl I  lN 

HL At  IN  lN 

UA I A  1U/4V. •  114.62*  b./Ub*  !6.6bV*  26.U2V*  b4.41*  /7.*  IN 

1  VO.*  120.*  144.*  1/6.*  204.*  IN 

2  4 / *0 • •  42b4b. •  44/62./  lN 

CUMMUN/LMbb/bN  Ib2l  *.'» 

UA I  A  bN/bU. •  116. bV*  / . 444 »  l4.b42*  40.b24*  40. /4b*  72.274*  bN 

1  104.*  12b.*  IbU. •  1 7b •  *  214.*  bN 

2  46*0 . *  44Vb6. •  4b227./  bN 

tUMMUN/tHbB/bH  Ib4l  bH 

UA I A  bb/bl.*  121. /b*  6.b4l *  16. b4*  2b. 42*  44.1bb*  bb.7*  bb 

1  lU/.b*  142.*  lb  /. *  164,*  211.*  bb 

2  4V*0. *  4b42b . *  4b  /Ob./  bb 

tUHMUN/LHbb/lt  Ib4l  '*■ 

UA I A  It/b2>*  12/. 0*  V.01*  16.6*  40.6*  47.61*  60.27*  It 

1  /2.4 4*  14/. 2*  164.*  1V2. *  220.*  ’k 

2  40*0.*  4bVlb. •  46217./  't 


tUHMON/LHbb/I  Ibbl 
Ht  AL  1 


2HAHI 

4HAH1 

4HAKJ 

bHAKl 

IMAHl 
24AM  I 
4HAH1 

1HAH1 
2HAHI 
4HAH  1 

1HAH1 
2MAH I 
4HAM1 
4HAH1 

IMAHl 

2HAKI 

4HAH1 

1H  AH  1 
2HAH  1 
4HAKI 
4MAN I 

IMAHl 

2MAKI 

4MAH1 

4MAh1 

IMAHl 
2MAHI 
4HAH  I 
4MAH I 
bMAHl 

IMAHl 
2MAHI 
4‘4AH  1 
4MAHI 

IMAHl 
2MAHI 
4MAHI 
4MAH 1 

IMAHl 
2MAMI 
4MAH  I 
4MAH1 

IMAHl 

2MAH1 
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UAIA  1/33.*  l2b.VJtt*  10. 430*  1V.0VV*  32.*  42.*  bb. * 

1  VV.*  1/0.*  200.*  22V.* 

2  4l»0.*  30441.*  3V)b4./ 

L 

CUM“UN/LMbb/XL  (30) 

UaIA  AL/34.*  131.3*  12.12V*  32.12*  30.3*  31.3* 

1  o'*. 2#  vi. <4.  lub.bt  l/b.2*  1V0.2*  21b. b*  242.3* 

2  2b/. 4,  2V3.b»  320. b*  332. b*  302./*  414.*  <t<*3.b* 

3  3b 3 . 0 *  3VV.2*  b33.V*  bVO.B*  73U.*  /33.*  Ob'*.* 

4  1321.*  1302.*  lb<*2«*  1/12.*  1/02.*  103**«*  1V43.* 

3  2U23.  •  210b.*  2<*bl  •  *  24/1.*  233V.*  2b4V>*  2/42.* 

b  2V1V. *  3022. *  3224.*  3330.*  / b32.*  7022* •  0020. * 

/  0234.*  0021.*  V002.*  V320. •  VBU2 • •  40260.*  41430./ 

L 

LUMMUN/LMbb/Lb  *3/1 

UAIA  43/33. *  132.V03*  3.0V3*  23.1*  33.*  **b..  62.* 

1  /v.*  101.*  120.*  144.*  233.* 

2  43*0.*  413V/.*  42Vb2./ 

L 

LUMMUN/LMbb/UA  (30 1 

UAIA  HA/30 , *  13/.  34*  3.21*  10.001*  3b>*  **V.  *  62.* 

1  00.*  V3» •  120.*  143.*  13/.* 

2  44*0.*  4322V.*  44013./ 

L 

LUMMUN/LMbb/LA  (3VI 

Kt*L  la 

UAIA  LA/3/. •  130. VI*  3.61*  11.43*  IV. 1/*  32.*  bb.* 

1  00.*  100.*  114.*  144.*  163.*  204.* 

2  44*0.*  440V/.*  40301./ 

L 

LUMMLN/LMbU/LL  IbOi 

UAIA  LL/30. •  14U.12*  3.6*  12.3*  20.*  33.*  70.* 

1  Ob.*  100.*  124. •  137.*  Ib3.*  10V.* 

2  43*0. •  4bb01 . •  40023./ 

L 

LUMMUN/LMbb/KK  (01) 

UAIA  KK/3V.*  140. VO/*  3.40*  0.*  23.2*  2*0.* 

1  OV.*  10b.*  122.*  14b.*  102.*  IV/.* 

2  40*0.*  40342.*  4V/03./ 
t 

LUMMOU/LMbb/NU  (62) 

KtAL  NU 

UAIA  NU/bO.*  144.24*  3.3*  4*0. • 

1  1*0.*  110.*  120.*  14/.*  1/1.* 

2  40*0.*  30120**  31302./ 

C 

LOMMUN/LMbb/KM  (031 

UAIA  KM/bl.* 14/.* /«0.* 133.* 134.* 173. *4V*0.» 3193b. *334 17./ 

L 

LUMMON/LMbU/bM  *64) 

UAIA  bM/02.*  130.33*  3.0*  11.3* 

1  30*0.*  337V0 . •  332 VO./ 
t 

LUMMON/LMbb/tU  (03) 

UAIA  LU/b3. *131.Vb»3.b/* 11 .2* 7*0. *  187 .* 31*0. *  33003. *37201 ./ 


1 

3MAH 

1 

<*MA« 

1 

3MAM 

XL 

IMAM 

XL 

2MAN 

XL 

3MAH 

XL 

4MAK 

XL 

3MAH 

XL 

OMAN 

XL 

7MAH 

XL 

OMAH 

XL 

VMAK 

Lb 

1MAH 

Lb 

2MAH 

Lb 

3MAH 

Lb 

4MAK 

UA 

IMAM 

HA 

2MAH 

HA 

3MAW 

HA 

4MA4 

LA 

IMA* 

LA 

2MXK 

LA 

3MAh 

LA 

4MAH 

LA 

3MAH 

LL 

IMAM 

LL 

2MAK 

LL 

3MAH 

LL 

4MAH 

KK 

IMAM 

KK 

2MAK 

KK 

3MAH 

KK 

4MAM 

NU 

IMAM 

NU 

2MAW 

NU 

3MAK 

NU 

4MAM 

NU 

3MAH 

KM 

IMAM 

KM 

2MAH 

bM 

IMAM 

bM 

2MAK 

bM 

3MAM 

LU 

IMAM 

LU 

2MAH 
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COMM0N/LM5l>/bU  (Obi 

UA  I*  bu/bn.  . 15/ .25. b. lb*  12.  »oo*u.  *57bl5.» 59151./ 

LUMMoN/LM5b/IU  (b/l 

uaia  ib/b5.t  15B.92M.  5.9b* 

1  b2*u.*  595b/. t  btuu./ 

bUMM0N/LM5b/UT  (bbl 

UAIA  UT/bo.  *  lb2.5t  b.b*  bj*u. •  b!599.*  bJ169./ 

LUMMuN/LM5b/H0  (b9l 
UAIA  HO/b /.#  lbH.9Jt  b.t 
1  bH*u. *  bJb52.*  052J9./ 

L0MMUN/LM5b/tH  t/UI 

UA I A  tM/bb.t  lb/. 2b*  b.Ub* 

1  05»U.*  Ob /Hb. *  b/J5U./ 

LUMMUN/LM5U/ 1 M  (/II 
UAIA  IM/b9.t  lbb.9JH*  b.* 

1  bb*U.  •  b/bb2.*  b *51)*./ 

L0MM0N/LM5H/ Tb  1/21 

UAIA  TU//U. tl7J.UH*b.2*l2.1*bb*U.t  /U0b2.«  /lb9b./ 

L0MM0N/LM5b/LU  1/JI 
HbAL  LU 

UAIA  LU/ 71  •  •  1/H.9/*  b«li  15.*  19. » 

1  bb*U.  *  /22bH.*  /59JJ./ 

LUMM0N/LM5b/MF  I /HI 

UAIA  IW-//2..  l/b.H9*  /.*  1H.9.  71.1.  JJ.lt 

1  bb*U. t  /H55U . t  /b21H./ 

L0MMUN/LM5b/l A  1/51 

UAIA  I A/ / J. .  1BU.9HU*  /.bb.  lb. 2.  22. t  JJ.t  Hb.t 
1  bb*U. t  /bbbU.t  /d5J9./ 

LUMMUN/LM5H/*  I /bl 

UAIA  ■//H..lbJ.b5./,9Btl/./*2H.* J5.*H|}.,bl,,llH.J»lJl.2*lH9.1* 


5559U,. 5/22.t 585 /. 1 599b. *bH9d. . bb51 . • b9 /U .  . 712H . . 155H5. t 15816. * 
blblU9.tlbH2b.t  ld2U9.  •  ld59 /•  >  192  /5.  >  19bbU • •  79J77 •  .bill  (19./ 

L0MMUN/LM5b/Kt  (//I 

UAIA  Mt//5.t  lbb.2*  7.B/.  Ib.bt  2b. .  Jb.t  51.. 

1  bH.t  /9.t 

2  bb*U» .  dibit). *  bj J25 • / 

C0MM0N/LM5b/0S  (/bl 


bU 

Imam  I 

bU 

2MAMI 

fb 

1MAMI 

lb 

2MAH1 

lb 

JMAMl 

UT 

IMAHI 

UT 

2MAM1 

HO 

IMAM  I 

MU 

2MAM1 

MO 

JMAMl 

tH 

IMAM  I 

tH 

2MAWI 

tH 

JMAMl 

IM 

1MAM1 

IM 

2MAM1 

IM 

JMAMl 

Tb 

1MAM1 

TH 

2MAM1 

LU 

IMAM  1 

LU 

2MAH1 

LU 

JMAMl 

LU 

HMAM  1 

Ml- 

IMAM  I 

Mf 

2MAM I 

Mf 

JMAMl 

IA 

IMAM  I 

IA 

2MAM1 

1  A 

JMAMl 

■ 

1MAM1 

N 

2M  am  1 

■ 

JMAMl 

>N 

HMAMI 

5MAM1 

iN 

bMAMl 

■ 

/mami 

• 

bMAMl 

Mt 

IMAM  1 

Ht 

2MAM1 

Ht 

JMAMl 

Mt 

HMAMI 

05 

IMAM  I 

05 

2MAMI 
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t 


c 


t 


c 


c 

c 


UAI  A  KA/6B. .22b. 05, 5. 2 7 7, 10. 144,44, .46. .56. ' 7b. .6V. >104. >140. > 
1156. * 7b»0 •  « 11 744V. • 11V26/./ 

CUMMUH/tM5b/AC  I VI I 

UAI  A  AC/6V.  .22/.*b.V.12.1>20.  ,4  V.  .62.#  7b.  •  VS.  •  1 UV.  #  124. .  164.. 

1  /  7*U  .  . 120600. » 122442./ 

tUMMUN/kM5H/ IM  l VC  I 

UAIA  IH/VO..  242.046*  b.V5«  12..  20..  2V.2*  6b.. 

1  60 .  #  *4..  lib.,  14U..  14b. . 

2  76*0..  1246UV. '  125656./ 

CUMMow/LMbU/HA  IV4) 

UAIA  HA/V1.<  241..  5*0. •  64..  100. .  11b..  146..  154., 

1  7V*0« .  12  7064 • .  126V4M./ 

LUMMUN/LMbb/U  IV4J 

UAIA  U/V2 . .  245.04.  6.12.  11.4b.  17. V2.  41.12.  47.44.  62. «4.  V?. 
110b. 7  .11V.1  • 14V.  .162.7  .176.4  *221.6.241.  ,44V. 4  .464. 

2466.2#414..44u.b.46b.*bUB..b47.b.bbb.*bVV. , 744. 2. 76b. 4. 601.. 64b. 
4V46. . V66. . 10V1. . 1141 • . 1454. *  1404. . 145b. * Ib06. . 1562. . 1616. • 1675. . 
41/44..  16U6. .  166V..  1V42. *  1VV7..  2062. *2140. .2514. .2581. .  2651 


766 75..  6644.. VO 16. >V5V4. .V/64. • VV46. . 10120. • 11470. • 11570. . 12000. . 

612220. . 25440. .256 7U. *26040. • 26440. .40V60. * 41460. • 424VU. . 42V20. . 
V140400.. 142500./ 


KA 

2MAH1 

HA 

4MAMI 

AC 

IMAM  I 

AC 

2MAMI 

At 

4MAM1 

IH 

IMAM  I 

‘  IM 

2MAMI 

IH 

4MAH 1 

IH 

4MAKI 

HA 

IMAM  I 

HA 

2MAKI 

HA 

4MAMI 

U 

IMAM  I 

7.U 

2MAH I 

4  .  U 

4MAMI 

*  u 

4MAM1 

u 

5MAM1 

.  >u 

6MAK1 

.»u 

7MAK I 

.  »u 

6MAAI 

u 

VMAH1 

U  10MAK1 

U  1 IMAM I 

CUMMUN/LMbH/tNUMNU I 2 I 
UAIA  LNUMKU/O . .654 ./ 


HtlUKU 

tNU 
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The  way  in  which  the  MARI  deck  is  used  by  the  EIONX  program  and 
other  equation-of- state  subroutines  requires  that,  if  any  given  ionization 
potential  is  unknown,  it  and  all  higher  ionization  potentials  must  be  replaced 
by  zeros.  The  MARIE  block  data  program  is  not  held  to  this  restriction 
and  has  zeros  replacing  only  the  unknown  ionization  potentials  (and  not  any 
higher  ones  that  may  be  known).  However,  it  must  have  the  elements 
entered  in  the  order  of  increasing  atomic  number.  The  MARI  block  data 
program  is  ordered  in  the  same  fashion,  but  this  is  merely  for  reading 
ease  and  is  not  a  requirement  on  the  MARI  program. 

The  potentials  used  in  MARIE  are  taken  from  HELAS,  which  follows, 
and  Allen  (Ref.  5),  Garstang  (Ref.  6),  Moore  (Ref.  7),  NBS  tables  (Ref.  8), 
Stewart  and  Rotenberg  (Ref.  9),  and  Lotz  (Ref.  10). 

MARIE  is  a  FORTRAN  IV  block  data  program  used  by  many  other 
programs  as  a  source  of  the  atomic  weights  and  the  ionization  potentials 
of  the  elements.  It  is  organized  in  the  same  fashion  as  the  MARI  block 
data  program,  namely: 

1.  For  each  element,  in  sequence  as  listed  below: 

a.  The  atomic  number 

b.  The  atomic  weight 

c.  The  ionization  potentials 

For  any  given  element,  those  ionization  potentials  that  are  not  known  are 
entered  as  zero. 

2.  The  MARIE  d  eck  has  the  elements  entered  in  the  order  of  increasing 
atomic  number. 

HELIKE:  THE  HELIUM  ISOELECTRONIC  SEQUENCE 

HELIKE  is  one  of  two  programs  used  to  generate  the  ionization 
potentials  of  the  helium  sequence.  (HELAS  is  the  other  program;  refer 
to  the  HELAS  writeup.  )  HELIKE  is  based  on  the  development  of  Bethe  and 
Salpeter. 
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1.  V2  i  ■  jnr  +  Ej +  AEj  in  Rydbergs 

2.  J  =  Z2  -- Z  +  0.  315311  -  0.  01707/Z  +  0.  00068/Z2  + 

NR  4 

0.  00164/Z3  +  0.  00489/Z4 

3.  E  =  4  a2  Z2  {Z2  -  3.  606Z  +  3.  29  +  0.  05/Z} 

J  4 

4  3  /v 

4.  AE.  =  ~---3ZTr—  {3.  745  -  £n  Z  -  (5.  97  -  1.  31  inZ)  + 

(3.  08  -  0.  28  inZ)/Z2) 

5.  a  el.  / 137.  037 

7 

where  Vz  ^  is  the  (Z-l)-st  ionization  potential  of  the  element  with  atomic 
number  Z. 

The  helium- sequence  ionization  potentials  generated  by  the  above 
equation  appear  to  diverge  from  measured  values  for  Z  >  17.  For  this 
reason,  the  technique  used  in  the  HELAS  program  was  next  coded.  A 
comparison  tabulation  follows  the  HELAS  writeup. 

HELAS:  THE  HELIUM  ISOELECTRONIC  SEQUENCE 

HELAS  is  the  second  program  used  to  generate  the  ionization  potentials 
of  the  helium  sequence  (refer  to  the  HELIKE  writeup).  HELAS  is  based 
on  the  paper  by  Brenner  and  Brown  (Ref.  11). 

The  relativistic  Dirac  equation  for  the  energy  of  a  one-electron  atom 
can  be  written: 

edirac  =  •  21  pz  •  1)0,2  inR'rdb'rg" 

where 

p  =  [1  -  (aZ)2]1/2  and  a  s  (1.  /  137.  037) 

The  two-electron-interaction  energy  can  be  exDressed  as 
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y2  =  2  (P2  (2PZ-  1)1' 1  (-1  +  10pz  -  2(pz)2  -  4(PZ)3] 


J  2  1 

T(2pz  +  1)(  «  +  18pz  -  2(pz)2  -  12(pzn 

L(3)(2Pz  +  l)r(2pz  +  \\ 

,  1/2» 

2"  Pz  J 

Then,  the  helium- sequence 

ionization  potential  is  given  by: 

*Z-1  =  EDIRAC-yZ  in  Rydbergs 


It  proved  necessary  to  norm  ilize  this  equation  to  the  value  of 
by  using 

xz-i  =  *z-i  ‘  *  vi*  in  Rvdberss 

2  2  2 
where  V  is  the  (measured)  first  ionization  potential  of  helium  and  (<>  -  V  ) 

*  Z 

is  thus  an  additive  constant.  The  set  of  X  ;  2  <  Z  <  92  form  the  final 

*  1 

program  output.  These  values  are  tabulated  together  with  the  HELIKE 
values  in  table  IV. 


80 


rn  no  non  o  o  onnonno 


AFWL-TR  -67-131,  Vol  IV 


PHUOKAM  HtLlKE ( INPUT * 0U1 PU I  *  T  APESs INPUT  *  I APtbSOUTPUT  I 
HEPtHtNCt 

BETHt  ANU  SALPETtH 

QUANTUM  MECHANICS  OP  ONE  AND  TWO  ELECTRON  SYSTEMS  . 
EQUATIONS  03.121*  (41.11AI*  AND  (41.12A) 


DIMENSION  V  CM (1001*  V  EV  ( 100 I  •  JNR (100) *  EJC100I*  DEL  EJ(100> 
heal  jnh 

DA  I A  Pl/3.141b92bS/*  MY  CM/10973/. 31/*  RT  EV/13.6048/*  ALP  Ml/137. 
1  037/ 

COMMON/LMSB/A ( 1 1 

ALP AS  l./ALP  Ml 
ALPASQS  ALFA  •  ALFA 


DO  1  1=2*100 
Z=1 

ZLN5ALU6UI 
ZSU=Z«2 
Z4IHS  ZSU*ZSQ 

NON-HtLATlVlSTlC  CONTRIBUTION 

JNH (ITS  /SQ  -1.2b«Z  ♦ • 31S311  -1./07E-2/Z  ♦b.BE-b/ZSQ  M.64E-3/Z 
1  /2SQ  ♦  4.BVt-3/Z4TH 

KELA1 1  VIST  1C  CONTRIBUTION 

tJUls  .**  •  ALPASQ  *ZSQ  •  ( ZSQ-3 . 606»ZLN  *3.29  ♦  .05/2  I 
DEL  EDI  1  is  -16.  •  24TM  • ALP  A SO  *ALPA/3./PI  •  0. 747-2LN-C5.97-1 .3 
1  l«2LM/2  ♦ ( 3.0S-.2B*2LNI /ZSO  ) 

KSS 

KYA  CMS  HY  CM-bU.22/ AIM 
MYA  tVS  HYA  CM  •  1.239/7E-4 
K=K*2«1F1X(A(K-1I I 

SUMS  jNHUI*EJUMOEL  tJUl 

V  CM  Tils  HYA  CM  •  SUM 

V  EVI1IS  KVA  EV  •  SUM 

1  CONTINUE 

c 

c 

■Hilt (b* 2 1 

2  FORMAT  Uhl  I 
■Hi Tt 16*31 

3  POHMaT (S3h  THE  2  ELECTHON  GROUND  STATE  IONIZATION  POTENTIAL  IS  I 
■HITE  16*4 1  (  1*V  tv«n*v  CM (II*  JNH(1I.EU(1I*0EL  EOT  1 1  *  1=2* 100) 

4  FORMAT l IX*  7HF0K  2S  *13*  9H*  N  t . V . . 1PE13.6* 13H  (OH. IN  /CM*  *E13. 

lo*  6H  I*  s  .E13.6*  7H  JNH  ♦  «E13.b*  6H  EJ  ♦  *  E13.6*  7H  DEL  EJ  I 
CALL  EXIT 
CALL  MAH  IE 
HE  I URN 
END 
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HHObHAM  HtLAS  * INMUl  .OUTMUI « T  AHtS: INPUT  * TAK£fc:OUTPUT ) 
HEFEKfcHCt 

S.UHtNNtK  AND  li.E.  WHO AN 

F*KOC.  MOT.  SOC.  LONDON*  SEHiES  A.  VOL. 218*  P.422-432 
11VS3) 


DIMENSION  BETA  1 10U)  «  EUIHACllOO).  BRACES! 1001  »E  TO  E 1100 1 .ETOtV 110 
101  .EIOTI1UOI  .ETOTtVdUUI .ETOT211UO).  EVTOT2HOO) 'EUKCEVdOO) 

DA  I A  ALF  Ml/13/. U37/.RT/13. 6048/. SQMTri/1. 772483V  /.ME  RT/1.8U71 

1  /.HE  EV/24.S8S/ 

ALFA:  1./ALFM1 
ALF  SO:  ALF  A*ALF A 


DO  1  1:2.100 
2:1 

2SU:  2*2 

DEI  AdCSOMTIl.-ALF'SO  •  2SU1 

mum 

ED1HAL ( 1 1 :-2. • I x-l . I /ALFSU 

LUHCEV 1 1 1 :EU1RAC  d )«HT 

CALL  bAMMAI2.4X41,.bAMl<»2.S3l 

2  CALL  bAMMA12.4X4.S.GAMMAF.»4.*3l 
bO  ro  4 

3  CALL  MEHN 

4  CONTINUE 
T:  2.«x-l. 

UHACLSIli:  1-1.4X4  do.  -  X4  12.44.4X)) l/X/T/3. 

1  — 2./bAMl/3./T  •  bAPHAF  •  1-1.4  X4tl».-X4  12.4  12. *X)))/ 

2  SQHfPl/2.  /X 

t  m  till:  2.4  2  4  BN ACES 11 ) 
tTUtVIli:  E  TO  till  *KT 
ElO I  IIIs  ED1KAC 1 1 1— E  TO  Ell) 

ElUTtVllI =EUKCt V l 1 1 -E TOE VI 1 1 
IF  ll.bl.2)  bO  TO  5 
HELOT:  ML  RT-ETOI12I 
HtLEv:  Ht  EV-ETOTEV12I 

5  CONTINUE 

E TO 1 2 1 1 1 s  ETOTI1I  4  HELOT 
Ev IOT21 II  :  ETOTEVI1I4HELEV 
1  CONTINUE 
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MKl lEto. /I 
7  70HMAI I1H11 

MKilEtO.BI  HtLO  t •  HLLEV 

B  70HMAT tlX.lOHUSINO  HELOT  =  .1PUS.R.2X.  12MAND  MELEV  =  .1PE15.A’ 
U2H  ML  COMPUTE  //1X.JM  2.  SX.7HBETA(2>  • MX. VMEDIHAC l Z 1  »3X»9ME0HCE 

2VIZ) » JX.VHBHACESIZ1  OX.Vhe  10  Et2>.2X.10ME  TO  EVtZl.HX.BHE  TOTtZl. 
JJA.MMLlUlEVlZl * JX.9HE  I0T21/1 i JX»  SHE VTO  12(2)) 

WHHElb.91  i 1 .BETA 1 1 1  . ED1HAC  t 1 1  >LL)HCLV  ( 1 1  . BHACES  1 1 1 .ETOE ( 1 1 . 

1  E!OEVtll.ETOTtll.£loTEVlll.ETOI2tll.EVTOT2tll.  1:2*1001 
V  70HMAI  llX.U.lPE12.b»lX.VE12.bl 
CALL  LAI  I 

END 

IFtKMAHl  «EU«  KK1  00  10  107 

17  tKMAHl  ,tQ.  01  GO  TO  10J 

1  ML  AUOVL  OCCUHS  WHENEVER  lMt  KK-TH  ELEMENT  IS  NOT  IN  THE  MARI 
UtCK 

10b  CONllNUt 

m;m*  kmahi*  2 
00  10  10b 
107  CONTINUE 

AT  iHlb  POINT  I  HE  KK-TM  ELEMENT  HAS  UEEN  LOCATED 
11b  LOMEH-TH  10N12AI10N  P0IENT1AL  WILL  BE  USED 

TEST  LOWEH-TM  IONIZATION  POTlNTIAL.  IF  2EH0.  SKIP  TO  NEXT  ELEMENT. 
17  tKMAHl. LT.LOWH21  GO  TO  103 

1N0EA=M*1»  LOMEN 

I7tABSlUtlNUEXn.LT.  l.E-B  1  00  TO  lOi 
ME  NOM  HAVE  A  VALID  DATUM  ANO  CAN  ENTER  IT  INTO  THE  T  ARRAY . 
LSIOKES  LSIOHEM 

X  t  LSTOhE I S  LOMEHMLSTEP 

TILSTOHLi:  UI1NUEX1 

17  1LHE0UC.NE.01  T l LSTOHE 1 =Y ILSTOHE 1 /Xt LSTORE 1 
MA I  NO t LSTOHE IS  KK 
10J  CONTINUE 

At  this  point,  the  x  and  y  ahrays  have  been  set  dp. 

1HEHE  AHE  LSTOHE  ENlHlES  IN  THESE  AHRAYS 


CALL  711  IX.  Y*  LSTORE.  LOHOEH.  UEVEAT .  1M.  C0E1 
17  tlMl  201.202.201 

201  CONI 1NUE 

WHITE  lb. //OJILSTOHE.LOKDEK.lOmEK. IT  t Jl . MATNOt J1 .JSl. LSTORE I 
CALL  DEBUG 1201 . 202. NEXT  1 
00  10  SOU 

202  CONTINUE 
ILONOHSLOHOENM 
DO  2UJ  JSl.lLOHDH 
C0E7  1  J.  K  IS  COE  t Jl 

203  CONTINUE 
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LAST=L0»CH*8 

tVALUAIt  SEOUL NCE  FHOM  P0LTN0M1AL 

UO  2U4  d-l.LOMtK 

Xd=d 

KAIN01d)=  K-Ud 
POlENL»d)=C0Ell) 

00  VI  1S2»IL0RUH 

POItNLI  d)=POTENH  d)»COt»  I)«»Xd**i  1-1 »  ) 

VI  CONI INUL 

XKAlNO  =  KATNOId) 

MAH  1 Am  I KK ATNO *  d  I  S  POIENLld) 

204  CONllNUt 

NUXT=LOmEK*1 

MH1 It  lb* / 703 ) LS I OKE  » LOWULH  » LOvtN » 1 T l J ) » MAI  NO ( J )  •  d=l(LSTORE) 

7703  FUflMAHbHlUSlNO.  13.23M  IONIZATION  POTENT! ALS.JX* lbMA  FIT  OF  0KDEH 
1 1  lit*  bM  10  THL  »!3»2bM-IH  ISOtLEC  I  RON  1C  StQUENCE/3X»4HMlTH.3X» 
212HINPU1  VALUE  *18M  AT  AI0M1C  NUMBER  /  1 1UX. lPt 1U .4 , 1 AX . 1 3) I 

AHllLlto* /0U2)  (KA INOt J) *  J#  POTENL  Id)*  d=l*LOMEK  ) 
tUU*  FOHMA I (21H0HAS  A  FIT  EVALUATION/ J I BH  FOR  l  S*I3*bM  AT  d=*I3*llH*A 
1  VALUE  OF  #  0PFV.1*3X)> 

7704  F'OHMAT  (2VM  FUHlHtK  EVALUATEU  VALUES  AHE  /(3X.4M  L  S.13.3X.4H  d  X* 

1  13*1 Pt IS. 8) ) 

MHITtlbi 770S)  COL 

7705  FOHMA I  1 21H  US I NO  I ML  POLTNOMlAL  •  SX •  1PL IV. 8’ bH  *d*  »1PE14.8» 

1  7*1  ♦d*J*  .lPtl4.8*lUM  Fd**3  •  »1PE14.N.1UM  ♦d**4  •  .1PE14.8) 

7707  F0HMA1I21H  US1N0  IMt  POLTNOMlAL  *SX. lPE14.8*bM  *d*  • 1PE14.8# 

1  /M  *d*d*  •1PL14.NI 

MK1 IE  lb* /U03)  UEVEAT 

7003  FOHMAlIZdM  THE  STANUAHU  DEVIATION  MAS  •  1PE12.S  I 


M0KL  =  U  FI  I  2SV3  10  100  WITH  INPUT  IF  AVAILABLE 'OUTPUT  IF  NOT 
M0HES1  FIT  ZSV3  10  100  MlTH  INPUT  ONLT 
MOHES2  FIT  Z=V3  10  10U  MlTH  OUTPUT  ONLT 
IF'  IMOHE  «E0t  H  00  TO  301 
C  PA  I M  FOH  MOKE.EU.Z.OH.MOHE.EO.O 

XXI3ISLOMLK 
TTI3)=POTENL(LOmEN) 

XA 12) -LU«EKS1 
T  T 1 2 ) =PU  TENL 1 LOMLH-1 ) 

XXt l)=LOMLH-2 
T  T 1 1 ) SPOTENL ( LOMEH-2 1 
1FIMOHE.NE. 0)  00  10  302 

IF  (MATNUILSTOHEI  .tO.  KA1N0IL0MER I )  TT I 3)=T (LSTOHE) 

IF  (MA1NOILST0HE*!)  .EQ.  XA 1  NO ILOMEK-1 )  )  TT <2)=T ILSTORE-1 ) 

IF  IMATNOILSTOKE-2)  .EU.  KATNOILOMEK-2) )  TT 1 1 )ST (LSTORE-2) 
302  CONTINUE 
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■hi it  (b>mui 

U1U  FORMA!  ( 3UM0 INHUT  TO  IMt  QUADRATIC  FIT  IS  /) 

UO  901  LT  =  1»3 

LTT=L0»tK-34LT 

LTTTSXXILT) 

•  Hi  It  lb. 7109)  KA1N01LTU.LTTT.YULT) 

7109  FOHMA1  ISX  * IBM  AT  ATOMIC  NUMBER  U3U0H  MITH  J  S  .13, 
120H  AN  10NI2AT10H  POTENTIAL  OF  .1PE1S.8) 

HOI  CONTINUE 
00  10  303 
301  CONllNUt 
C  HAIM  FOH  MORE  =  1 
XXU)-X«LST0HE-2> 

XXl2)SA(LST0Mt*l> 

XX ( 3) -X (LSTOKE ) 

TTtl)=T(LST0KE-2) 

TTI/»=TILST0KE-1» 

TT (3)ST (LSTOHE  ) 

UO  1UH  LX=1»3 
LXXSLS10HE-34LX 
LXXX-AX (LX ) 

•  HUE  lb.  7109)  MAINU(LXX)  .LXXX.TT(LX) 

10b  CONUNUt 

303  CONUNUt 

CALL  Ml  (XX.TT.L3.L2.UEVIAT.1M2.C0E2) 

IF  ( I  M2)  2001 . 2002.2001 

2001  CONUNUt 

■H11L  lb. 7703)  L3.L2. I TT l J) .MAT NO ( J) • JS1 .3) 

CALL  UtUUOl200l.2002.NEXT) 

00  10  sou 

2002  CONllNUt 

UO  2003  jro.B 
COtMJ.KI=COt2lJ-b) 

2003  CONTINUE 
C 

C 

UO  2U09  J-NUXT .LAST 

xj:j 

KAINOl J)=K-1«J 

HO I tNL l J ) =C0t2 ( 1 ) 4C0E2 1 2 ) »X J4X J*X J*C0E2 ( 3  > 
KKmINO-KATNOI J) 

MAKlANIHKATNO. dl=HOTENLld) 

2009  CONllNUt 

•Hlltlb. 7709)  (KAINOl J) .  J.  HOT tNL l J) »  JSNUXT.LAST) 
■Hilt  lb. 7707 )  C0E2 
■HlTt  lb. 7003)  UEVIAT 
C 
C 

SOO  CONUNUt 

■Kilt  lb. 7006) 

7006  FORMAT  llMl) 

C 

C 

UO  600  JS1.100 
■Hi Tt (6. 7007) J 
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TOUT  FONMAI  120HQE0K  tLERENT  NUMdtR  »13*  3lH«  THE  IONIZATION  POTENTIALS 
1  ANE) 


1)0  601  JZZltJ  »10 

J4=  M1N0(J2*V*J  ) 

4HUt  lto./UUS>  J2*  TMAR1ANT J»U3I •  J3SJ2*J4) 

TOWS  ► OHM a |  I  lX'13’3X'lPt0tl2.S> 

C 

601  LONflNOb 
600  CONTlNOt 

c 

JLORURZILOHURO 

•Ml rt(6t /T06)  (  J» (LOEF ( JJ» J) • JJSl • JLOMDH  ) .d=l #KCOUNT) 

/706  EOKMAI  ( 14H1C0EF  ARRAT  IS/ « 4*. 13. IPSElS.O’SXf lP3tlS.8> ) 

00  TO  1 

C 

CALL  MARIE 

RETURN 
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1  A1U.K  IV 

ION1Z  Vi  ION  1*01  I.N  I1ALS  KOK  1  UK  TW  O-  KLEt  I  UON  MOM 


2.  4581  *01 
7.  S6  19*01 

1.  5  IKS  *02 

2.  5‘»2‘»K  +02 

3.  919H6  *02 
5.  51925*02 
7.  19119+02 
9.  516+02 

1.  1956+01 
1.  4648+0  1 

1.  7612+03 

2.  0855+03 
2.  436+03 

2.  815+03 

3.  22+03 

3.  654+03 

4.  115+03 

4.  603+03 

5.  119+03 


2.  458500  *01 

7.  559767  *01 

1.  5  383  34  *02 

2.  592056+02 

3.  9200  30+02 
5. 519665+02 

7.  392276+02 
9.  537974+02 

1.  195717+0  3 

1.  465021+03 
1. 761765+0  3 

2.  085968+03 

2.  437710+0  3 

2.  817031+03 

3.  223997+0  3 

3.  658670+03 

4.  121115+03 

4.  611420+03 

5.  129647+03 

5.  675899303 

6.  250255+03 

6.  852810+03 

7.  483672+03 

8.  142944+03 

8.  830720+03 
■3.  547140+03 

1.  029231+04 

1.  106637+04 

1.  186944+04 

1.  270166+04 

1.  356319+04 

i.  445417+04 

1.  537476+04 

1.  632512+04 

1.  730543+04 
1. 831586+04 

1.  935660+04 

2.  042784+04 

2.  152978+04 

2.  266262+04 

2.  382660+04 
2. 502191+04 

2.  624o80  *04 
2. 750751+04 
2. 879828+04 

3.  0121  37+04 

3.  147706  *04 

3.  286562+04 

3.  428732*04 


2. 45902  I *01 

7.  564295  +01 

1.  5  39037*02 

2.  59  39  39*02 

3.  921  350*02 
5.  521509+02 

7.  3946  96  +02 

9.  541228+02 

1.  196  147+03 
1. 465582+03 

1.  762473+03 

2.  086870+03 

2.  438826+03 
Z.  818401+03 

3.  2256  56+03 
3.660660+03 

4.  123485+03 
4. 614207+03 

5.  132907+03 
5.  679673+03 
6. 254594+03 
6. 857765+03 

7.  489287+03 

8.  149263+03 

8.  837804+03 

9.  555024+03 
1.  030104+04 
1. 107598+04 
1.  187996  +04 
1. 271312+04 
1. 357561+04 
1.  446755+04 
1.  538910  +  04 
1.  634041  +04 
1.  732163+04 
1.  833293+04 

1.  937448+04 

2.  044643  +  04 

2.  154898+04 

2.  268229+04 

2.  384855+04 

2.  504196+04 
2.  626871  +04 
2.  752699+04 

2.  881702+04 

3.  013899+04 

3.  149313+04 

3.  287965+04 

3.  429878  +  04 


I  IK  LAS 


3.  574248+04 

3.  72  3141  *04 

3.  H75441  *04 
4. 0  31  182+04 
4. 190398+04 

4.  383126+04 
4. 519402+04 
4. 689264  +04 
4. 862751+04 

5.  0  39905+04 
5.  220768+04 
5.  405386+04 
5. 593802+04 
5.  786065+04 

5.  982224+04 

6.  182331+04 

6.  386439+04 

6.  594602+04 
6. 806879+04 

7.  023330+04 

7.  244014+04 
7. 469000+04 
7. 698353+04 
7. 932141+04 

8.  170441+04 

8.  413326+04 

8.  660876+04 

8.  913176+04 

9.  170308+04 

9.  432365+04 

9.  699440+04 

9.  971633+04 
1.  024905+05 
1.  053179+05 
1. 081997+05 
1.  111371+05 
1.  141314+05 
1.  171838+05 
1.  202957+05 
1.  234686+05 
1.  267040+05 
1.  300036+05 
1.  333689+05 
1.  368018+05 
1.  403042+05 
1.  438782+05 
1.  475258+05 
1. 512492+05 
1. 550511+05 
1.  589338+05 


I1KLIKK 


3.  575074*0  1 

3.  723577*0  1 

3.  875410*0  1 

4.  0305'Ikio  1 

4.  189166*04 

4.  351  1  38*0  1 

4.  51654 1 *0  5 
4. 685401+01 

4.  857744+04 
5. 033598+04 

5.  212990+04 

5.  395948+04 

5.  582502+04 

5.  772679+04 
5. 966511+04 

6.  164026+04 

6.  365256+04 

6.  570232+04 

6.  778985+04 
6. 991547+04 

7.  207951+04 

7.  428230+04 
7. 652417+04 
7. 880546+04 

8.  112653  +  04 

8.  348771+04 
8.  588937+04 

8.  833187+04 
9. 081556+04 

9.  334082+04 

9.  590803+04 

9.  851756+04 
1.  01  1698+05 
1. 038651+05 
1. 066040+05 
1.  093867+05 
1.  122137+05 
1.  150854+05 
1.  180022+05 
1.  209646+05 
1.  239730+05 
1.  270277+05 
1.  301293+05 
1.  332781+05 
1.  364746+05 
1.  397193+05 
1.  430126+05 
1.  463550+05 
1.  497469+05 
1.  531888+05 


AFWL-TR-67-1  31 ,  Vol  IV 


SECTION  IV 

OPACITY  AND  DATA  TRANSFORMATION  CODES 

All  of  the  valid  DIAPHANOUS,  DIANE,  SYLVIA,  ALOUETTE,  and 
ZSAZSA  opacity  information  in  use  at  General  Atomic  has  been  transmitted 
on  tape  to  the  DASLAC.  Enough  information  has  been  presented  in  the  code 
writeups  (which  follow)  to  enable  these  tapes  to  be  read.  For  further 
information  refer  to: 

1.  DIAPHANOUS  data:  see  the  DENSER,  DASE,  DAPHNE, 

DYPER4  ,  GRAPH,  and  TRANS  writeups.  The  DENSER  writeup 
specifies  the  DASLAC  tape  format.  The  other  codes  listed  arc 
able  to  use,  edit,  or  modify  the  data  as  specified  in  their  writeups. 

2.  DIANE  data:  see  the  DIANCT  and  DIANE -tape-and-card-format 
writeups,  and  the  GREYS,  EGREY,  REDGRE,  and  DYPDIN 
writeups.  The  DIANCT  and  DIANE -tape-and -card-format  write¬ 
ups  specify  the  DASLAC  tape  format. 

3.  SYLVIA,  ZSAZSA,  and  ALOUETTE  data:  see  the  EDSILV  writeup 
for  a  discussion  of  the  DASLAC  tape  format. 

DYPER4:  A  PLOT  PREPARATION  CODE  FOR  OPACITY  AND 
THERMODYNAMIC  DATA 

The  primary  functions  of  the  DYPER4  program  are  to  read  data  from 
either  a  DIAPHANOUS,  a  DENSER,  or  an  ANDIMX  tape  and  prepare  plot  tapes 
for  the  SC-4020.  DYPER4  reads  one  input  data  tape  and  either  plots  opacity 
data  and  punches  cards  containing  thermodynamic  data,  or  sets  up  a  one¬ 
dimensional  array  containing  thermodynamic  data  to  be  plotted  by  subroutine 
GRAPH.  DYPER4  requires  only  one  data  card,  containing  the  following 
information: 
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0010V 

1. 

EmT  0TPCr«/S002O.l 

.670005.  59009 

00100 

a. 

eof  2 

00100 

i. 

SUBROUTINE  DIAPER 

00100 

0, 

• 

00100 

9. 

••••  COMPILED 

SEPYEMBEP  20.  1066  SCHALIT/VATES  •••• 

00100 

0. 

00100 

7. 

variable  name 

MEANING 

00100 

0. 

00100 

t. 

•••  *uGE*S  *** 

00100 

10. 

OEtEPj  (2000) 

ENEMY  CHANGE  DUPING  A  TRANSITION  (EV> 

00100 

11. 

OElEPS  U1C0) 

IONIZATION  POTENTIAL  OP  A  STATE  (CVI 

00100 

10. 

ElN  (IS) 

ENE0GT  op  ground  state  op  an  ionization  level 

00100 

11. 

EP»D  (1300 1 

same  as  eps  In  diaphanous 

00100 

1*. 

FPJ  (3.  3.  3) 

fractional  percentage  coefficient  fop  transition  beybeen 

ooioo 

11. 

split  configurations 

0010b 

10. 

lJ.)  (20001 

IDENTIFICATION  NUMBER  OF  INITIAL  STATE  ASSOCIATED  BlTH  A 

00100 

17. 

TRANSITION 

00100 

10. 

1 SPLIT  (IS.  OO 

)  IDENTIFICATION  OF  A  SPh.IT  CONFIGURATION 

00190 

10. 

MERGED  (19.  00) TRUE  IF  THIS  CONFIGURATION  IS  THE  AVERAGE  O'-  SOME  OTHER 

ooigw 

20. 

configurations  in  The  table 

00100 

21. 

MJD  (200) 

NUMBER  OF  ELECTRONS  IN  LEVEL  FROM  BHlCH  ONE  IS  REMOVEO  IN 

ooioo 

22. 

THIS  TRANSITION 

00100 

22. 

NFJ  U300I 

sas:  as  nf  In  diaphanous 

00100 

2*. 

NJJ  (200C ) 

principal  GUANTU"  NUMBER  (OR  REDUCED  GUANTum  NUMBER)  OF 

001U0 

la. 

ELECYmOn  removed  In  THIS  transition. 

00100 

2b. 

N0  (0.  IS.  OO) 

number  of  electrons  in  an  electron  level  in  a  configuration 

ooioo 

27. 

NHMAX  (IS) 

NUMBER  of  CONFIGURATIONS  at  An  I0NI2ATI0N  LEVEL 

OOIOO 

20. 

'MSFVt  (1300) 

CONFIGURATION  identification  of  a  state 

OOIOO 

20. 

NS7VE  (1300) 

ouantum  number  of  Outer  electron,  if  beyond  table,  of  a 

OOIOO 

20. 

state 

OOIOO 

11. 

0J  (1300) 

same  AS  0  IN  oiaphanous 

00100 

12. 

JbT  (IS.  001 

degeneracy  of  a  configuration 

ooioo 

11. 

20  (11.  OO) 

COEFFICIENTS  IN  QUADRATIC  FOR  DETERMINING  ENERGY  OF  THIS 

OOIOO 

lb. 

CONFIGURATION 

OOIOO 

11. 

ai  (is.  ooi 

COEFFICIENTS  IN  BUAQRATIC  FOR  OETERMlNlNB  ENERGY  OF  THIS 

OOIOO 

lb. 

CONFIGURATION 

OOIOO 

17. 

*2  (11.  00) 

COEFFICIENTS  IN  QUADRATIC  for  determining  ENERGT  OF  THIS 

OOIOO 

la. 

CONFIGURATION 

OOIOO 

10. 

•••  0HPH2 

OOIOO 

*0. 

IE  (100) 

s*«e  as  beu.  indexed  by  (nf  ♦  i)  for  initial  state 

OOIOO 

*1. 

GtJ  (1600) 

PARAMETER  DETERMINING  line  alDTH  FOR  A  TRANSITION 

OOIOO 

02. 

C  (10) 

CONCENTRATION  OF  an  ELEMENT  (ATOMS/ATOM) 

00100 

*1. 

COM  (121 

comment  card  In  FORMAT  12A0 

OOIOO 

*0. 

SUE  (100) 

SUM  OF  DElJ  »T  PREVIOUS  IONIZATION  LEVELS  (EV) 

OOIOO 

bi. 

ObbEPj  (22001 

ENERGY  CHANGE  OURING  A  TRANSITION  (EV) 

OOIOO 

bb. 

DL..EP1  (1500) 

ionization  POTENTIAL  OF  A  STATE  (IV) 

OOIOO 

07. 

Oiul  (100) 

PRESSURE  IONIZATION  AT  AN  IONIZATION  LEVEL  (EV) 

OOIOO 

00. 

EPj  (1500) 

ENERGY  OF  A  STATE.  USUALLY  REFERRED  TO  THE  ENERGY  OF  THE 

OOIOO 

oo. 

GRJUNO  STATE  OF  THE  NEUTRAL  ATOM  (Ev> 

00100 

90. 

EPrPRm  (1500) 

ENERGY  OF  A  STATE  AFTER  REDUCTION  OuC  TO  PRESSURE  IONIZA¬ 

00100 

91. 

TION  (Ev> 

OOIOO 

92. 

Ea  (100) 

same  as  exu,  indexed  gt  inf  •  n  for  initial  state 

00100 

92. 

EaJ  (1600) 

parameter  determining  line  locations  for  a  transition 

OOIOO 

90. 

gamblr  no) 

array  of  gamma 

OOIOO 

91. 

lu  (2200) 

IDENTIFICATION  NUMBER  O'  INITIAL  STATE  ASSOCIATED  BITH  A 

001U0 

9*. 

transition 

OOIOO 

97. 

MArEZ  (1900 

IDENTIFICATION  of  state  TO  SE  ELIMINATED 

OOIOO 

90. 

MJ  (2200) 

NUMBER  OF  ELECTRONS  IN  LEVEL  FROM  BHICH  ONE  IS  REMOVEO  IN 

OOIOO 

90. 

THIS  TRANSITION 

OOIOO 

00. 

NEb  (2200) 

ORIGINAL  IDENTIFICATION  number  of  a  transition 

OOIOO 

01. 

Nf  (1100) 

NUN1ER  OF  free  electrons  for  A  state 

OOIOO 

02. 

NJ  (2200) 

total  GUANTum  NUMBER  (OR  REOUCEO  GUANTUM  NUMBER)  OF  ELEC¬ 

OOIOO 

02. 

TRON  REMOVEO  DURING  A  TRANSITION 

OOIOO 

00. 

MUST  (10) 

index  Number  of  last  state  in  table  for  an  element 

OOIOO 

09. 

PHI  (2200) 

strength  of  eoge  DUE  TO  THIS  transition 
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00100 

*0. 

c 

00100 

*7. 

c 

00100 

0*. 

c 

OOiOO 

09. 

c 

00100 

70. 

c 

00100 

71. 

OOlbO 

72. 

00100 

73. 

00100 

7*. 

00100 

75. 

00100 

70. 

00100 

77. 

001(10 

79. 

00100 

79. 

OOlbO 

Bi). 

OOlbO 

01. 

00100 

02. 

00100 

*3. 

00100 

Gb. 

00100 

*5. 

00100 

Ob. 

ooioo 

*7. 

00100 

09. 

00100 

ov. 

00100 

90. 

00100 

91. 

0010b 

92. 

00100 

93. 

00100 

9b. 

00100 

95. 

00100 

9*. 

ooioo 

97. 

ooioo 

9*. 

OOIOO 

99. 

OOIOO 

100. 

001B0 

101. 

OOIOO 

102. 

OOIOO 

103. 

00100 

10b, 

OOIOO 

105. 

00101 

100. 

00101 

107. 

00101 

109. 

00101 

109. 

00103 

110. 

00103 

111. 

S010R 

112. 

0010b 

113. 

0010b 

lib. 

0010b 

US. 

0010b 

110. 

c 

B0105 

117, 

0010* 

11*. 

00107 

119. 

D  (ISbO) 
ft  (ISbO) 

K>  (10) 

SMALLP  ( 1500 ) 
TtSTU  (2200) 

TOLA  (10) 

U  (5) 
ft  (S) 

UOlO  (2200) 
UPHN  (2200) 

9  (10) 
l  (10) 

•••  DIAPF.R  ••• 

A  MU  (1000) 

bnu  dooo) 

10  (12) 

TftJ  (1000) 


DE^NtRACY  OF  A  STATE 

FIRST  ?R3o0RTI0nAL  TO  LOS  POPULATION  AND  THEN  TO  POPULATION 
OF  A  STA*t 

FIRST  MAXIMUM  A.  THEN  Su«  OF  ft.S.  F0«  AN  ELENLNT 
POPULATION  OF  A  STATE 

LO.FST  VALUE  OF  mu  AT  kHtCH  THE  ABSORPTION  COEFFICIENT  IS 
AFFECfiO  BT  THE  LINE  SERIES  FOR  TkIS  TRANSITION 
ARRAY  OF  XT 

COtrFICl£NTS  IN  SA'jSSIAn  INTEGRATION 
COEFFICIENTS  IN  GAUSSIAN  INTEGRATION 
LOCATION  OF  EDGE  DUE  TO  THIS  TRANSITION  (Ev/Ev) 

LOiEREJ  EDGE  TO  APPROXIMATE  HIGH  LINES  (EV/EV) 

ATOMIC  »EI»HT  OF  AN  ELEMENT 
ATOMIC  NuMdEA  OF  AN  ELEMENT 

ABSORPTION  COEFFICIENT  AT  A  PARTICULAR  VALUE  OF  MU(.G  ,LE. 
MU  .LE.  IS)  (PER  CM) 

BOTTOM  of  LOSE  OCCuRING  AT  A  PARTICULAR  VALUE  OF  MU(Mu  .OT. 

IS) (PER  Cm) 
comment  CARD 

TOP  OF  EDGE  OCCURING  AT  A  PARTICULAR  VALUE  OF  U  (U>19)  (PER 
CM) 


•••  SPECTRA  ••• 

DlFECT  (100.  b)9UANTuM  DEFECT  INDEXCO  RT  the  IONI2ATION  LEVEL  ANO  L  ♦  1 

DttEPj  0500)  SAME  AS  DClEPJ  IN  OIAPHANOUS 

OELEPS  (1750)  same  AS  OClEPS  in  DIAPHANOUS 

EPSO  (1750)  same  AS  EPS  IN  DIAPHANOUS 

luu  (0500)  SAME  AS  1J  IN  DIAPHANOUS 

IOnZC  (100)  2CORE  FOR  AN  IONIZATION  LEVEL 

L  (19)  L  FOR  An  ELECTRON  LEVEL 

LlN  (10)  LEVEL  at  WHICH  An  ELECTRON  IS  BEING  ADDED 

LOUT  (10)  LEVEL  AT  WHICH  AN  ELECTRON  IS  BEING  REMOVED 

MUD  (0500)  SAME  as  Mj  IN  OIAPHANOUS 

N  (19)  N  FOR  an  electron  level 

Nc  (92.  19)  NUMBER  OF  lLECTRONS  PER  ELECTRON  LEvEl  IN  THE  BftOUMO  STATE 
OF  AN  IONIZATION  LEVEL 
NFu  (1750)  SAME  AS  NF  IN  DIAPHANOUS 

NJU  (0500)  SAME  AS  NU  IN  DIAPHANOUS 

BU  (1750)  SAME  AS  Q  IN  DIAPHANOUS 

3MAN0090 

DIMENSION  AvU(OOOO) .  BmUUSOO).  TMUIlSnO).  UKOOOO).  U2I1500)  . 

1AI6B2).  TX(2) .  TT (?) .  CHARA(r).  ChARB(J).  AA(20>. 

2  Charc(m).  chard ( o ) *  CharEO).  charoio).  Charh(S>  snanooTO 

0  •  BCUdLM  bO  >  •  HUUdbl,  I  HUB  ( 1 0 ) .  HUGB(G).  COMPIIO).  1Z(10) 

Edul VALENCE  (AA(1).2BAR),  ( A  A ( 2  > .RHO) .  (AA(S).BlGP).  ( A A ( 9 ) , EPSMAL 
1).  (AA(S).AKAPPA).  (AA(A).WAMBO*).  ( AA 1 7) .EIPART) .  ( A A ( B ) .BANNER) 


EQUIVALENCE  (BCOBLX.  ChARA).  (5CDBL<(5).  ChARC). 

1  («COBl<!»),  CHARg).  (BCOBLK (9) .  CHARO), 

2  (BCOBLX ( 12 ) ,  CHARE).  (BCDBLKIIS).  CHARO >• 
0  (  BCDBLK ( IB) •  CHARH).  (HUBBI2).  UlN),  (HuMO).  Out) 


BMAN0096 
OM ANO 100 
9MAN0110 

5MAN0130 


integer  and imx. denser 
integer  m 

EBUlVALENCEt lUX.UX ) 
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00107  WO.  C 

00110  m. 
00110  m.  c 

•0111  123. 

00112  12%. 
0011*  123. 

bom  i2t. 

0.123  12T. 

00123  121. 

00123  12«. 

00123  110. 

00123  121. 

00123  132. 

00123  111. 

00123  13%. 

00123  133. 

•0123  11b. 

00127  117. 

00UT  130. 
00127  ISO. 
00127  1*0. 

00127  1*1. 

00127  1*2. 

00127  1*1. 

00127  1M. 

00127  1*3. 

00127  l*b. 
00127  1*7. 

00127  1*0. 

•0127  1*0. 

00127  139. 

0012T  131. 

00127  132. 

00127  131. 

00127  13*. 

00127  133. 

00127  13b. 

•0127  1ST. 
00127  ISO. 
00127  1S«. 

0012T  IbU. 
00127  Ibl. 
0012T  102. 

00127  143. 

00127  lb*. 
00127  143. 

•0127  lb*. 
•0127  147. 

•OUT  14b. 
MUT  !•*• 
00127  170. 

••127  171. 

••MB  172. 
OHM  173. 


CmmWON/PASA/NFAAM£.  SbvCT.  SECRET!*).  AN01MX,  1DANOK12.S) 

C.,«tM0N/ClA/DY(«OUT(5000) 

3»T*  DYPOuT/3000«0./ 

COHMON/DCII/IENDUOO).  N*TS(10BI.  Jl.  NAME,  10(12) 

DATA  Jl/l/«  MARKER/-*/,  EPSILN/I.E-*/.  IENO.NPTS/200»0/ 

y*r»  a.NOEo/0/ 

0*1*  MlN/10/ 

miu  a  io  compressed  i*put  tope  unit. 

HUB (3)  IS  TEMPERATURE  IN  Ev 
HUB ( * )  IS  DENSITY  IN  &M/CMJ 

hub ( • i  is  ioar 

hobo (3)  is  rossclamo  wean  continuous  opacity  in  cmj/oh 

Hustlb)  is  ROSSCLAMO  *EAN  (TOTAL  AAOIATION)  OPACITY  IN  CN2/BN 

DATA  nFRAME.  SAVET/O.O.O/SCCAET/IHSCCAET.bH  R/D  -.bH*A0UP  , 
14H  1  /  ANDlMX/bHANOlMX/.DENSER/iHOCNSCR/ 


SI»NAL 

•1. 

-2. 


-3. 

•*. 

•3. 


SMANOtSO 

PORNAT  OP  INTEAHEOIATE  DIAPHANOUS  TAPE  3«AN0I40 

3MAN01T0 

next  aecoao  contains  identification  caao  snanoioo 

•EdNNlN*  op  CASE.  NEXT  ACCORD  CONTAINS  TEMPERATURE  AN03MANOl*0 
•ANNA,  SUCCEEDING  RECORDS  CONTAIN  computed  ABSORPTION  3MAN0200 
COEFFICIENTS.  «ITH  LINES.  POA  U  LESS  than  IS.  3MAN0210 

TAAnSI T IONS  HIVE  BEEN  EXHAUSTED  BCPORE  RE»CHIN*  u  *  IS.  3NAN0220 
FOLlOwINS  ACCORDS  CONTAIN  some  EXTRAPOLATED  VALUES.  3NAN0230 

FOLLOWING  ACCOAJS  CONTAIN  DATA.  WITHOUT  LINES.  POR  U  3NAN02*0 
•REITER  THAN  13.  3NAN02M 

next  ACCORD  CONTAINS  SUMMARY  OP  RESULTS.  END  OP  CASE.  3MAN0240 

«*  Swim 


format  of  andihx  tape 


A |  A  FIRST  ACCORD  OF!  ANOIMX 

B)  A  SECOND  ACCORD  OF!  40  IDENTIFICATION  WORDS 

C)  A  SUNAl  RECORD  OP!  (DATA  POLLOwS  POR  A  BIVCN 

tempeaaturc-oensitt  point 

01  A  3A  WORD  ACCORD  (CATT  IS  wOAD(3>>  "HO  IS  WORO(*M 
C)  A  RECORD  WITH  (NMAX*1)  WORDS!  NMAX. (MU( J) . Jxl.NMAX) 


RECORDS  (C.D.AND  E)  ARE  THEN  REPEATED.  TEMPERATURES 
A NO  DENSITIES  ARC  MONOTONIC,  TEMPERATURES  ARE  LOWEST 
AT  THE  BC4INNIN0  OP  Th*  TAPC.ThC  hIBNCST  DENSITY  PON 
A  BIVEN  TEMPERATURE  IS  THE  FIRST  DENSITY  AT  THAT 
TEMPERATURE. 


Pi  A  SUNAL  RECORO  OP!  -B.  SIBNIPICS  CNO  OP  DATA, 


3  FORMAT  (12A4) 

a  format  (Ihi.uab/ishotempcraturc  «  » 


P10.3////BX.  SHBANNA.  BX 


smanoibo 


I 

■j 

I 

* 
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0013( 

00141 

00111 

0013 

0013 

001*1 

ooi*; 

001* 

ooi*; 

ooi«< 

001*. 

001«> 

ooi*; 

001* 

001* 

001* 

001* 

001* 

00l« 

001* 

001* 

00t« 

001* 

001* 

001* 

001* 

00i* 

001* 

001* 

001* 

001* 

001* 

00l« 

001* 

00i« 

001* 

OOl* 

001* 

OOl* 

001* 

OOl* 

001* 

001* 

001* 

001* 

Otl* 

001* 

0017 

0017 

0017 

0017 

ooit: 


17*. 

17S. 

17*. 

177. 

17*. 

17*. 

100. 

1*1. 

1*0. 

103. 

10*. 

ios. 

is*. 

107. 

1*0. 

1*9. 

190. 

191. 

192. 

193. 
19*. 
19s. 
19*. 
197. 
190. 

199. 

200. 
201. 
202. 
203. 
20*. 
20S. 
20*. 
207. 
20*. 

209. 

210. 
211. 
212. 
213. 
*1*. 
21S. 
21*. 
217. 
210. 

219. 

220. 
221. 
222. 
223. 
22*. 
22*. 
22*. 
227. 


3MA90310 

3MAN0S20 

3**90330 

3**903*0 

39*90330 

39*903*0 

39*90370 

39*90300 

39*90390 

39*90*00 

39*90*10 

39*90*20 

39*90*30 


TAIN  IS  T*C  TEMPERATURE  AT  AHICH  PLOTTIN*  BEGINS 
T*£90  IS  THE  l*ST  TEMPERATURE  AHICH  IS  PLOTTEO 
9  IF  IM  .GT.  0)  THE  VALUE  OF  *9l9  IS  CM*90E0  TO  THE  HIOHEST 
pOmCa  OF  10  MHlCn  DIVIDES  *919 
IF  (9  .£0.  0)  *919  IS  93T  CHA90EO 

9  IF  IN  .ST.  0)  MUE09E*  0*T*  IS  09LT  PlOTTEO  FO*  U  F*09  U  *  .3 
TO  U  I  13. 

IPlOTI  DETERMINES  AhEthEA  THE  OTPOUT  »***T  IS  TO  BE  FILLED. 

IF  I  IPLOTI  .£0.  I)  USE  OTPOUT  *M*T 
IF  I  IPLOTI  . N£ ,  1)  NORMAL  PL0TTI9*  PATH 


F0Lt0»I9S  **£  the  VAAIAOLES  STOOEO  19  OTPOuTlt)  (*N0  I9TE0**L 
multiples  OF  II 

I  S*3t  v**I*Bl E  HUEB9E*  VARIABLE 

1  T*  tr 

2  A HO  *H0 

3  3*99* 

*  PAESHA 

S  ENEAGT 

*  El  ON 

7  APLA  CAOP* 

*  A AOS  TAOP*  I A AOS I 

9  ZB*A  C*P9F  (20AA) 

1U  E5»9 


ALSO  I9PUT  CARD  1/1 

Ai»0  (S.101)  TAIN.  TAE90.  SI2.  *.  9.  IPLOTI.  IBCDO 
lul  F0A9AT  (SF10.*.»<3X.I4>) 

•KITE  I*. 3)  TA 19.  TREND,  SI2.  9.  N.  IPLOTI,  IBCDO 

3  format  iith  Input  as  aeao  is//uh  tain  x  »eu.«.  /uh  taeno  * 

1  ,El2.*»/llH  SI2  z  .£12.*./11H  9  t  .13,/IIH  N  S 

2  .I3./10H  IPLOTI  S.I3./UH  IBCDO  «  ,13) 

IF  (TAE90  ,LT.  I.E-3J)  TAE90tl.ES* 

AA1TE  <*.*)  TAIN,  TAE90,  SIZ.  9.  9,  IPLOTI,  IBCDO 


1  UH4H0(9«/C*3l ,  61.  7hP| S»ASI »  3*.  WhENG (EAGS/SN I .  31, 

2  1 3h£I0N (CA3S/S*) .  31,  12HAA0SICM2/G*) ,  2*. 

3  12haPlAICM2/S*I.  3*.  *h28*A.  S*<  *hES»m) 

11  Foamat  i*hThEt*:>  C12.2.  *H6*9M*:>  E12.S,  *hmu2A0=.  £12. 3, 

1  AhnjOnEs »  E 12. 3> 

12  FORMA!  (*6H  0  S  10  13  1  10  100  1000) 

IS  FORMAT  C52H  ThEAE  IS  *N  CHAOA  IN  THIS  AU9,  CONSULT  PAOBAAMMEA 

1  33HBEF0AE  SENDING  TAPE  H  TO  PLOTTEA.) 

1*  FORMAT  IlOH  TmEAE  AAE,  1*.  3SH  FAAMES  ON  TAPE  H.  PLEASE  NOTE 
1  «7hTH1S  09  Thl  S*vC  TAPE  AE9UEST.  IF  THEAE  IS  ONE.) 

.3  Format |1P2Ei3.3,  SE15.S*  EIS.2,  CIS.!.  OPFU.i,  Fs,2) 

1*  FORMATllPbElO.*,  0P2Fb.3> 

1*  FOAMATIlPElO.vl 
At A I  NO  1* 


t 
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no. 

«f. 

110. 

ill.  c 

ill. 

ill.  C 
ilk.  C 

ns.  c 

ilk.  C 
ilT. 

ilk. 

no. 

ikO.  e 

ikl.  c 

iki.  kOi 

ikl. 

ikk. 

ik». 

ikk. 

i*T. 

iki. 

ikk. 

ISO. 

ill.  TOV 
isi. 

iil. 

iSk.  Okfl 

IS). 

ilk. 

1ST.  Tku: 

iik. 

iso.  *k«i 

IkO. 

ikl. 

iki.  *ko! 

Ikl. 

ikk. 

iks. 

ikk.  TkU< 

ikT.  C 
ikk.  kko< 

ik*. 
iko. 

ITI. 

iti. 

iTi. 

ITk, 

an.  t«ei 

ITk. 

iTT. 

kOIAkNOSTlC* 

iTk. 

IT*. 

kOUONOSTlG* 


•  FORMAT  (ITkOlNFuT  AS  USED  IS//11H  TAIN  s  tCH.k.  /UN  TlCNO 
1  .Eli.k./llH  SIZ  *  .Ell.k./llM  N  s  . IS./11H  N  • 

i  .is./ioh  iktori  i.is./iiM  ikcoe  *  iis./iHi) 

IF  (IFkOTl  ,U.  II  00  TO  kOO 

33  FLOTTINk  OF  THERM;  ON  00  ( FLOTS  OF  NU  VS.  U  ANO  FUNCM  CARDS I 
OUT  HOT  BOTH 


C»gk  SETUF( A.kki.lkl 

CAUL  kCOCON  (kCOOkll  SMANOkSO 

•AITC  <0*  Iil  SMMtOkOO 

e  FkOCCSS  I  H  F  u  T  SMNOkTI 

C  kOO  Continue 

IF  (IdCOO  .CO.  01  *0  TO  OkOl 

AktlND  IS 

AtAOdSlUl 

NAkC  X  IUI 

IlJIcjl-.S 

IFdlUl  .CO.  (•!»»  ko  TO  100 
IF  (Iu«  .CO.  ANOIMII  kO  TO  TOO 
RAlTElk.TOOOl  U*.  IIU*.  IUI.  IUI 

Ttkf  FORMAT  (ikH  FROOkEM  llTM  FI  AST  ACCOAO  /Sl.lFClS.O.tX.Ik.tK.AO.  |I0 
HO 

kO  TO  000 

OkOl  CONTINUE 

AtAO  (NlN.Tkllt  lux.  (10(11. 1*1. Iil*  NX.  (CONFdl. Il(ll. A*l.N*l 
NAMES  IUI 

TkUl  F3AMAT  (llAk.  /  IX.  (Fk.k.  Ill  I 
IF  (lui  .CO.  OENSEA)  00  TO  OkOl 
Okua  continue 

•AITC  (k. TOOk I  Ul.  IUI.  IUI.  IUI 
•3  TO  kkk 
Oku S  continue 

■AITE  (k.TkOki  JJ.  II.  UCAST.  AILAST .  TK.  kANNA.  (AA<K I .Ksl.ikl , 
nunii.ixk.iii.  (Akudi.n*. in.  (uam.  ica.jji.  (OMUd>»i*a.JJi. 
a(TNUdi.i*a.Ju» 

TkUk  FORMAT  (ilk.  iXO.k.  /(ikEO.kll 
c  IF  (JJ  .OT.  10001  THC  A  AAAAT  MAS  KEN  klFtO  OUT 

Akfhk  F  \y  #  9  yf  if 

At  AO  (MN.TkOkl  JJ.II.  ULAST.  AILAST.  TK»  OAMNA,  ( A*(K>  .1*1.10 1 . 

KUKII.  Isk.IIlf  (AMUIlt.Isk.IIl.  (Uldl.Ii’I.JJl.  (SMUdl.IM.JJI. 
aiTMUdi.ua.jji 
IF  (JJ  .AT.  01  kO  TO  OOOO 
NtNO  S  i 
kO  TO  300 
0000  CONTINUE 

IF  (d!  .OT.  ISO!  .OR.  (JJ  .OT.  1S00I)  00  TO  OAOS 
ITiCm  s  10000 

iflCk  THE  TEST  FOR  COUAkITY  kCTaCEN  NON-INTEOEAS  NOT  NOT  K  NfANINOFUL. 

IF  (UtAST  ,NC,  0. I  ITIChsI I 
NQsf 

ITIC*  THE  TEST  FOR  EOUOklTT  OETkEEN  NON-INTEOEAS  NAT  NOT  K  NEANINOFUt. 
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00*12 

200. 

IF  <U2<2>  .*£.  0.1  NOxl 

00*1* 

201. 

44  9*06  !:»,!! 

00*17 

202. 

01 ( 1*5)  *  UK!) 

00*20 

204. 

A*u(l-5I  i  A* j ( 1 ) 

00*21 

24*. 

*«*« 

continue 

00*24 

204. 

09  9*07  1x2. JO 

00*20 

24*. 

U2( l-u  s  old  ) 

00*27 

207. 

4*0(1*11  s  a*0(l) 

00*40 

200. 

T*0( 1-i •  I  T*o(I) 

00*41 

20*. 

9*07 

continue 

00*44 

2*0. 

1*axx  it  -  4 

00*4* 

241. 

0*AI:  00  •  1 

00*44 

2*2. 

09  TO  *«0S 

00*40 

2*4. 

100 

Continue 

00*47 

2*«. 

NA*£  S  -1 

00*00 

2*4. 

HtAOdS)  (J0(1)  >1*1.12) 

00**0 

2*4. 

9*04 

CONTINUE 

00**7 

2*7. 

17  (1PL0I1  ,ca.  11  00  TO  *01 

00*01 

2*0. 

PUNCH  5.  (ID'll ,  t  :  It  t2> 

4NAN0410 

00*47 

2**. 

c all  7AA*C(o.r,t  l.o.  i.o.  o.o) 

4NAN0420 

00*00 

400. 

CAU.  T S* ( 0 . 2 >  ll.St  lOt  721 

SNAN0S40 

00*01 

401. 

CAUL  A07 

4NAN04AO 

00*02 

402. 

Nf  HANtlNf  AA*C»J, 

SMAN0440 

00*04 

404. 

*01 

continue 

00*0* 

40*. 

17  (10C00  .CO.  0*  00  TO  «*0« 

00*00 

404. 

READ(15)UX 

00*71 

40a. 

17  (A0S(UX«2.)  .LT.  EPSILNI  00  TO  42 

00*74 

407. 

•KITE  (4*20)  OX 

00*70 

400. 

*0 

70AMAT  (T«H0NO  SiSNAL  07  *2.  70LL0VS  71**7  (ID)  RECORD  ON  THE  01  A* 

00*7# 

40*. 

1HANOU5  TAPE,  UX  X  ,  *10, *1 

00*77 

410. 

SO  TO  *** 

00*77 

411. 

C 

NEAO  IN  *0  VERSUS  0  70*  OlyEN  Tt  (ANNA 

4NAN0400 

00400 

412. 

*2 

continue 

00401 

414. 

NEAO  (141  TKt  (ANNA 

00404 

41*. 

I  =  1 

4NAN0A00 

00400 

414. 

IToCh  x  10900 

4NAN0A10 

00407 

41*. 

4* 

*EaO( 14>  01 ( 1 1 1  ANU( 1 1 

00414 

417. 

17  (AOSIUKI)  *  4.)  .LT.  epsilni 

AO  TO  AO 

00414 

410. 

17  (AaS(UKl)  •  *.)  ,lt.  epsilni 

AO  TO  *0 

00417 

41*. 

17  (AaS(UKI)  •  *.)  .IT.  EPSILNI 

AO  TO 

74 

00421 

420. 

1  X  1  «  1 

4NAN0AA0 

00422 

421. 

00  TO  3* 

4NAN0A70 

00424 

422. 

*0 

ITxCM  x  1  •  1 

SNANOAIO 

0042* 

424. 

•0  TO  4* 

4NAN0A90 

00424 

44*. 

*0 

NO  X  1 

3NAN0700 

00420 

424. 

J  x  1 

SMAN0710 

00427 

424. 

*4  READ (15) 02(0 > tlNUI J) iTmu(U) 

0044* 

427. 

17  (ASS(U2(J1  »  *.l  .LT.  EPftLN) 

AO  TO 

7S 

0044* 

420. 

J  *  J  ♦  1 

4NAN0**S 

00447 

42*. 

00  TO  *4 

9NANATM 

004*0 

440. 

74 

NO  <  2 

JN4NA7A0 

000*1 

441. 

7S  continue 

***•« 

442. 

READ  (IS)  2|A*t*HOi01AP,EPt«ALt AKAPPA,*ANOOAtEIPA*T*AANNEN 

00444 

444. 

1MX  X  1  -  l 

4HANA700 
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00559 

33*. 

JMAI  :  J  -  1 

oosts 

335. 

C 

0055* 

330. 

toot  continue 

0OS57 

337, 

IF  I1T«*EPSILN).LT.T1IN  .OR.  TK.OT. (TRENO*CFOIlN) ) 

00  TO 

00501 

330. 

IF  1 I  PLOT l  .10,  11  00  TO  *10 

00501 

339. 

c 

00501 

3*0. 

c 

START  PLOTTING  FIRST  FRANC 

00503 

3*1. 

00  CALL  PRANEIO.O.  20. 0,  20.0.  0.0) 

00500 

3*2. 

CAlL  6IAI0,  0.7,  1.0.  0,29) 

00509 

3*9. 

CALL  OTA(*.  1.0,  0.9,  0,0) 

00900 

3**. 

call  rSFIl.5,  19,0,  10,  72) 

0050T 

3*5. 

AN1N  x  1.C9 

00570 

3*0. 

00  120  Ixl,  IRAK 

00573 

3*7. 

120  ANINx  ANlNllANlNi  ANUU)) 

00579 

3*t. 

IF  IN  ,CQ,  o)  SO  TC  01 

03577 

3*9. 

12  t  IF 21 1 AL0010I AN1  •)) 

SOOOO 

390. 

IF  122  .LC,  0)  22  x  22  -  1 

OOOOI 

351. 

AN2N  x  10. **22 

00009 

952. 

*1  C0NT2NUC 

OOtOO 

353. 

SO  TO  (S3,  0*)«  NO 

00009 

39*. 

*3  0N2N  x  1.C9 

00000 

355. 

00  190  J  X  1,  JNAX 

00011 

39*. 

190  2F  1 1 Ul (J)— ISO.)  .LT.  2.1-37)  ONIN  B  ANINIIONIN,  ONU(J) ) 

oooit 

357. 

0*  CAlL  OCOCON  lOCOOLK 19) ) 

00019 

35*. 

BR2TC  10.  11)  TX,  SANNA,  ANIN,  ONIN 

00019 

359. 

CALL  TSFI 1 . 3,  2,0.  CHARO,  20) 

00020 

900. 

CALL  TSFI1.3,  2.3.  CKARCI1).  10> 

02029 

3*1. 

00  90  2  x  1,  * 

00090 

3*2. 

XTTF  x  5.  •  FlOATU)  -  0,7 

00091 

303. 

09  CALL  TSFUTVF.  .*«  CHARAIl),  o) 

00032 

30*. 

TTTF  X  0,29  •  FLOAT  1 2 )  -  5,29 

00039 

3*5. 

90  CALL  TSFl.l,  TTTP.  CHARCID,  0) 

00099 

300. 

CALL  TSPI1.3.  2.0.  CHAR*,  10) 

00O99 

3*7, 

e 

FLOT  NU  VERSUS  U 

00030 

3*0. 

00  ISO  2  x  1,  2NAI 

oooti 

3*9. 

FNUls  2.7103  •  ALOSIANU(I)  /  ANIN)  *  1.0 

00002 

970. 

IF  (2  .EO.  1)  SO  TO  1*0 

ooott 

971. 

Till)  x  Till) 

00OO5 

371. 

IF  IITnCH  ,GE,  2)  SO  TO  139 

00007 

373. 

Tf|l)  x  Till) 

00090 

37*. 

Till)  x  UK!)  t  1.00 

00OI1 

375. 

19*  TT(2)  x  ANINliFNUl.  20.) 

00092 

37*. 

IF  ITTI1)  .07 .  20.)  00  TO  100 

00050 

377. 

130  CALL  0VRI1,  0.  Tl.  TT.  1) 

00099 

370. 

IF  lIToCH  ,lT,  I)  00  TO  100 

00097 

379. 

1*0  TUI)  x  U1I2I  ♦  .90 

OOOOO 

300. 

TT 12)  *  FNUl 

OOOOI 

301. 

TUI)  X  UllD  ♦  1.00 

00002 

302. 

TTI1)  >  ANINliFNUl.  It.) 

00009 

3*3. 

IF  1 (FNul-20 ■ )  .LT,  1.7-371  CALL  0VR(1*  0.  TI,  TT* 

1) 

MOO! 

30*. 

1M  CONTINUE 

ttMT 

309. 

call  aof 

tttto 

30*. 

NFRAHCxNFR  AnC*1 

00021 

307. 

SO  TO  I1M.  I*«)i  NO 

3NAN0T90 


9NAN0030 

3NAN0SO0 

SNAN0I30 

3NANOOSO 

SNAN0070 

SNANOOOO 

SNANOOOO 

SNANOOOO 


3NANO910 

3NAN0020 

SNAN0930 

3NAN09S0 

SNANOOOO 

3NAN09TO 

SNANOOOO 

SNANOOOO 

3NAN1000 

JAAN1010 

SNAN10I0 

3NAN1030 

3NAN10*0 

3MAN10S0 

3NAN10SO 

3NAN1070 

3NAN10S0 

3NAN1090 

3NAN1100 

3MAN1II0 

SNANU20 

3NANU30 

SNANlltO 

3MAN1I90 

SNANlltO 

3NAN11T0 

SNANlltO 

SNANlltO 

SNAN1IOO 

SNAN122S 

3NAN1ISO 

SNANlltO 

SNANlltO 
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•UTl 

•0*7* 

AMTS 

IHtl 

IHTt 

mn 

•MTT 

MTU 

••TO 

••TO 

••TO 

••TO 

••TO 

MTU 

•on 

•ana 

••Tit 

••Tit 

•oto 

•0*1 

•O** 

•o*s 

•o*» 

••TO 

MT*T 

MTJi 

••TO 

•OTO 

••TO 

•0*T 

••T«T 

AoHT 

••TO 

•On 

••TO 

••TO 

NTH 

••TO 

•OO 

••TO 

••TO 

••TO 

••TO 

••TO 

•OO 

•am 

•on 

OTTS 

••TO 

NTH 

•OTT 

•  !••• 
•INI 
•INI 


SO. 

SO. 

SN. 
Ml. 
Mi. 
Ml. 

SO. 
SN. 

SN. 

SO, 
SN. 
SN. 
••0. 
Ml. 
M2. 
MS. 
••*. 
MS. 
M*. 
•OT. 
MS. 
M«. 
*10. 
•II. 
•IS. 

•  IS. 
•I*. 
•IS. 

•  IS. 

•  IT. 
•ia. 
•i*. 
•20. 
•SI. 
M2. 
MS. 
•2*. 
MS. 
•2*. 
•IT. 
MB. 
•2*. 
•SO. 
•SI. 

•o. 

•ss. 

•s*. 

*s*. 

•St, 

•ST. 

•M. 

•S«. 

*M. 

Ml. 


Mjlx 
ANJ2X 
*10  Tl|*l 


C  STMT  ALOTTINi  SCC0N0  IMtC 
1M  CALL  AXAI*.  0,T.  1.0,  A.*S> 

CALL  OAIS.  1.0,  0.0.  S.SS) 

CALL  TSAI1.S.  O.O.  10,  T2I 

call  tsnii.s.  a.*>  chaao.  10 
call  TSTIi.Ji  a.S,  CHAAC.  IO 
00  OO  1  *  I,  • 

ITT*  x  0.2S  •  fLOATltl  -  S.TS 
TTM  x  O.T 

l TO  CALL  TMIXTM,  TTM.  CHAAOI 11 ,  *1 
STM  x  0.1 

TIM  x  A. 29  •  fLOATID  -  1.29 

io  call  tmixtm.  ttm.  cmaaciii.  a) 
call  tmii.s,  a.o.  chaam.  oi 
c  plot  mu  vcAtut  g 

00  2*0  J  x  1#  UMAX 

AU  X  2. TIM  •  AL0AI02IJI  /  10.0)  ♦  1.0 
It  (AU  ,»T.  20.1  O  TO  NN 

1.0*  2. TIM  •  AlOA(TMUIJ)  /  MINI 
1.0*  2. TIM  •  AlOA'MU(J)  /  MINI 
x  Ag 

If  IJ  .CO.  II  SO  TO  290 
Trill  x  T* (21 
TT (21  x  ANU2 

If  |  ANg*  .»T.  -I.t-JTl  00  TO  NANUl.  (21*.  *S0> 

If  1 1 U2  ( J I -1 90  •  I  .LT.  l.C«ST>  00  TO  N* 

•0  TO  230 
NN  COnTInuC 

•AITC  IA.O00AI  TK.  0AHNA.  (U*(  JJ>  .ANUIJJI  ,TNUI  JJt  , JUAU. JNAXI 
Not  AOANAT  (UHOUxAg.OT.SO.SX.OH  AT  TX  X  .0AfO.*,13H  A  NO  A  ANNA  •  , 

1  1AC12.S  /  (lSX.AHg  x  ,  1AC12.(, Al.M  MNU  A  .lAClt.*,AX, 

2  Tm  TNg  x  .1AC12.SI  I 
•0  TO  NOT 

to  CALL  0VAI1.0.TX,  TT.  II 

as*  TXUI  X  AU 

TMI1  x  ANg* 

Trial  X  ANgi 
ASilAN  20  TO  NAMU1 

IA  IANU2  .AT.  -1.C-3T1  A0  TO  29S 
Trill  s  1. 

lAiiAMUIM.I  .AT.  -l.C-STI  AO  TO  2SS 
Trial  X  I. 

AJ  TO  2*0 

233  IA  IIANui-ao.l  .LT.  I.t-STI  N  TO  2ST 
Tri*l  x  20. 

AtllAN  230  TO  NANUI 
IA  IANU2  ,0T.  *0.)  AO  TO  **• 
axT  CALL  OVA II.  a.  TX.  TT.  II 
a«0  CONTINUC 
NOT  CONTINUE 
CAwL  AOA 
NAAANCxNAAAnC»1 
••a  CONTINUC 

I A  IIAL0T1  .IA.  II  N  TO  •!• 


9NAN12A0 
SNAN12T0 
SNAN12A0 
9NAN1200 
9NAN1S00 
9NANI3I0 
9NAN1320 
9NAN1330 
SNAN13M 
SNAN1S9* 
SN AN | 3 AO 
9NANI3H 
9NAN1M0 

snanisn 

SNANOOa 

9NANOIO 

SNANIMt 

snanosa 

snanom 

SNANON 

9NAN1M0 

snanota 

SNANl«ae 


9NAN1SO 


SNANlSaa 
3NAN1S30 
3 NANI  9*0 
3NANISS0 
3NANI9A0 

3NAN1S*0 

SNANOaO 

SNANIAIO 

SNANOSt 

snanom 

SNANOM 

3NANIAM 

snanota 


SNANIaM 

snanom 
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0108* 

**2. 

19  (*6S< (TK-SAVETI/Tk)  ,LT.  EaSILNI  60  TO  250 

0100* 

•*). 

2*5 

CO  (TInuE 

01U07 

«*«, 

■  *ITC  ( 6 . e I  « to ( 1 > •  1  =  1. 12) .  TK 

0101 A 

**). 

PUNCH  19.  T* 

010*1 

**6. 

S*XET=  TK 

01022 

**7. 

■KITE  (6.2)  (mIn 

0l«25 

*•6. 

2 

904*AT(6M  Am  I  n  :  •  IRElS.S) 

01026 

**9, 

2)0  Continue 

01027 

*)0. 

•  MITE  (6.15)  6AMMA . AMO , B I  OP • EPSMAUi E IRART • AKAPPA • AAN60A , 26AR. 

01027 

*61. 

1  »AMN  Lit 

010*2 

*62. 

RunCm  IB.  AMO.  B26A.  CPS-AL.  E I RAPT.  AKARPA,  MANNA .  26AA.  (ANNE* 

OluS* 

*6), 

2)1 

Continue 

010}b 

*6*. 

NLnDs  1 

010)6 

*6). 

19  (laCOO  .E0.  0)  80  TO  9*0* 

01060 

*66. 

REAO  (15)  UK 

0106) 

*57. 

19  (AOSIUX*).)  .LT.  EASILN)  NENO  *  2 

0106) 

*56. 

19  (ABS(UX*7. )  .LT,  EASILN)  NENO  t  ) 

0106) 

*59. 

C 

01067 

*60. 

00  TO  (  )2 , 260 .  720  )•  NENO 

01070 

*61. 

2*0 

Continue 

01071 

*62. 

19  ( I  PLOT  2  .SO,  1)  60  TO  *20 

0107) 

*6). 

C*uL  9  A  A  ME ( 0 . 0 »  1.0.  1,0*  0.0) 

0107* 

*6*. 

CA„l  TSA ( . 2.  ,).  10.  721 

0107) 

«•). 

CAUL  *09 

01076 

*66. 

270 

CAUL  9 INI SM 

01077 

*67. 

N9RAME:N9aAmE»1 

01100 

*66. 

PRINT  1«.N9aAmE 

0110) 

*69. 

■KITE  (6.  2«)  N9AAME 

01106 

*70. 

•0  TO  «20 

01107 

*71. 

760 

CONTINUE 

01107 

*72. 

C 

01107 

*7). 

C 

RiAD  START  09  ANOI»X  TAPE 

01107 

*7*. 

c 

OHIO 

*7). 

READ  (15»((  ID*ND I ( I • J) .  1=1.12).  J*l.S> 

01121 

*76. 

19  (IPLOTI  ,E0.  1)  60  TO  *05 

0112) 

*77. 

PUNCH  26.  ((  1QANDI ( I . J) •  1=1.12) .  U<1.5) 

Oil)* 

*76. 

*6  PURMAT  (12*6) 

Oil)) 

*79. 

CAUL  PRAM£ (  0.0. 1.0. 1.0. 0.0  I 

011)6 

*•0. 

Du  710  J  :  I.) 

011*1 

••1. 

TITP  =  0.56  -  PLOAT(J)  •  0.0* 

011*2 

*•2. 

710 

CAUL  TSP(  0.2.  TTTP.  lOANOKl.J),  72  ) 

Oil** 

«•). 

CAUL  TSP(  0.«2>  O.R.  SECRET,  20  > 

Oil*) 

«•*. 

CAtL  *09 

011*6 

«•». 

NPRAME  =  NFAAME  *  1 

011*7 

*•6. 

*65 

CONTINUE 

011)0 

*•7. 

RLAD  (151  UK 

Oil)) 

*•«. 

790 

CONTINUE 

0116* 

*69. 

NfcNOx  1 

•  116) 

*90. 

IP  (ASS (UK  *  ).)  .LT,  EASILN)  NCN0>2 

011)7 

*91. 

19  I  ASS (UK  »  7.1  .LT,  EASILN)  NENOt) 

•1161 

*92. 

60  TO  1)2.999  ,720),  NENO 

•  1161 

*9). 

C 

•1161 

*9*. 

C 

PROCESS  HuEBNER  DATA  POR  •IVtN  THETA.  RHO 

•1161 

*95. 

c 

5RAN1790 

JHAN1900 

SMANIMO 

JAtNIIU 

9MN1MS 
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•11*0 

3**. 

700  RlAO  119* 

HU*.  IHL-3,  Hu*a 

01000 

307. 

•AHMAx 

0. 

•  1001 

*•*. 

•  it*  I 

0. 

•1000 

*M. 

Ep*m*l: 

0. 

•  1003 

900. 

E1PARTX 

0. 

•  1003 

901. 

t*3NE(Z 

0. 

•  1009 

900. 

TAX 

HU* 111 

•1009 

903. 

RhOx 

HU*(3) 

•  1207 

903. 

ZuARx 

HU*«*I 

•1010 

909. 

■AH90AX 

HUBS ( 9 1 

01211 

90*. 

AXAPPAX 

HU0BI *1 

31210 

907. 

•LA0I19I 

MAXU,  (  33UII).  HI,  3  A  XU  > 

01201 

90*. 

if  iitkaE3Silni.lt. tain  .or.  t*.*t, 

01*03 

90«. 

IF  I13L0T1 

,Ea.  |)  60  TO  310 

01*09 

910. 

IF  (AtSl 1 TK-SAVETI/Tk) .LT.  E*SlLNl 

•  1*07 

911. 

■RITE  l«,01) 

1 ( 1DAN01 1 1 , J) ,  1X1,101, 

01*31 

91*. 

*1  FORMAT  (1H1. 

9(1X,10**/1 ,///19H0TEM3Cl 

010*1 

913. 

1  VOLTS  //1*X 

,  3HRH0 , 1 0  X  ,  3HZ«  A3 ,  *X ,  9HTI 

•1030 

913. 

PUNCH  1*. 

TK 

01*39 

919. 

9*VETx 

T« 

010** 

91*. 

3*3  Continue 

*  ,03fl2.»«l»H  ELECTRON 


0U*T 

oum 

•  129* 

oust 

01<U 

oust 

out* 

cuts 

out* 

•1**7 

01270 

01273 

01079 

01*7* 

0127T 

01301 

01301 

•uoo 

01309 

0130* 

01307 

•  1311 
0131* 
01319 
0131* 
•1300 

•  1301 
•132* 

•  130* 

•  1330 
•1331 
•1333 

•  133* 


317. 

91*. 

91*. 

900. 

901. 

902. 

903. 
90*. 
909. 
90*. 
907. 
90*. 
90f. 

930. 

931. 
•32. 
933. 
93*. 
939. 
93*. 
937. 
•3*. 
930. 
MO. 
Ml. 
9*0. 
M3. 
M*. 
M9. 
M*. 
M7. 
Ml. 
M*. 


■RITE  (*,00>  OHO.  Zltfti  AKA33A,  *3*303 
*0  FORMAT  (3X,l3*E13,9l 

PUNCH  1*.  3 HO,  0(33,  33*3*3,  ***N* 

SURT  PL0TT1N*  FIRST  FRAME  03  HUCMI  0*T» 

CALL  FRAMEi  0.0,30.0, *0.0, 0.0  > 

Call  tx*<  *,  1.3,  o.O,  10.90  ) 

Call  S7A<  7,  2.0,  l.«,  9.0  ) 

00  7*0  J  x  1,9 

m*  z  St.o  -  FlOAT(J)  •  o.» 

730  CAwL  TS*<  3.0,  YTT3,  10*301 ( 1 , J) ,  70  1 
CALL  79*1  3.0.  33.0,  SECRET •  00  I 
C3wL  iCDCONl  •C0IL3I01)  1 
■RITE  I  0.  790  ) 

790  F02MAT I **H  0  9  It  19  00 

1  1U0  1*001 

00  799  I  *  1,7 

XTT3  s  9.0*  FlOATCH  -  3.7 

J  :  Oil  «  I 

7*9  CALL  TS*(  XTTP,1.9.aCD*L*IJ>,*  1 
00  79*  1  *  1.3 
J  *  07  ♦  1 

TIT*  x  10.9  •  FLOATIII  -  10.9 
7**  CALL  TS*I  0.0.  TTT*,  BCOSLAIJ),  •  1 
•■IN  x  l.Ef 
00  7*0  1  X  ],m3XU,  9 
7*0  AMIN  X  AM1N1I  AMIN,  AMuiI)  1 
IF  (M  ,t*.  0)  *0  TO  797 
10  >  1F1X|3LO*10I3M1NM 
IF  110  .LC.  01  10  ■  10  -  1 

AMIN  «  1«.**I0 
797  CONTINUE 


09 


3( 


!• 
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01335 

550. 

01336 

551. 

01.»3 

552. 

6*0 

01366 

553. 

01366 

55*. 

01366 

555. 

01367 

556. 

01362 

557. 

01333 

55b. 

01366 

554. 

01366 

560. 

01367 

561 . 

013*0 

562. 

01362 

563. 

01363 

56*. 

7po 

01366 

56s. 

01366 

566. 

01366 

367. 

01367 

566. 

01371 

569. 

770 

01373 

570. 

01376 

571. 

01376 

672. 

C 

01375 

573. 

Ool 

01376 

57*. 

01*01 

575. 

01402 

57o. 

0l*U6 

577. 

01406 

57b, 

014U6 

579. 

c 

01407 

500. 

600 

01*10 

501. 

01*12 

582. 

01*13 

503. 

01*16 

50*. 

01*17 

563. 

6*0 

01**1 

58o. 

01*22 

567. 

01*23 

586. 

01*2* 

564. 

01*27 

590. 

6*0 

01*30 

391. 

01*32 

*OlAiNOSTlC* 

01*32 

392. 

01*33 

59.1. 

999 

01*33 

59*. 

01*37 

595. 

01**0 

396. 

01*60 

397. 

c 

01*60 

596. 

c 

016*0 

399. 

c 

01*60 

600. 

c 

01*61 

SOI. 

*10 

016*1 

*02. 

c 

CalL  dC0C0S(  8CDBLy  ( 32)  I 
»*ITt(  0.  6*3  I  TK>  RrlO.  *«IN 

FORMAT  (  6hTmETAi.  F 12, J,  6MRM0  :  •  E12.5.  GMNUJAOx,  £12.3  I 

Call  TSP(  2.6.  6.2.  BCQBLM32).  IB  I 

CALL  TSP(  2.6.  6.6.  BCQBLKI 36) .  16  I 

CALL  TSP<  2.6.  6.0.  BCQBLA ( 31) >  16  I 

DJ  770  I  X  1,  MAX J.  5 

UHll  X  UlN  *  FLOAT!  I  -  l  I  *  OUl 

P*Jl  S  6. 6266  •  AL06!  AMUlll/AttIN  I  «  ». 0 

IF(  t  .'8.  1  )  GO  TO  760 

TaiII  X  TX (2) 

TT <21  x  AM1MK  PMU1.  36.6  I 

IP <  T»UI  .GT.  *0.0  I  60  TO  T70 

Call  OVR(  1,  0.  TX,  TT,  1  I 

Tx(ll  :  Ul<ll  ♦  1.666 

TT  <21  X  PMU1 

Ta(2)  x  01(11  ♦  2.016 

TT ( 1 1  x  AM1NK  PMU1.  36.6  I 

IF  KPMul-36.51  .LT.  l.E-37)  CALL  OVRIl.  0.  TI»  TT.  1) 

Continue 
call  ADF 

NT  name  X  NFRAmE  a  1 

Continue 
RtAO  (161  ux 
NtUO  X  1 

IF  («8S(UX  a  6.)  .LT.  EPSILNI  NCNO  <  2 
IF  (ASS(UX  A  7.1  ,LT,  EPSILNI  NCNO  I  3 
Gu  TO  (  32,  600.  7?0  I,  NENO 

continue 

IF  (IPLOTl  .E8.  II  60  TO  620 

call  frame  (0.0.  1.0,  l.o.  0.01 
00  610  I  x  1,3 

uip  :  o.66  -  float ( 1 1  #  o.or 

CALL  T jP (  0.2.  TTyP.  I0AN0K1.1I.  71  I 

call  aof 
call  finish 
NFhAmc  s  NFrAmE  a  1 
PAINT  16.  NFRAME 
CONTINUE 

IF  (IpCDO  .NE.  01  REMIND  IS 

T«t  RETURN  STATEMENT  Is  ILLEGAL  IN  A  MAIN  PR06RAN.  IT  NAS  ChANSCO 

Return 

PRINT  13 
M*ITE  (6.  131 
Call  OumP 
GO  TO  270 


section  for  filling  otpout  array,  iploti  .eg.  i 
continue 


.  . 


TP  STOP. 
3MAN1SS0 
3MAN16GI 
3NAN1676 

SHANlGfO 
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01**2 

604. 

61**2 

60*. 

01**2 

605. 

61*«* 

606. 

61*** 

607. 

61*** 

60*. 

61**6 

60  V. 

61*SS 

610. 

61*SS 

611. 

61*56 

612. 

01*56 

613. 

61*56 

61*. 

61*5? 

615. 

61*5? 

»Uo 

01*6? 

617. 

61*71 

61*. 

01*72 

616. 

61*7* 

620. 

61*75 

621. 

61*76 

622. 

61*7? 

623. 

61501 

62*. 

01562 

623. 

61563 

626. 

0150* 

627. 

01:05 

626. 

01567 

62V. 

0150? 

630. 

01522 

•31. 

01522 

632. 

01523 

633. 

0152* 

63*. 

01»2« 

633. 

01532 

636. 

01532 

637. 

01533 

636. 

0153* 

63V. 

01533 

6*0. 

01536 

6*1. 

01537 

6*2. 

015*0 

6*3. 

015*1 

6*». 

613*2 

6*5. 

615*3 

6*6. 

015** 

6*7. 

615*5 

6»6. 

615*5 

6*0. 

615*6 

690. 

615*6 

631. 

616*7 

662. 

61366 

653. 

01561 

66*. 

61662 

60S. 

•1662 

666. 

61562 

657. 

61563 

656. 

61571 

63  V. 

61572 

660. 

6167* 

661. 

61376 

662. 

61376 

663. 

•1577 

66*. 

IF  (AbSl (TK-SAVETI/TK)  ,kT.  EPSlLN)  *0  TO  *11 
IF  ASbVC  TRUE  THEN  PRESENT  TEMPERATURE  IS  SAME  AS  k*ST  PREVIOUS 
TtNPERATuRE 

IF  (NAME  ,Ee.  ANOlMXI  60  TO  *21 

Nt«  TEMPERATURE*  DIAPHANOUS  INPUT  TAPE 
■RITE  16*6)  (10(11*  1-1*12) •  T* 

60  T6  *20 

*»1  CONTINUE 

NE«  TEMPERATURE*  anoimm  input  tape 

■RITE  (6*21)  ( ( 10AN0I ( I  * J) •  1x1*12)*  Jxl.S).  TK 


c 


c 

c 


c 

c 


*«0  CONTINUE 

IF  (SAVET  .kT.  l.E-37  .AND.  NCNO.NE.t)  60  T6  612 
UNO(Jl):  MARKER  ♦  6 

NPTSlul):  (IEN0(Jl)»lEN0CD)/10 

IanOED:  lENO(Jl) 

IF  (NENO  (Er*  2)  60  TO  *S6 
Jls  U1  ♦  1 

■12  CwNTInuE 

SAvETs  TK 

■u  Continue 

IF  (NAME  ,E6.  ANOlMK)  66  T6  »22 

■RITE  I*. IS)  6AMMA,  RHO,  616P.  CPSMAL.  EIPART,  AKApPA*  VANROAt 
1  2BAR.  6AmNC« 

60  TO  *23 

■22  Continue 

■RITE  16*22)  RHO*  26AR,  AKAPPA*  RAMMA 


■22  CONTINUE 


MARKER:  MARKER  ♦  10 

DTPOuT(MAKkER)s  TK 
Ot*»Out(mArkER«I):  6AmmA 

DTP0UT(MARkER»2>:  RHO 

DTP0UT(MARkER«3)x  616P 
DTPOUT (MARKER**):  EPSMAk 

DfPOul (MARk£R»5I:  EIPART 

DT*>0UT(MARKER«6IX  AKAPPA 
DTPOUT (MARKER*?):  *Am60A 

OTPOUT (MAHKERaR):  Z6AR 

DTPOUT (MARKER *6):  6AMNC« 

60  TO  2S1 


■26  CONTINUE 


04:  ICNO(JU 

■KITE  (6*23)  Jl*  (k*  NPTS Ik) •  I£NO(k).  kxi.Jll 
«3  FORMAT  (IH1  *  ISftSTM  SCT(S)  OF  OUTPUT  PARAMETER!  NAVE  MEN  6T0RE0  *1 

1  FOkkO«S  //16K*lHI*l3K.?HNPTS(t )*13K*ThIEN0(I)/(6X* tl*lll*I>*lt|* 

2  IS)  I 


■HITE  (6*2«>  (DTPOUT (kk) •  kk:i*J3) 

<«  FORMAT  (16H1DTP0UT  ARRAY  IS  /( 1P16E12 *S) ) 

■RITE  (6*2S) 

<S  FORMAT  (3SHOOTPER*  RUN  COMPkETED  SUCCESSFULLY.  ) 
CALL  oaaph 
66  TO  626 
ENO 


ENO  OF  LIST1N6.  3  •DIAGNOSTIC*  NCSSA6C(S), 
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COLUMNS  FORMAT  INPUT  VARIABLE 
1-10  F10.4  TKIN 


11-20  FI  0.4  TKFND 


21-30 

F 1  0.  4 

SIZ 

36-40 

15 

M 

46-50 

15 

56-60  15  IP  LOTI 


66-70  15  IDCDO 


To  use  the  DYPER4  program, 
1.  One  input  data  tape 

a. 

b. 


MEANING 

Temperature  at  w  hich  plotting  of  opac¬ 
ity  data  and  punching  (of  thermodynamic- 
quantities)  begin,  or  temperature 
at  which  array  (of  thermodynamic 
quantities)  starts  to  be  filled 

Last  temperature  for  which  opacity 
data  are  plotted  and  thermodynan  ic 
quantities  arc  punched  on  cards, 
or  last  temperature  for  which  data 
are  stored  for  plots  of  thermo¬ 
dynamic  quantities 

Not  used 

If  (M.  GT.  0  ),  the  value  of  AMIN 
is  changed  to  the  highest  pow’er  of 
10  which  divides  AMIN 
If  (M.EQ.0),  AMIN  is  not  changed 

If(N.GT.O),  ANDIMX  (Huebner) 
opacity  data  are  plotced  only  for 
u  =  0.3  to  u  =  15.  If  (N.  EQ.O  ), 
all  ANDIMX  (Huebner)  opacity  data 
are  plotted 

If  (IPLOT1  .EQ.O),  DYPER4  does 
opacity  plots  and  punches  cards 
containing  thermodynamic  data 
If  (IPLOT1.EQ.  1),  DYPER4  fills 
an  array  of  thermodynamic  quan¬ 
tities  to  be  plotted  by  subroutine 
GRAPH 

If  (IBCD0  .  EQ.  0),  the  input  data 
tape  is  a  DENSFR  BCD  data  tape 
If  (IBCD0  .  NE.  0  ),  the  input  data 
tape  is  a  binary  DIAPHANOUS  or 
ANDIMX  data  tape 

the  following  tapes  must  be  mounted: 


DENSER  data  tape  -  mount  on  unit  10 
DIAPHANOUS  or  ANDIMX  data  tape  -  mount  on  unit  15 
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2.  The  output  (plot)  tape,  which  must  be  written  at  a  tape  density  of 
556  BPI  -  mount  on  unit  16. 

The  plots  in  this  volume  were  prepared  by  the  DYPER4  program. 

Plots  of  the  absorption  coefficients  as  a  function  of  frequency  (at  a  given 
temperature  -  density  point  for  these  materials)  are  being  prepared. 

GRAPH:  A  PLOTTING  PROGRAM 

The  GRAPH  subprogram  is  used  in  conjunction  with  either  the  DYPER4, 
TRANS,  or  GOLEM  programs.  Given  a  one-dimensional  array  of  variables 
set  up  in  regularly  spaced  repeating  groups,  GRAPH  produces  SC-4020  plot 
tapes  of  user-specified  quantities.  It  is  written  in  FORTRAN  IV  language. 

The  plots  produced  have,  on  each  curve,  the  dependent  variable  plotted 
versus  one  of  the  (assumed)  two  independent  variables,  while  one  independent 
variable  is  held  constant.  Five  cards  per  plot  are  required  as  GRAPH 
input.  They  are: 

1.  Two  cards  containing  the  following  information: 

a.  Card  1/2  in  format  (4(12,  IX),  6X,  15(12,  IX))  specifying  all 
data  necessary  to  plot  values.  (Values  are  read  into  (IN(J), 

J=l,  4)  and  (OPN(JJ),  JJ=1,  15)) 

1.  If  (IN(i).  EQ.  O)  all  plotting  is  done 

2.  If  (IN(1).  EQ.  -2)  code  returns  to  the  calling  program  to 
allow  a  new  VARB  array  to  be  set  up  so  that  more  frames 
may  be  added  to  same  plot  tape 

b.  Card  2/2  in  format  (7E10.4,  4X,  A6)  that  specifies  7  real 
constants  to  be  used  in  setting  up  the  x-  and  y-array  variables 
(read  into  the  XIN  array),  and  ICURVE;  ICURVE  is  a  six -letter 
word  specifying  the  independent  variable  held  constant  when 
the  curve(s)  are  being  plotted.  Normally  this  is  the 
temperature. 
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oolol 

1. 

Oolol 

2. 

C 

Oolol 

3. 

C 

Oolol 

*. 

c 

Oolol 

5. 

c 

oolol 

6. 

c 

Bill) 

7. 

0010* 

a. 

OoloS 

V. 

00105 

10. 

c 

Oolo* 

n. 

00107 

12. 

OonO 

13. 

OollO 

1*. 

oom 

15. 

00112 

16. 

00112 

17. 

c 

oom 

16. 

0011* 

1*. 

oons 

20. 

00116 

21. 

00117 

22. 

00120 

23. 

00121 

2*. 

00121 

25. 

c 

00121 

26. 

c 

00121 

27. 

c* 

00122 

26. 

0012* 

2V. 

0012T 

30. 

00133 

31. 

00135 

32. 

001*0 

S3. 

001b2 

3*. 

001*5 

36. 

001S1 

36. 

ooisi 

37. 

00153 

3a. 

001S» 

30, 

00155 

*0. 

00155 

*1. 

001ST 

*2. 

00157 

*3. 

c 

001*1 

**. 

00162 

*6. 

00163 

*6. 

0016* 

*7. 

0016* 

**. 

c 

0016* 

*0. 

C* 

0016* 

50. 

C* 

C016* 

51. 

c* 

0016* 

52. 

Cb 

0016* 

S3. 

Cb 

0016* 

5*. 

C* 

Oql** 

Ool*« 

I*5: 

C* 

Cb 

0016* 

57. 

C* 

•016* 

56. 

C» 

0016* 

50. 

Cb 

•Ol** 

60. 

Cb 

*016* 

61. 

Cb 

0016* 

52. 

Cb 

0016* 

53. 

Cb 

0016* 

5*. 

Cb 

0016* 

63. 

Cb 

0016* 

66. 

Cb 

0016* 

67. 

Cb 

0016* 

66. 

Cb 

0016* 

69. 

Cb 

0016* 

70. 

Cb 

0016* 

Tl. 

Cb 

0016* 

72. 

Cb 

0016* 

73. 

Cb 

0016* 

7*. 

Cb 

0016* 

76. 

Cb 

0016* 

7b. 

Cb 

0016* 

77. 

Cb 

0016* 

7b. 

C 

0016* 

79. 

Cb 

sue* Out  Inc  orapm 

SUBROUTINE  TO  PLOT  DIAPHANOUS, ANOImX. OENSER. OR  BOLEM-C ALCULATEO 

values 


intemp  opn.  tempi  char,  hchar 

1NTE6LR  UOlEMi  DtNSEAi  ANOIMX 
INTEOER  0LA6 

COMMON/C  I  A/VANOdl 

COMMON/OHl/ILNOIlOO).  NPTS(IOO).  J2.  NAMEi  6LAB(12>.  AA(1»*0) 
C0MM0N/0CI2/1NJ,  IN 2.  INJI  IN*.  Cl.  C2i  Cl.  C*.  C5.  Cb.  CT,  CB. 
1  IUUMMT,  JOuMMT,  N6R 1 0 i  NCMAR,  ICON.  NNTM 

COMMON/DC  1 3/Nf.GH  lO.KDUMM.  IP  LAS 

COMMOn/PHSA/NPRAME.  TESTT.  SECRET («) ,  ANOIMX, IoANCI (12.5) 

DIMENSION  ]N(41 t  0PNI15) 

DIMENSION  X (26. 100 ) •  7(26.100) 

DIMENSION  XX(IOOI)  TT(IOO),  NCHKIloO).  LABSAy (12) 

DIMENSION  XLABI12I,  TLAB ( 12 ) •  XIN(T> .  LABEL'S*! .  CCURVK26) 
DIMENSION  CHAN (261 ■  MCHAN'jfc),  LCHAN(t) 

DIMENSION  JCUNVE (2) .  JABEL(2k) 

DIMENSION  C(«l.  VALS(IOO).  ISCALC (2 1 


ITAPE  IS  The  PLOT  OUTPUT  T*P£,  NONmALLT  ON  UNIT  16 
OATA  lTAPt/lb/ 

DA  A  X0UH.NUUM/0..6 82/ 

OATA  jCUMV£/2*6M  /.  LIN/1HLIN/.  L06/3HL0B/ 

OATA  TT1/1. 0**1616122/ 

OATA  X 1/0,02676 77 IS/.  DElTt1/0.01S1«2BS7/ 

OATA  EPSlLN/l.E-5/ 

DATA  JBLANK/6H  /,  lyPLTD/»l/ 

DATA  DENSER  /  6H0EnSEN  /.  60LEM  /  »H  OOlEM  /,  ANOIMX  /  6HAN0IMX  / 
OATA  ITtMP/bH  TEMP  / 

OATA  CHAN/17. 16. 16, 20.21. 22> 21. 2«. 25.11.1*. IS. 16. 17. 16. 1«. 60. 6); 

1  SO. SI >S2. SI. S««SS> 56.57/ 

OATA  MCHAN/IHA,  1HB.  1HC ,  iHO.  1HE,  IMP .  1MB.  1MM.  1MI.  1MJ,  INK. 

1  1ML.  IMM.  1HN,  IHO.  IMP,  IMS.  1MM,  IMS.  1MT .  IMu.  1MV. 

2  1Mb.  1MX.  1MT,  1M 1/ 

OATA  LCMAN/  IH1 , 1h2. 1M1, 1H*. IMS. 1M6. 1H7, 1m6« 1M6/ 

eouIvalence  (slab ( i ) ,  Iou>) 

EQUIVALENCE  (lN(l).lNl).  lOPN'l I . 10UMMT) .  (C(l).Cl).  (NCUPvE.NNTM) 
EQUIVALENCE  (XIN'SI. const*).  (XlN(bl.CONSTT)  ,  (0PN(12).  IPLOTT) 
EOUIVALENCE  (XIN'7).  CONST) 


SUBROUTINE  ASSUMES  TmE  POLLObINO  (ALL  COMMENTS  CONCEPNINO  DIAPHA¬ 
NOUS  AME  APPLICABLE  TO  DENSER) 

I.  VALUES  ape  STONED  IN  ORDER  Of  OECREASlNB  OR  INCREASINO  VALUE 
(IE  POINTS  ARE  TO  bC  CONNECTED). 

a.  OIAPmANOuS  VALUES  are  stored  in  io-boro  oroups.  as  tempera- 
tune  VtCT0"S’  ,N  OHOt*  **  0CC"t*S,N<  DENSITIES  PER  TEMPERA- 

J,  ANOIMX  VALUtS  ARE  STORED  IN  10-bORO  OROUPS,  IN  THE  SAME 
manner  as  OIAPmANOuS 

«.  OOLEm  values  are  STORED  AS  12-BORD  OROUPS.  In  ant  manner 
THE  USER  DESIRES.  AS  L0N6  AS  ALL  VALUES  STORED  CAN  BE  PLOT¬ 
TED  IN  OROER  Of  INCREASINO  OR  OECREASlNB  I  OR  T  VALUE  (If 
POINTS  ARE  TO  M  CONNECTED) . 


THE  POLLObINO  QUANTITIES  ARE  KNObN 

A)  IEND  ARNAT,  AN  ArRAT  CONTAININO  TME  LOCATIONS  Of  THE 
LAST  CELL  USED  TO  STORE  VALUES  POP  A  OIVEN  CURVE 

#&nSJ.“#T  CtU  USl°  *T  *  C0N$UNT  THCT*' 

NPTS  AHRAt,  an  ARRAT  CONTAININO  TME  NUMBER  Of  X-V  POINTS 
W  *,VtN  '^STANT  (COMPUTEO  AS  NPTS(D« 
AN0  *N0,M  OUTPUT.  A  NO  NPTS(I) 
s  MPTS( 1 1/12  FOR  OOLEM  OuTPuT) 

J2.  the  number  OF  temperature  sets  stored  for  plottino 
*"  ,NTE6CH  iocntiftino  the  source  of  the 

OATA  TO  BE  PLOTTEO 
1 )  NAME  a  -1.  OIAPMANOUS  OUTPUT 
?!  S  OENSER.  CONOENSED  OIAPMANOUS  OUTPUT 

1)  name  s  ANOIMX.  ANOIMX  OUTPUT 
b>  NAME  s  OOLEM,  OOLEM  OUTPUT 

Trans  or  otper  runs  -  an  ioentiftino  title  to  be  printed 

AT  TMt  TOP  OF  EACH  ORAPM, 


B) 


El 


103 


AFWL-TR  -67  -1  31  .  Vol  IV 


•tit* 

•tit* 

••Ik* 

•OH* 

•oil* 

»0U* 

■ou* 

•ou* 

■oik* 

loll* 

•oik* 

•  oik* 
Oolk* 

•  oik* 
•oik* 

•  oik* 
•oik* 

•  oik* 
•oik* 
•oik* 
•oik* 
•oik* 
•oik* 
•oik* 

•  oik* 
•oik* 
•oik* 
•oik* 
•oik* 
••ik* 
•«ik* 
•oik* 
••ik* 
•oik* 

•ou* 

••it* 

•oik* 

•  oik* 

•  oik* 
•oik* 
•oik* 
•oik* 
•••k* 

•oik* 

•oik* 

•  oik* 
•oik* 

••Ik* 

•ilk* 

•ilk* 

•oik* 

•oik* 

•ou* 

•oik* 

•oik* 

•ou* 

•oik* 

•oik* 

••Ik* 

•oik* 

•oik* 

•oik* 

•oik* 

•oik* 

•oik* 

•oik* 

••Ik* 

•oik* 

•oik* 

•oik* 

•oik* 

•oik* 

•oik* 

•oik* 

•oik* 

••Ik* 

••Ik* 

•ou* 

•ou* 

•ou* 


Go. 
•1. 
•4. 
•j. 
k*. 
ki. 
II. 
■  7. 
•«. 
•«. 
*0. 
*1. 
*4. 
•1. 
G*. 
*i. 
Ok. 
07. 
Ok. 
Ok. 
100. 
101. 
100. 
101. 
10*. 
10k. 
104. 
107. 
10k. 
100. 
110. 
111. 
114. 
114. 
11*. 
HI. 

llk. 
117. 

lll. 

110. 

140. 

141. 
I4«. 
144. 
14*. 
lli. 
14k. 
147. 
14k. 
140. 
lie. 
191. 
194. 
194. 
19*. 
19i. 
19k. 
197. 
19k. 

190. 
1*0. 
1*1. 
1*4. 
1*9. 
1**. 
l*i. 
l«k. 
1*7. 
l*k. 
1*0. 
ISO. 

191. 
194. 
194. 
19*. 
194. 
19k. 
197. 
19k. 
190. 


C 

C* 

c* 
c* 
c* 
c* 
c* 
c* 
c* 
c# 
c* 

C» 

c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c 

C  *4444 

c* 
c* 
c* 
c* 
c* 
c* 
c 

c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
e* 
c* 
c* 
c 

e* 
e* 
c* 
c* 

(* 

c* 

C". 

c* 

e* 
e* 
e# 
c* 
e* 
c* 
c* 
e* 
e* 
e* 
c* 
e* 
c* 
e* 
c* 
c* 
c* 
c* 
c 

e* 
c* 
c* 
e* 
e* 
c* 
c* 
c» 


INPUT  IS  AS  FOLLOWS 

II  TWO  CAROS  CONTAINING  THE  FOLLOWING  INFORMATION 

Al  CARO  1/4  IN  FORMAT  (*(14.1*1.  it,  19(14.1X1)  SPECIFYING 
all  oata  NCCtSSART  TO  PLOT  OALUCS.  (VALUES  arc  rcao  into 

(1N(JI.  0*1.4)  ANO  (OPN(JJ).  JJS1.1S)) 

1)  IF  IIN(i).Ca.O)  ALL  PLOTTINk  IS  OjNi  . 

"En*NS  TO  THC  CALLINO  PROkRAM 
W*M  *""**  T0  *E  *CT  UP  SO  THAT  morc 
FRAMtS  MAT  BC  AoOtO  TO  THC  SAMC  PLOT  TApC, 

a/*  tN  F°"hAt  (7C10.*.*X.Akl  THAT  SPECIFICS  T  REAL 
USC2  IN  SETTING  UP  THC  X-  ANO  T-ARRAT 
VARIABLES  (Rt*0  INTO  THC  XIN  ARRAY).  ANO  ICURVC* 

ICyRoC  14  A  *-LCTT£R  WORD  SPCCIFTlNk  THC  InOCPCNOCNT 

ftlS  IS U^RAT^rVt,S'  ^°TTt0* 

A  CAr.fl  IN  FORMAT  (14Ak>.  CONTAINING  TITLE  INFORMATION  USC0 
AS  A  HEADING  FOR  CACh  FRAME.  (MAT  K  A  «LANR  CARO) 

iN  F0M*T  l***'  THAT  SPECIFY  THC  APPROPRIATE 
?*  *NO.T-AXCS.  RESPECTIVELY  (CITHER  ONE 
OR  »OTH  CAROS  MAY  |C  OLANRI 

Cl  SCRIPT  ION  OF  INPUT  ***** 

T^«lN«»n"*T  C0NT*°*-i  WHICH  VARIABLES  IN  THE  VAR*  ARRAY  ARC  TO 
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•  ) 


BE 

A) 

•  I 


INI  I) 

10 

11 

14 


USCO  FOR  PLOTTING 
IMl)  ANO  IN(1)  SPECIFY  VARIABLES  TO  M  USCO  IN  THE  X-ARRAY. 

C°NTA1NIN«  THE  ABSCISSAS  OF  POINTS  TO  K  PLOTTED. 
INI 9)  ANO  INI*)  SPECIFT  VARIABLES  TO  BC  uMO  IN  THE  Y-ARRAY. 
THC  ARRAY  CONTAINING  THE  OROI NOTES  OF  POINTS  TO  BE  PLOTTED. 

SAUT  VARIABLE  HUE****  variable  BOLEN  VARIABLE 

T«  TR  ThCTA(TR) 

A  NO 

RHO  Pi  (PRESSURE) 

C  (ENERGY) 

N«AR  OR  CAPAC 
CIONIt  OR  CAPAR 
TROPA  Cv 

CROPA  FEW  ( 2«AR ) 

capnf ijgaai  pbi 

AS«  (SOUND  SPCEO) 
CkAM 

CBAM4  OR  OAONA 


RHO 
PRCSMR 
ENERGY 

CION 

KROS 

RPLR 

2BAR 

CGAM 


THE  OPN  ARRAY  CONTROLS  VARIOUS  OPTIONS  USCO  IN  PLOTTING 
OPN(l)  0LTCRNINC9  HOw  TO  MANIPULATE  THE  VARIABLES  TO  K  SET  UP 
FOR  THC  X-ARRAT 

OPNIC)  DETERMINES  HO*  TO  MANIPULATE  THC  VARIABLES  TO  «C  SET  UP 
FOR  THE  T-ARRAT 


OPN(I).  1*1  OR  9 


10 


*  OR  Y  ARRAY.  J*l  OR  9  RESPECTIVELY 
(ANT  V*R6  ARRAY  VARIABLE  MAY  «C  CXPONCNTIATCO 
BEFORE  BEING  OPERATED  ON  IN  ONE  OF  THE  FOL¬ 
LOWING  WATS) 


VARB(In<UI> 
VARBIIn(J)) 
VARB(InIJ)) 
VARB(InIJ)) 
(VAR*( INI j) ) 
( VAR* ( IN( j) ) 


*  XIN(U) 

•  XIN(J) 

♦  V*RG( IN( j»i) ) 

*  VAPBI INI J*l) ) ) 

*  VARB( IN( j«i ) ) ) 


VARBIIN(U)  *  VARBI INI J»I ) ) 
(VARB(IN(J)I  -  VARBI IN( J*I ) ) ) 
(VAAk(IN(J)l  •  VARBIINIJ*!))) 
VARBUnUD  *  VARBI  INI  J»l) ) 
(VARBUNIul)  •  VARBI INI J*l)>> 
(VARkHN(Ul)  *  VARW(IN(U*I))) 
VARB(InUI)  /  VARB(IN(U«1)> 

I  VAR*  ( INI  J) )  /  VARBI INI J*l>>> 
I  VARBUNUD  /  VARBI  IN(  J*l) ) ) 


XINIJ) 

XINU) 

XINIJ) 

XINIJ) 

XINIJ) 

XINIJ) 

XINIJ) 

XINIJ) 


°*plottingEWUNCS  THt  V*LUC  N#*10’  THC  TTPt  **10  U*t®  ao" 

TO  GET  TIC-MARKS  ONLY  (NO  BRIO  LINES).  AOO  •  TO  THE  VALUC  OF  MBRID 
NECESSARY  TO  OBTAIN  the  TYPt  OF  GRID  WANTEo.  ANO  INPUT  THAT  SUN 
FOR  0PNI4).  ••EXCEPTION  -  IF  NGRIO.LC.O.  SUBTRACT  •  TO  BET  THE 
COOC  TO  SCALE  WITH  TIC-MARKS** 


0PNI9)  X-AXIS 


y-axis 
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OOU* 

1*0. 

C* 

00l*« 

1*1. 

C* 

OOU* 

1*2. 

C. 

•oU* 

1*3. 

r* 

Oils* 

1**. 

c* 

OOU* 

Us. 

c* 

0Ql6* 

1  A*. 

C* 

•OU* 

1*7. 

c* 

•flU* 

1**. 

C* 

•OU* 

1*9. 

c. 

OoI*« 

17(|. 

c* 

OolA* 

171, 

c* 

OoU* 

172. 

c. 

OOU* 

173. 

c. 

OolA* 

17*. 

c* 

OOU* 

17s. 

c« 

OoU* 

17*. 

c* 

OOU* 

177. 

c 

OolA* 

170. 

c* 

OoU* 

179. 

c« 

OoU* 

1*0. 

c* 

OOU* 

1*1. 

c* 

OoU* 

1*2. 

c 

OoU* 

1*4. 

c* 

OolA* 

1*«. 

c* 

OOlA* 

1*S. 

c 

OoU* 

1*9. 

c* 

OoU* 

1*7. 

c* 

OolA* 

1*«. 

c* 

OoU*) 

if*. 

c* 

00lA* 

1*0. 

c* 

OolA* 

1*1. 

c 

OOU* 

1*2. 

c* 

OolA* 

1*3. 

c* 

OolA* 

1**. 

c* 

OolA* 

1*S. 

c 

OOU* 

1*A. 

c* 

OOU* 

1*7. 

c* 

OoU* 

1«*. 

c* 

OOU* 

1**. 

c 

OOU* 

200. 

c* 

OOU* 

201. 

c* 

oou*» 

202. 

c* 

OoU* 

203. 

c 

OolA* 

20*. 

c* 

OoU* 

20S. 

c 

OolA** 

20*. 

c* 

001a* 

207. 

c* 

OoU** 

2oa. 

c* 

OolA* 

20V. 

c* 

OoU* 

210. 

c. 

OoU** 

211. 

c* 

OoU* 

212. 

c* 

OoU* 

213, 

c 

OplA* 

21**. 

c* 

OoU* 

21!., 

c* 

oou** 

21. . 

c* 

OolA** 

217, 

c 

001a* 

21*. 

c* 

00lA* 

21*. 

c* 

OOU* 

220. 

c* 

oou* 

221. 

c* 

oou* 

222. 

c 

•ou* 

223. 

c 

0 

COut  SCALES 

CODE  SCALES 

1 

LINEAR 

linear 

2 

LOOARlTHMlC 

LINEAR 

X 

LINEAR 

LO*AR!T)«!C 

* 

-l 

LOOARlTHMlC 

LIN 

LOOARlTHMlC 

COOC  WILL  SCALE 

-2 

LO* 

CODE  WILL  SCALE 

-3 

coot  SCALES 

LlN 

-A 

cooc  scales 

LO* 

0PN(*l 

DETERMINES  the 

VALUE  op  nchar.  the 

CHMJCTtR  TO  BE  PLOTTED.  NORMAL  VALUE  IS  *2.  *  PLOTTIN*  OOT. 
l>  '♦ORE  than  ONE  CURVE  PC"  FRA*. 

U  IF  <OPN<«) ,EO,0) •  «A»  POP  THE  FIRST  CuRyC,  I||  POP  THC  SECONO 
CUPTt,  fcTC.  (MAXIMUM  OP  20  CURVES  PER  FRAME) 

*  M,X"iK.,iwiijs,0?5  m  «  “«* 

ip  (icon  .ea.  ii  connect  points 

IP  (ICON  .Ett.  21  00  NOT  CONNECT  POINTS 

OPN(ft)  Controls  the  numocp  op  plots  PtP  PPAMC. 

NOTt  -  AANO  MOPE  THAN  16  CuPyES  PAT  K  PUT  ON  ANT  AlVEN  PPAMC** 

OPN(TI  DETERMINES  WHETHER  l*BELS  WILL  K  PRINTED  On  THE  PLOTS. 

ip  (opn(7i  ,ca.  o>  print  labels  alone  the  top  op  the  frame  ano 

l?.**  kU°  T’*«*  «T°  #f  *|4e  THE  TI#CE  INPUT  OATA 

CAROS  THAT  FOLLOW!  LACm  IN  POPNAT  12A6.AN0  USED  TO  LABEL  THE  TOP 
OF  THE  FRAME.  THE  X-AXIS,  ANO  THE  T-AXIS,  RESPECTIVELY 

IF  (OPN(T)  .LT.  0)  PRINT  A  SUNNART  Of  ALL  THE  CURVE  LABELS  ANO 

VALUES  In  A  box  In  one  CORNER  (-1  POP  UPPER  LEFT.  -2  FOB  UP¬ 
PER  RISHT.  -1  POP  LOWER  LEFT.  ■*  FOR  LOWER  RI*HT» 

AES;  "  US5  Th€  °l*FHANOUS.  DENSER.  OR  ANOIMX  ID  RCCONO 
(REAO  BT  OTPER  UR  TRANS)  TO  LAOEl  THE  TOP  OF  THE  ORAPHS.  US  I  MB 
THE  NORMAL  PRlNOuT  (NO  BoR> 

TOe.^.I?5  ?£h°*0  "£*S  BT  TRANS  OR  OTPER.  PLUS  A  OOX  PRINTOUT. 

!  M0"  TMC  V*tuc  •**  SPECIFIED  ABOVE)  NECESSART  TO 
IN01CATE  THE  CORNER  CHOSEN  FOR  PrINTINS  THE  #Ox. 

IF  (OPN( 7) aE0.2 >  00  NO  PRInTINO  ON  THE  PLOTS 

•  *N0  opnud  determine  whether  LOOARITHNS 

(COMMON  OR  NATURAL)  ARC  TO  BE  TA*EN  OF  VARB(IN(JI).  J*1  TO  6. 
RESPECTIVELY  BEFORE  THE  X-  ANO  T-ARRATS  ArC  SET  UP. 

Al  NE6ATIVL  0PN<1> .1:0,9. 10.0R  11.  MEANS  USE  NATURAL  LOB  OP 
<VAHB(JI*«X1N(U).  JXl,*),  RCSPCCTIVCLT. 

•  )  POSITIVE  OPN(l), 1(6,9,10, OR  11.  MEANS  USE  COMMON  LOB  OF 

(VAMB(J)**XIN(U).  UC1,*>,  RCSPCCTIVCLT. 

OPN(12Ic1PlOTT.  USED  IF  THETA  curves  arc  not  be In*  plotted,  spec- 
CCll  location  of  the  curve  variable  iex,. 

IPL0TTS2  IP  *AMMA  CURVES  ARE  BCIn*  PLOTTED  FOR  DIAPHANOUS! 

0PNI13)  IS  A  OUANTITT  INPUT  IFF  USER  WISHES  COOC  To  SCALE  CITHER 
OR  BOTH  BRIO  AXES.  USINO  A  LINlTIN*  VALUE  DIFFERENT  THAN  IBB 
*  Dt'JOIM*  VALUE  TO  PLOT  LO*ArITHMICALLT.  RATHER  THAN 
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•ou* 

OOU* 

•ou* 

•oU* 

OOU* 

•ou* 

•oU* 

OOU* 

OOU* 

0iu* 

•OU* 

•0U* 

OOU* 

Oou* 

oou* 

Oou* 

oou* 

oou* 

OoU* 

Oou* 

OoUS 

Oou* 

•out 

•om 

•Hit 

•o!73 

Ool7* 

#0177 

•0-77 

•otol 

•o*oi 

•otol 

•o*0* 

•oa«! 

•o*l* 

•oil* 

Oou* 

OoUS 

•oto 

OoUS 

OOUS 

•oUS 

OoUS 

•ou* 

•***• 

•oa** 

•ot«» 

•ot«* 

•ou* 

•*u» 

••UT 

0*U7 

••**7 

•***7 

•otsl 

•otol 

Ootst 

OoUS 

•*t»s 

Ootss 

•0tj7 

•ot*t 

OOUS 

•o**S 

OoUS 

OoUS 

°0U» 

OoUT 

Oot7l 

°0t77 

OoSoO 

OoSol 

Oo3o7  1 
OoSiO  j 
•oSU  < 
OoS*S  I 
OoSjS 
OoSj7  j 
Oou* 
•o3*3  j 
0q3*3  j 


*  1U. 

*  t*3. 

*  atb. 

*  117, 
t  lit. 

*  lit. 

*  *38, 

»  131. 

*  lit. 

>  *33. 

>  au, 

i  tsa. 

tu. 

as/. 

as*. 

as*. 

a*o. 

a*i. 

a*i, 

a*s. 

a**. 

**a. 

a**. 

a*7. 

au. 

a*v. 

*90. 

*91. 

*9i. 

*93. 

tu. 

19a. 

au. 

*97. 

19* 

aw. 

7*0, 

a*i. 
Mi, 
a*3. 
au. 
a*  a. 
au. 

*•7. 

au. 

*W. 

*70. 

*71. 

*7*. 

*73. 

*7*. 

*79. 

*7*. 

*77. 

*7*. 

*7*. 

aoo. 

*01. 

tu. 

III. 

at*. 

aoa. 

at*. 

*07. 

to*.  < 

aat.  < 
aoo. 

**i. 

an. 

*73. 

a**. 

*93. 

*•». 

a*7. 

*7*. 

*77. 

300. 

301. 

301. 

303. 

30*.  C 


10*N1 Jl .J=l«,19)  loCi  PANApCTLNS 

''BBzTsr, Sfsawsa  asw-fta, 

®tw  tpaxra  £irHi.v;s*s^r 


LASTls 

NC£U.S= 


ICNOIjl) 

10 


1*  «N»MC  .CO.  OOtUI  nccllwm 


NSCTSC  LASTl/NCEUS 

J1SAVC*  Jl 

oo  io  fwsi.ia 

LAOSAVlNNIt  OCAMInM) 

10  CONTINUE 

c 

901  CONTINUE 

C  ACAD  INPUT  CANOS  SPCCIFTINg  PLOT TIN*  OPTIONS 

^AEAO  <>*»»JIJMJWJ*1.*>.  (OPNIJJI.JJSI.IS).  UIN«JJJ»,JJJ«1,7> 

•*N0,  Uplto.*t.i-i))  oo  TO  seo 

1  ,TC  U.UI^INIJI.JS1,*|,  (OPNI Jj)  , JJ=1, IS) ,  IIINIJJJI ,  JJJ.1,7) 

14llsUMTnpi7?iiI!r'I«a  l%  7  i,M  ,N  *""»*  >9* *(t*. IN. lx),  u  / 

*lb*llPCll  STX  *  11  *  XIN  ANNAT  IS  . 

1  tllPEll.*,  1H.  IX) .  IPCll.k  /  11  HO  1  CUN VC  IS  t  Aft) 

SET  1 N ( 1  >  ,C*.0  TO  PINISM  PlOT  TAPE 
IS  IN(1)  .C*.  0/  -.US.N0'> 

l7UTUNU,,C?^N5*l,¥FLTO*M,Uin  *°  T°  3,7 

i  “JuSis’^'^uS^0 T* w,n 10 eow8 «■ 

HAS  OPN(l)  KIn  INPUT  INCO*NCCTLT?->YES,NO>- 

I tt.'9,.!?* ’  OW(H.W.U)  *0  TO  *77 
HAS  OPNU)  SEEN  INPUT  INC0*NCCTLT7>. VCS,NO.> 

IP  (OPNIl).LE.O  .ON.  OPN(I)  ,0C.1*>  to  TO  *«• 

J'*CWNCCTLT?  ->TCS,NO>- 
1P  I0PN|7|  ,07,  gi  (Q  M  |U 
00  11  K9SI.LAST1 
AA|NJ|s  VANblxS) 

**  CONTINUE 

•»*=  J1SAVC 

NEAO  TITLE  CANO 

LAOOLOS  0PNI7)  ♦  * 

•tT,  ,m*n  0PNl7)*LAiOLO 
NEAO  19.21  (ALAN  1 1 ) . Jsj, ij) 

1  FONHAT  U1AAI 

at  continue 

NAITL  I*. 9)  lOLAO(I).  1=1, ill 
S  PONMAT  I IX,  HA*) 

27  Conti Not 

U^*,',»*,*»*ia).  I TLA§ ( I )  , Itltll) 

,2t*?‘li^|sl,1a».  I tlaoui. 1=1,11) 

no,?_  «NE,l  .ANO.LAOOLO.AT.O)  *0  TO  17 

OLAil J9)=  LAOSAy  I J9) 

79  CONTINUE 
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00343 

305. 

29  CONTINUE 

00345 

304. 

C 

00345 

307. 

C 

SET  UR  RL0TT1N9  C 

Oo343 

304. 

c 

Oo34* 

309. 

17  (NtMlo  . 6T. 

00344 

31s. 

c 

003s0 

311. 

NNCRlO:  0 

OOSS! 

312. 

17  (NSNlo  . ST. 

OoSs3 

313. 

17  (NSNlo  .LT. 

00353 

314. 

c 

00)53 

315. 

17  (NNGR10.NC. 

Oo353 

314. 

c 

00)5* 

317. 

17  (NSNlo. 6T.  0 

003al 

9ia. 

17  (NSNlo  .EO. 

00)4) 

319. 

17  (N6R10  .EO. 

00)63 

92U. 

17  (NSNlo  .EO. 

OoSrT 

321. 

17  (N6NI0  .EO. 

00)71 

922. 

59  CONTINUE 

00)71 

923. 

c 

00)72 

924. 

17  (NCHAr.EO.O 

00)7* 

325. 

17  (ICON  ,EQ.  0 

00)7* 

926. 

17  ( 1C0N.LT.  1  .< 

Oq*oO 

927. 

17  (NNTM.6T.J2 

00*0* 

320. 

17  (NNTM  .EQ.  0 

Oo*o* 

329. 

17  (1RL0TT  .EO. 

•0*0* 

390. 

17  ( ICUNvE  .EO. 

0(410 

331. 

OSCALCt  100. 

Oo*ll 

332. 

17  (0RN(l3)  .NE 

00*1) 

393. 

JCURVt  ( 1  )=  1CUN 

00*1) 

394. 

c 

00*1) 

335. 

c 

CETERM1NC  VALUES  1 

00*1) 

936. 

c 

1  VARIABLES 

00«l3 

00*1* 

00<*iT 

00«20 

«0*jj 

00«23 

00*2* 

00*j0 

00*32 

00*S* 

0o*j* 

00*«0 

Oo**f 

00*43 

00*43 

®0*S) 

Oo<*5* 

Oo*5* 

°0*&* 

0o*S* 

Oo*sS 

0o*sT 

00*5t 

Oo*fcl 

0o*6l 

Oo-'oO 

Oo*l* 

0051* 

003l* 

00*lT 

00»2* 

Oo»2* 

#0*23 

00*2* 

O0S2T 

0q»2T 

0o»J0 

OOSJ» 

O0S4O 

O0S4I 

009«3 

Oo3*S 

0qS«7 

Oo»sl 

ssm 

»o*s« 

••••3 


•  OR.  N»RlD.LT.(-4>)  *0  TO  OS 
(-1))  liCALE(l)=LlN 
(-2))  ISCaLEII  (BIOS 
(•3))  ISCaLE(2>=L1N 


•  AND.  NMm.E8.1I  NCMARS42 
I  ICON  X  | 

OR.  1C0N.«T.2>  *0  TO  *0S 
.OR.  NNTM.0T.10>  00  TO  *«« 


•  0>  IRLOTT*! 


337. 

330. 

33V. 

340. 

341. 
3*2. 
3*3. 

3*4. 

3*9. 

3*4. 

3*7. 

3*4. 

3*9. 

330. 

331. 

334. 

333. 
354. 
33s. 

334. 

337. 

33a. 

359. 

3*0. 

361. 

3*2. 

3*3. 

3*4. 

365. 

366. 

367. 
36a. 
3*9. 

370. 

371. 

372. 
”3. 

374. 

375. 
374. 
377. 
37a. 
370. 
300. 

8i: 

303. 

304. 
90S, 


00  10  jK*=i.a 

C(JKK)=  1. 

10  CONTINUE 

KK:  1 

00  20  KS1.2 

17  (0RN(k).LE.3  .ON.  OPN(K).aC.lO)  C(KK>*0. 

17  ( ORN ( g ) . 6E • 7  .ANO.  0RMKl.LE.9l  C(KK>*-1, 

17  (ORN<K>  . L7. .  9>  C (KK«i )  =  0. 

17  (OPMk>  .6C.  13)  C(RK*l)*-l. 

17  (MOOIORMKI.3)  ,NC.  0)  C(KK*2)*0. 

17  !NOO(ORMKI«1.3).£0,0  .OR.  NOD(ORNIK)  .31  .CO.O)  C(RR«3»0. 

KKS  5 

20  continue 

4R1TL  (6.1S>  (C(l>,  1=1. |) 

IS  7 ON MAT  (12H0C  ARRAY  IS  .  7(74, 1.2M,  >,  74, 1> 

17  70NMAT  ( 1H1 > 


17  (AB5IC0NSTA )  ,LT.  l.E-37)  CONSTXrl. 
17  (AB31C0NSTT)  ,LT.  l.E-371  CONSTY*!. 


•RITE  (6.29)  (1N(J).J=1,4>,  ( ORN ( JJ) . JJ21 . JS) .  (XlN(  JJJ> .  JJJ*1 .0) . 
1  IC'JRVE 

•RITE  (6.3)  ( GLAU(l). 1:1. i2). (XL AO (1). 121.12).  ( TLAS ( 1 ) • 1*1 • 11) 

29  7 OR MAT  (17H01NRUT  AS  USEO  1$  /  14M  IN  ARRAT  IS. 3( 12. IN. lx) •  11/ 

115N  ORN  ARRAY  IS  •  14(12, 1H. IX) .  1 2  /  19H  XlN  ARRAY  IS  . 

*  ‘2’  »*{*  »^t»2.*  /  »»M  1CURVC  IS  *  A6> 

17  (1RL0TT  .EO.  l>  00  TO  790 
CALL  SC9(AA<  NSETS.  NCELLS,  1RL0TT ,  VACS.  NVALS> 

NHOHE=  0 

00  749  JLS1.NVAL3 
NRO«B=  NR OWE  ♦  1 

CALL  SEACM(VALSIJL) .  IRLOTy*  AA.  NSETS.  7XELLS.  NRTS(JL>. 

1  NROwE  > 

IENO(JL>=  NROWE  •  NCELLS 

•RITE  (6.1009)  JL,  VALS(JL).  NRTS(JL).  NR OHO.  NROVE 

1009  70RMAT  (1*.  E13.8.  16.  !••  16) 

749  CONTINUE 

17  (NNTM.EQ.J2  .ANO.  NyALS.NC.J2)  NNTMCNVALS 
17  (NVALS  .LT.  nntm)  nntmxnvals 
17  (NNTM  ,6T .  10)  NNTMala 
J2S  NVALS 

790  CONTINUE 

C*  USE  (XINUJ1.JJS1.4)  TO  EXPONENT  1 ATC  ( VAROI  1n(  JJ) ) .  JJH.4). 

C*  RESPECTIVELY. 

17  (AOS(XIN(D).LT. 1.1*37  .ANO.  AtSIXlNIO) )  .LT.  l.E-37  .ANO, 
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00Ss9 

«#»S» 

OQS5T 

00**l 

00*0* 

Oo**9 

00**7 

Oo»7l 

•OJTI 

00»7» 

#0*77 

00577 

Oo*0« 

Oo*o9 

Oo»oS 

00»l0 

«0*ll 

®0*1* 

Oo*l* 

Oo»lS 

Oo*l* 

0(»|7 

Oo»20 

Oo»2l 

00*29 

00*2* 

«0*l* 

«0*2* 

«0*2* 

00*2* 

®0*2* 

00*30 

«0*3l 

Oo*3l 

Oo*Jl 

00*39 

Oo*g2 

00*39 

«0*3» 

00*3» 

00**0 

00*0 

Oo*»l 

0f*«2 

Oo*** 

Oo*** 

00*7 

•0*91 

:r4i 

••*•* 

••**» 


39%. 

907. 

9*0. 
900  ■ 
9*0. 
3*1. 

9  n. 
9*3. 
9*. 

3*4. 

3**. 

9*7. 

3*4. 

3««. 

«0U. 

*01. 

*02. 

*03. 

*e*. 

*09. 
*0*. 
*07. 
*0*. 
*0*. 
*10. 
*11. 
*12. 
*13. 
*1*. 
*19. 
*1*. 
•  17. 
*1*. 
*1*. 
•20. 
•21. 
*22. 
•23. 
*2*. 
*24. 
*24. 
*27. 
•2*. 
•2  V. 
•9  V. 
•91. 
•*. 
*93. 
*9*. 
*9». 
•9*. 
•97. 
•9*. 
*9*. 


C 


C 

c 

c 

c 


c 

c 

c 


c 


c 

c 


1  aBS(xIN(3)>.lT. l.C-37  .ANO.  AtSUINt*)) ,LT. l.C-37)  *0  TO  72 

IF  (IN2  ,ca.  01  1N2<1 
if  UN*  .ee.  0)  in*=i 

00  71  229=1. NSCT4 

74:  (224*1)  •  NCCU.S 

If  (ABS(XlN(l>>  .07 .  l.C-37)  AA(kO*IN1>«AA|R0*INi>**X1N(1> 
if  («04(X1N(21I  .07.  1,C*37)  A*  (2*«1N2I *M(X4*1N2»  ••XlN(«) 

IF  (A09(XlN(3l 1  .07.  l.C-37)  AA(RO*1N3)*AA|RO«1N3)**XIN(9) 

IF  (A04(X1N(«)1  .07.  l.C-37)  AA (2*»I N* >  1AA(X4»IN* > ••XINU > 

71  CONTINUE 

72  CONTINUE 

00  *«  24=0.11 

IF  (0PNU4)  .CO.  0)  00  TO  09 
00  *•  224=1. NSCTS 
29=  (224-1)  *  NCCLLS 

Inn:  in (24-7 ) 

IF  (0PN(2«  )  .1.7.  0)  00  70  07 

AA(1Nn«29)s  AL0010I AA( lNN-23) I 

00  70  00 
47  CONTINUE 

AA(INN«29)=  AL00(AA(lNN-2j) ) 

40  CONTINUE 
4*  CONTINUE 
49  CONTINUE 
*«  CONTI NUC 


NA2C  INITIAL  CALL  70  SCTuP 
IF  (1VHLTO  .07.  0)  00  70  33 
NFRAMCz  3 

CALL  9CTUP(XDUM.  NOUN.  iTApCI 

FLO’  INITIAL  FRANC  CONTAIN*  TITLC  INFORMATION 
CALL  FRANC  (O.Ot  1.0*  1.0*  0.0) 

IS  PLOT  OATA  FROM  ANOlNX?  -'TCS.NO*- 
IF  (0FN(7)  .CO.  2)  00  TO  32 
IF  (NANC  .CO.  ANOlNX)  00  TO  90 
CALL  TSP(0,2*  0.9.  IS*  1»l 
00  TO  32 


30  CONTINUC 
DO  31  0*11,9 

T7TP*  0.9*  •  FLOAT (j* I  4  0.0« 

CALL  T9F(  0.2*  7TTP,  IDAnOI (1*0*) *  7*1 

91  CONTINUC 

CALL  TW(*.*2.  0.0*  SECRET*  20) 

92  CONTINUC 

call  adf 

NONANE*  NPRANC  *  1 

99  CONTINUC 


SCT  UP  AMATO  OP  POINT!*  PC*  CONSTANT*  TO  K  PLOTTED 
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006J6 

<>o*s7 
0q6a0 
Oofcfcl 
00**2 
00*6* 
006*5 
00*6* 
Oo*67 
Oo»72 
Oo*7l 
Oo*7* 
0067* 
Oo*7S 
00*76 
Oo*77 
00702 
Oo7o  J 
Oo^oJ 
Oo7o5 
OoTjO 
007il 
007J1 
007!2 
00?l2 

00TlS 

Oo*l» 

0071> 

007i7 

00717 

0072l 

007jJ 

OoTjS 

00*2* 

O0T3O 

Oo7JO 

00*31 

007j2 

00*32 

00*33 

00*3» 

007«0 

00**0 

o0**o 

00**0 

0#T*T 

00*30 

00*»1 

00*5* 

•l*l* 

Oo*»* 
•0  *s» 
00**0 

•i*6« 


**0 

6*1 

**2 

40  j 
*** 
**S 
««0 
**7 
•*• 
**9 

*5u 

*51 

*52 

*53 

*5* 

*35 

*5* 

*37 

*3* 

*sv 

*60 

*61 

*62 

*65 

*6* 

•63 

*60 

*67 

*6# 

*69 

*70 

*71 

*72 

**3 

*7* 

*7s 

*7* 

*77 

*7* 

*79 

*00 

*01 

*02 

*•5 

60* 

*05 

6*7 

Ml 

*09 

*90 

691 

692 

693 


ISTARTr  0 

NTNlr  1 

LCURVts  J2  *  NNTN  •  (J2/NNTH) 

NNFRAH3  (J2  ♦  NNTP  «  1>/NNTH 

00  60  J3=1.NNFRAM 

IF  (J3.C0.NNFRAN  .AND.  LCU6Vt.NC.OI  NCU6vC  3  LCU6VE 

C  SET  UP  X-  A NO  T-  ARRAYS  NECESSARY  FOR  PLOTTlNO  tACN  GRAPH 
DO  *1  KK231.NCU6VE 
NNPTS:  NPTSInTNII 

NTP13  NTN1  *  1 

CCU6Vt(KK2)3  AAdsTAOT  ♦  iPLOTTI 


NkOOOs  1 

NFGPs  0 

00  *2  KL*1. NNPTS 
NCMK(kL>=  0 

*2  CONTINUE 

00  *0  KKlsi.NNPTS 

Kls  ISTART  ♦  NCCLLS  •  l«6l  -  l> 

X(KK2.KKl)s  (  AA(KlAlNl)  «  C 1»AA (K !♦ 1N2 I >  •  I 
1  *  (C0NSTXOC3)  ♦  (C*  •  CONST* ) 

V(KK2.KK1)z  (A*(Kl»IN3>  ♦  CSpAA(K1*IN* 1 1  •  ( 

1  •  (COnSTYMCTI  ♦  ICO  •  C0NSTT1 

IF  IN6HI0  .EO.  II  60  TO  6* 

IF  (XIKK2.KK1 ) .LT.l.E-37  .ANO.  (NiRIO.EO.2  .06.  N96I0.t0.6  ,06. 
1  NOHIO.ta.l-2l  .06,  N06I0.C0.I-3III  NCMr(KK1)31 

IF  (V<KK2.KAl>.LT. I.E-iT  .ANO.  (NO6I0.E0.3  .06.  N96IO.EO.O  .06. 
i  NOKId.LQ.  .**1  .06.  N06I0.C0. 1-3IM  NCMkIKKIIcI 

(NCMK(KKl)  .E0>  1)  N0000=2 
(NF6P.EO.O  .AND.  NCHK(KK1I.C0,0)  NFOPsKkI 


AA(K1*IN2I»pC2I 

AA(K1*IN*I**C0I 


IF 

IF  ... 

60  CONTlNUt 
60  CONTlNUt 
13TA6TS 


ItNU (NTmI  -  1) 


00  TO  («5. ««l •  NOOOO 
66  CONTINUE 

IF  (NF6P  ,tO.  II  00  TO  6* 

00  *6  JH-NFOP .1.-1 

UHlTt  16.1000)  X(KK2.JmI|  T (KX2 » J6I  •  XIKK2.NF0P) »  T (KXl.NPOPI 
1000  F06MAT  (53mO*«*«A6nINO*6*  A  NEGATIVE  VALUE  MAS  3EEN  F0l*0.  I  6  » 

1  1PE16.0.  6N.  T  3  1  IPCI6.O1  /  19M  X  IS  KIN*  SIT  TO  . 

2  1PE16.0.  2 OH.  T  IS  ■£!!«  SCI  TO  .  1PC16.0  //) 

XIKK2.JMIX  XIKK2.NF0PI 

TIKK2.  JM)£  TUKiiNFOPI 
NCHXIJHl*  0 
60  CONTINUE 
63  CONTINUE 


00  67  KH3NF OP. NNPTS 

IP  INCM6IKNI  .NE.  H  00  TO  76? 

V6ITE  (0.1000)  XIKKt.KMli  TlXXI.XN)  .  X(KK2ikN-1>*  TI6XS.66-1) 
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e0T70 

00T71 

o«»t* 

Oo»TJ 

#0 »t> 
•«Ty* 

#*77* 

•0»7* 

•l«00 

•»00» 

•l«0« 

0|VoJ 

OlOoJ 

«i«oJ 

»l«0* 
0»00» 
OlOjO 
•lOll 
•jOi* 
«101» 
OlOi* 
®  1  ®  1 7 
OlOjO 
#10*1 
«1«*» 
•10** 
•l«2» 
OlQjk 
•|0*7 
»J0J0 
•lOjT 
0i0j7 
0|0j7 
#1#*0 
010*2 
0j0*2 
>10*2 
Ojo** 
#10*0 
0»0** 
0»0»0 
•l«S* 

WSJ 

iiSS 

•i-y 

•10*0 

iiM 

•l>o* 

•iM 


Mu, 
*9b. 
»**. 
*97. 
*9*. 
*9V. 
>0u. 
>01. 
so  b. 

SOj, 

>u*. 

bob. 

boo. 

>07. 

so*. 

oov. 

SlU. 

>11. 

>12. 

>12. 

>1*. 

Sib. 

Sll. 

>17. 

>1*. 

>1«. 

>20. 

>21. 

>2*. 

>22. 

>2*. 

S2b. 

>2*. 

M7. 

Mb. 

MV. 

>20. 

>21. 

02o. 

>22.* 

>2*. 

Mb. 

Mb. 

>27. 

>2*. 

>29. 

M0. 

Ml. 

Mb. 

M2. 

Mb. 

MS. 

Mb. 

M7. 


C 

c 


c 

c 


c 


c 


XUX2.AII* 

X(AK2.AH-1I 

TUX2.ANI* 

TIAA2.AH-1) 

7*7  CONTlNUt 
*7  CONTlNUt 
*2  Continue 
*1  CONTINUE 

SLT  UF  XNlf 

I.  XHAX.  THIN.  XnO  TMX 

XHIN* 

Xll.ll 

XHXX1 

Ml. 11 

THIN* 

Td.ll 

THAI* 

Td.ll 

FlNO  THE  H1N1HA  AND  mAxIhA  OF  THE 

NTMl* 

NTH1  -  NCI  H  YE 

00  00  K2*l, 

NCUNVfc 

NNPTS* 

NFTS(nTH2I 

NTHjs 

NTH2  ♦  1 

00  00  L2*l. 

NNFTS 

XHIN: 

AHlNMXHlN.  X  (K2.L2)  1 

XHAXS 

AHAX1 (XHAX.  X(K2.L2II 

Y.blNS 

AHlNMTHlN.  T|K2>L2ll 

TMX* 

AHAXMTHXXi  T  (K2.L2I  I 

00  CONTINUE 

XHIN: 

XHIN  •  ,99 

THINE 

THIN  •  ,99 

XHAX* 

XHXX  •  1.01 

THAI: 

THXX  •  1.01 

*MTC  (O.lbl  J2.  XhIN.  XhAx>  THIN.  TMX 
1*  FOXMT  I/////UM0F0N  FMAhE  d*.9H.  XMIN  ■  .lFtl«.0.9H. 
1  tl*.0<9H.  THIN  ■  .Elb.OfOM.  TMX  a  .tlO.il 


IF  (NON10  .OT.  01  00  TO  •> 

»F  INOH1D.LT.O  .«N0.  Nf>lO.*T.I-jll  00  TO  02 

C  SCALE  X 

XSCALC*  AOS<XMX/XN|N) 

ISCALEdl*  LIN 

IF  (XSCXLt  .OT.  0  SCXLt  I  iSCXLtdla  LOO 
IF  (NMlO  .NC.  0)  00  TO  02 
M  CONTINUE 

c 

C  SCXLt  T 

T SCXLt*  XOSIThXX/THINI 

ISCXLtdla  LIN 

IF  | T SCXLt  .OT.  oSCXUl  ISCXLtdla  LOO 
|1  CONTINUE 

IF  (1SCXUUI  .to.  COO)  00  TO  M 
NOMO*  1 

IF  (ISCXLfdl  .to.  LOOI  NOOIOa  1 
00  TO  01 
M  CONTINUE 

NOOIOa  « 


:mi  a  • 
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OjOtO 

OjOt* 

OjOts 

0il02 

#Uo2 

Olios 

OUo* 

ouoS 

Olio* 

Olio* 

Ollil 

•UU 

OlU* 

OUi* 

Oiiai 

01123 

Ona* 

«U2* 

oust 

Oils* 

OllJ* 

Oils? 

0(1*0 

Ousu 

OllsO 

01150 

Oijso 

Ollsl 

Oils* 

OHS* 

OUi* 

;us* 

OUST 

011*1 

ou** 

«u*» 

OU*T 

0U70 

Out* 

OUT* 

Oil?* 

OUTT 

ouoo 

ouol 

01202 

®l2o* 

01205 

0120T 

OUU 

OUlS 

OUi* 

•l«U 

ouao 

0l22l 

01222 

01223 

0U2* 

0U2S 

0U2* 

OUsO 

01231 

OUU 

0U3* 

0U3* 

OU3* 

0U3T 

0U3T 

0(i*« 

Ol2*l 

0U«2 

0U«3 

0U«3 

0U*» 

OU*T 

Ol2sO 

OUU 

0US2 


s**« 

3*9. 

55u. 

551. 

552. 

553. 
55*. 
555. 
55*. 
357. 
55*. 
559. 
5*U. 
3*1. 
3*2. 
5*j. 
36*. 
3*9. 
56*. 
5*7. 
3*«. 
569. 
5T0. 
STi. 
372. 
37j. 
57*. 
575. 
37*. 
377. 
37.. 
37*. 
SOU. 
3*1. 

3*2. 

5*3. 

5*«. 

533. 

5*6. 

3*7. 

3*.. 

5*9. 

5*g. 

8*1. 

3*2. 

8*3. 

5«*. 

3*3. 

S«*. 

3*7. 

8*6. 

3«*. 

*00. 

*01. 

*0<. 

*03. 

*0*. 

*03. 

*0*. 

*07. 

*0*. 

*09. 

*10. 

*ll. 

*1*. 

*13. 

*1*. 

*19. 

*lo. 

*17. 

*1*. 

*19. 

*2u. 

*21. 

*22. 

*23. 

62*. 

623. 

62*. 


IF  <1SCALC(2>  .Co,  Lost  *#.10** 

•1  CONTINUE 

HAITI.  (6.10101  N6RID.  ( ISCALE1  1 ) .  111. 2) 

1010  FORMAT  ( 33m  COOL  HAS  SCALED  ORIO.  N3R|0  IS  .13>  12H>  SCALE  .AS  * 
1  A3.1H-.A3) 

S3  CONTINUE 

ntm:  1 

NTM2*  NTMl  •  NCuRyE 

00  32  JJ*:i.NCURVE 

IF  (OPN(«)  ,LT.  1)  JCHAAjLCMAA ( Jj* ) 

IF  (NCUAyE.bT.l  .AnU,  OPn(*).E#.0»  JCMAR»MCMAR ( JJ6) 

NNPTS:  NPT3(nTm2) 

00  S3  Jj:i. NNPTS 
XX(JJ)S  X(JJ*.JJ> 

TT(JJ):  T(JJ*.JJ) 

33  CONTINUE 


C 


CALL  SORT (IX. TT> NNPTS) 

IF  (NTM. £0. II  .HITE  (6,1007) 

■HITt  (6.19)  jChAR,  iCuRyE,  CCURVE(JJ*> 

i«  format  ith  curve  .ai.ish,  (Curve  is  »a*«  im:,ipeis.*,2im.  x  aho  t 

IAHRATS  ANt  I 

1007  FORMAT  (*«HOAHRATS  TO  BE  PLOTTED  HAVE  BEEN  SORTCO  AS  FOLLOWS  /) 
.HITt  (*,1006)  (1,  XXII),  tT(1).  1*1. NNPTS) 

100*  FORMAT  (3(6X,1S.1X,1P2E13.#)I 
C  PLOT  61VLN  SETS.  PER  CONSTANT. 

C  CAlL  PLOTV 

c 

NNCMAH*  NChAR 

IF  (NCLRyE.OT.l  .ANO.  NCuRVL.LT. 10  .ANO.  0PN(6)  .LT.0)NNCMAR»JJ6 
1F(NCUHVE.6T.I  .ANO,  OPN(*).EB.OI  NNCHARaCmAR! JJ*) 
call  PLOTVINTM,  NOR  1 U ,  NnChAR,  icon,  NPT3INTM2),  XX,  TT,  XMlN, 

1  XMAX,  TM1N.  TmAX,  XL*B,  TLA«,  0LA6) 

IF  (OPN(T)  .EU.  2)  00  TO  301 
00  300  L*1.3« 

LABEL ILi:  JBLANr 

300  CONTINUE 


MCHAMs  NNChA^ 

IF (NCUPVL . 6T . I • ANO.NCuRyE.LT . 10. ANO.OPNI *) ,LT, 0 )  MCMARRLCMAR  I JJ*> 
IF  (NCURvE.OT .  1  .ANO.  0Pn(*).E*.0>  MCMAR*HCNAR I JJ*) 

IF  (OPN(T).tO.O  .OH.  0pN(7>.E#.l)  *0  TO  *1 


JAOELIJJ*)*  mchar 
00  TU  301 
*1  CONTINUE 

label i jj*«  3*2 • *  i curve 

IF  (NCURyE  .LE.  3)  30  to  302 
CALL  PR1NT(MCHAR,  CCuRvE(Jj*),  LABEL!  JJ60-1) ) 

IF  (NTM  ,E8.  1)  Tl*  TT1 

IF  (UJ4.LC.*)  CALL  TSP(X1,T1 .LABEL, 1031 

IF  (JJ*.£O.T  .OR,  JJ6.L0.13)  Tl«  Tl  -  DCLTV1  _  ..  ... 

1F(JJ*.H.T.AN0.JJ*.LE,12>  CALL  TSP(X1,T1,LABEL(1*I»13B) 

1F(jJ*.«E.13)  call  TSPlXl.Yl .LABEL  137) ,103) 

30  TO  303 


302  CONTINUE 

call  RlUlo. 022323*3,  1.02*7*,  1.0.  *0.  72,  1,  LABEL) 

303  CONTINUE 
301  CONTINUE 

NTM*  2 

NTM2*  NT M2  *  1 

32  CONTINUE 

12:  0PN(7) 

IF  (OPNI7I.LT.0)  CALL  BOX (X2»0i»»NCURvC.CCuRvE.TT» JCuRVE, JABCL) 
NFRAMi:  NFRAME  ♦  1 

*0  CONTINUE 
00  TO  502 

c 

300  CONTINUE 

c  plot  final  frame  containing  title  information 
call  aof 

NFRAME*  NFRAME  ♦  1 

CALL  FRAME  (0.0,  1.0,  1.0>  0.0) 

IF  (0PNI7)  ,E0.  2)  80  TO  *3 
C  IS  PLOT  DATA  FROM  ANOIMXF  -»TES»NO»- 
1F  (NAME  .60,  ANOlMX)  *0  TO  31 
CALL  TSP(0.2>  0.3,  10.  7|) 

00  TO  63 
*1  CONTINUE 
00  *2  J*:i,S 
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8,J0» 

«ias* 

0H$T 

*ia*l 

0j2*2 

«la*J 
«ia** 
»ia** 
MU* 
«1**5 
#1*»* 
0i2t» 
0ii*7 
<>ia*7 
fliaro 
oiaT* 
«i  a?? 
0l»00 
«UoT 
*i3o* 
«Hio 
Oi»iO 

OiJia 

0Ul» 

•»»»• 

S|3|l 

l|l|l 

»lH* 

OUjT 

•iJaT 

0|J}0 

•  lijo 

•l»31 

*i»a* 

OlJjS 

•Ua? 

OlJ*0 

•ia*o 

•is*o 

OiinO 

•i3*i 

Oia*a 

0i3*s 

Oja** 

Oia.T 

*1**0 

•iJs» 

•i*s* 

0ia5s 

*i3s* 

0l3*l 

«x3*a 

•l3*3 

*i3** 

*13*7 

OxJTO 

«XJT» 

0137a 

01J7S 

«1»7* 

0xJ7» 

01*00 

*1*03 

*1*0* 

*l*0» 

*1*0* 

•x**7 


H?i 

ta«. 

MO. 

no. 

Oil. 

«a. 

*J». 

Mo. 

*3*. 

037. 

*3*. 

•30. 

MO. 

Ml. 

MO. 

Ml, 

••*. 

Mi, 


M7, 

MO. 

MO. 

•SO. 

•SI. 

•sa. 

•sa. 

•M. 

•ss. 


•So. 
*S7 . 
•SO. 
•3*. 
MO. 
Ml. 


MO. 

Ml. 

M<*. 

Mi. 


Mo. 


M7, 


MO. 

•70. 

*»1. 

•7a. 

•7a. 

•7«. 

•70. 

•7*. 

*77. 

•7«. 

•70. 

MO, 

Ml. 

M2. 

••a. 

•M. 

•OS. 

•M. 

M7. 


MO. 

MO. 

•00. 

•01. 

**a. 

•os. 

*00. 


TTYPs  0.3*  -  FLOAT! J*)  •  0.0* 

CALL  TSPI  0.2.  TITO,  10*N01 ( 1 .J* I »  721 
M  CONTINUE 

CALL  TVMO.M.  0.0.  OCCOCT,  201 
•3  CONTINUE 
CALL  A OF 

NFRAMCs  NFRAMC  *  1 

c 

C  MAKE  call  to  FINISH  TO  ENO  FlOTTIN* 

call  finish 

IFlA*s  2 

c 

SOS  CONTINUE 

C  WRITE  SUCCESSFUL  COMPLETION  STATEMENT 

IF  (NAME.E0.60LEMI  WRITE  (*.100*)  I  VARS  (UK )  .  JRH  .LAST1 ) 

100*  FORMAT  IW*m1SU*hOutINE  *HArH  HAS  EXECUTED  SUCCESSFULLY ,  /  1*H  VAMS 
1  ARRAY  mas  /  (1F12E10.3II 

IF  (NAMC.NC.tOLENl  WRITE  U.3>  ( OARS I JK ) • URll •  LAST  1 1 
3  FORMAT  (  MHlSUttMOuUNC  SRAFH  HAS  EXECUTED  SUCCESSFULLY .  /  1*H  VAR 
1U  ARRAY  *AS  //  (1F10C12,S)) 

IF  f  INCH  .CO.  -2)  SO  TO  SM 

SOI  CONTINUE 

•RITE  (*.171 

WRITE  (*.*)  IT ARC  1  NFRAMC 
MltlTL  (iill  ITAM.1 

•  FORMAT  I31H  RL07TIN*  IS  CONFUTED  ON  UNIT  .  ]«.  10H  THERE  ARC.  IS 
1  .SOM  FRAMES,  rleasc  NOTE  THIS  ON  FLOT  LASEL.  IF  THERE  IS  ONE. I 

SOS  CONTINUE 

RETURN 

C 

SO*  continue 

C  2ER0-0UT  VARS  ARRAY  BEFORE  RCTURNlNS  TO  MAIN  RROSRAM 
DO  SO*  JRtl.LASTl 
VAR0(JKIZ  0. 

50*  CONTINUE 

IFlAOs  1 

•U  TO  SO* 

c 

C  ERROR  EXITS 
C 

*0*  CONTINUE 

WRITE  (*.131  0RNI6) 

ia  format  i**miopni*>  has  *ecn  input  incorrectly,  opni*)  *  .i*> 

•0  TO  SOT 
«0S  CONTINUE 

WHITE  (6.12)  OPN(S) 

12  FORMAT  (*6h10PN(SI  HAS  hen  INPUT  INCORRECTLY.  OPNIS)  ■  •  !*> 

•0  TO  SOT 

**•  continue 

WHITE  (*.«)  OPNI J) 

•  FORMAT  («*H10PN(3I  MAS  MEN  INPUT  INCORRCCTLT.  OFNla>  «  *!•> 

60  TO  SOT 

*17  CONTINUE 

WHITE  <•,•)  OPNI 7) 

•  Format  («*H10PN<7I  HAS  SEEN  INPUT  INCORRECTLY,  opnit)  w  • 1*1 
•0  TO  SOT 

•••  CONTINUE 

WHITE  (••71  0PNI2) 

7  FORMAT  (HH10PNI2)  HAS  SEEN  INPUT  INCORRECTLY.  OPNIS)  •  •!*) 

•0  TO  SOT 
*11  CONTINUE 

WRITE  (•••)  OPNI l ) 

•  format  (MHlOPNIl)  HAS  SEEN  INPUT  INCORRCCTLT.  OPN(I)  ■  •!*) 

•0  TO  SO* 

SOT  CONTINUE 
CALL  HERR 
ENO 
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2.  A  card  in  format  (12A6),  containing  title  information  used  as  a 
heading  for  each  frame  (may  be  a  blank  card) 

3.  Two  cards,  each  in  format  12A6,  that  specify  the  appropriate 
labels  for  the  x-  and  y-axes,  respectively  (either  one  or  both 
cards  may  be  blank) 

DESCRIPTION  OF  INPUT 

The  IN  array  controls  which  variables  in  the  VARB  array  are  to  be 
used  for  plotting: 

1.  IN(1)  and  IN(2)  specify  variables  to  be  used  in  the  x-array,  the 
array  containing  abscissas  of  points  to  be  plotted 

2.  IN(3)  and  IN(4)  specify  variables  to  be  used  in  the  y-array,  the 
array  containing  the  ordinates  of  points  to  be  plotted 


IN(I) 

SADY  variable 

Huebner  variable 

GOLEM  variable 

1 

TK 

TK 

THETA  (TK) 

2 

GAMMA 

RHO 

3 

RHO 

RHO 

PI (pressure) 

4 

PRESHR 

E  (energy) 

5 

ENERGY 

NBAR  or  CAPAC 

6 

EION 

EIONIZ  or  CAPAR 

7 

KROS 

TROPA 

CV 

8 

KPLK 

CROPA 

FEW  (ZBAR) 

9 

ZBAR 

CAPNF(ZBAR) 

PB1 

10 

EGAM 

ASQ  (sound  speed) 

11 

EGAM 

12 

EGAM2  or  GAMMA 

The  OPN  array  controls  various  options  used  in  plotting.  OPN(l) 
determines  how  to  manipulate  variables  to  be  set  up  for  the  x-array. 

OPN(2)  determines  how  to  manipulate  variables  to  be  set  up  for  the  y-array. 
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OPN(I),  1  =  1  or  2  x-  or  y-array,  J  1  or  3  respectively.  (Any  VARB 

array  variable  may  be  exponentiated  or  be  replaced 
by  its  common  or  natural  logarithm  before  being 
operated  on  in  one  of  the  following  ways.)  XIN(L), 
(L=5,6),  is  discussed  below. 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


VARB(IN(  J)) 

VARB(IN(J))  +  XIN(L) 

VARB(IN( J))  *  XIN(L) 

VARB(IN( J))  +  VARB(IN(  J+l )) 

(VARB(IN{  J))  +  VARB(IN(  J+l )))  +  XIN(L) 
(VARB(IN( J))  +  VARB(IN(  J+l )))  *  XIN(L) 
VARB(IN(J))  -  VARB(IN(  J+l )) 

(VARB(IN( J))  -  VARB(IN( J+l )))  +  XIN(L) 
(VARB(IN(  J))  -  VARB(IN(  J+l )))  *  XIN(L) 
VARB(IN(  J))  *  VARB(IN(  J+l )) 

(VARB(IN(  J))  *  V ARB(IN(  J+l )))  +  XIN(L) 
( VARB(IN(  J))  *  VARB(IN(  J+l )))  1=  XIN(L) 
VARB(IN(  J))  /  VARB(IN(  J+l )) 

(VARB(IN( J))  /  VARB(IN(  J+l )))  +  XIN(L) 
(VARB(IN( J))  /  VARB(IN(J+1)))  *  XIN(L) 


OPN(3)  determines  value  of  NGRID,  the  type  of  grid  used  for  plotting. 
To  get  tick  marks  only  (no  grid  lines),  add  4  to  value  of  NGRID  necessary  to 
obtain  the  type  of  grid  wanted,  and  input  that  sum  for  OPN(3).  An  exception 
is  if  NGRID.  LE.  0;  then  subtract  5  to  get  the  code  to  scale  with  tick  marks. 


OPN(3) 

x-axis 

y-axis 

0 

Code  scales 

Code  scales 

1 

Linear 

Linear 

2 

Logarithmic 

Linear 

3 

Linear 

Logarithmic 

4 

Logarithmic 

Logarithmic 

-1 

Linear 

Code  will  scale 

-2 

Logarithmic 

Code  will  scale 

-3 

Code  scales 

Linear 

-4 

Code  scales 

Logarithmic 
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OPN(4)  determines  value  of  NCHAR,  the  decimal  code  of  the  character 
to  be  plotted.  Normal  value  is  42,  a  plotting  dot.  If  more  than  one  curve 
per  frame: 

1.  If  (OPN(4).  EQ.  0),  'A'  for  first  curve,  'B'  for  second  curve, 
etc.  (maximum  of  18  curves  per  frame) 

2.  If  (OPN(4).  LT.  0),  '1'  for  first  curve,  '2'  for  second  curve, 
etc.  (maximum  of  9  curves  per  frame) 

OPN(5)  determines  the  value  of  ICON,  the  option  for  connecting  points 
with  a  line  segment.  If  (ICON  .  EQ.  1),  connect  points.  If  (ICON  .  EQ.  2), 
do  not  connect  points. 

OPN(6)  controls  number  of  plots  per  frame.  Note  that  no  more  than 
18  curves  may  be  put  on  any  given  frame. 

OPN(7)  determines  whether  labels  will  be  printed  on  plots.  If  (OPN(7) 

.  EQ.  0),  print  labels  along  top  of  frame  and  along  x-  and  y-axes  (to  be 
read  from  three  input  data  cards  that  follow,  each  in  format  12A6,  and  used 
to  label  top  of  frame,  the  x-axis,  and  the  y-axis,  respectively). 

If  (OPN(7)  .  LT.  0),  print  a  summary  of  all  curve  labels  and  values 
in  a  box  in  one  corner  (-1  for  upper  left,  -2  for  upper  right,  -3  for  lower 
left,  -4  for  lower  right). 

If  (OPN(7)  .EQ.  t),  use  DIAPHANOUS,  DENSER,  GOLEM  or  ANDIMX 
ID  record  (read  by  PYPER4  or  TRANS)  to  label  top  of  the  graphs,  using 
normal  printout  (no  box,'. 

To  use  ID  record  read  by  TRANS  or  DYPER4  plus  a  box  printout, 
subtract  4  from  value  (as  specified  above)  necessary  to  indicate  corner 
chosen  for  printing  the  box. 

If  (OPN(7)  .  EQ.  2),  do  not  print  on  the  plots. 

OPN(8),  OPN(9).  OPN(IO),  and  OPN(ll)  determine  whether  logarithms 
(common  or  natural)  arc  to  be  taken  of  ( VARB(IN( J)),  J  =  1  to  4),  respectively, 
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before  the  x-  and  y-arrays  are  set  up. 

a.  Negative  OPN(I),  1=8,  9,  10,  or  11,  means  use  natural  log  of 
( VARB(J)  ■-  •  XIN(  J),  J=l,  4),  respectively. 

b.  Positive  OPN(I),  1=8,  9>  10,  or  11,  means  use  common  log  of 
(VARB(J)**XIN(J),  J  =  l,  4),  re  spectively. 

OPN(  1 2 )=IPLOTT,  used  if  THETA  curves  are  not  being  plotted. 
Specifies  the  general  cell  location  of  the  variable  being  held  constant  on  each 
curve  (e.  g.,  IPLOTT-2  if  gamma  curves  are  being  plotted  for  DIAPHANOUS) 

OPN(13)  is  an  input  quantity  if  user  wishes  code  to  scale  either  or  both 
grid  axes,  using  a  limiting  value  different  than  100  as  a  deciding  value  to 
plot  logarithmically,  rather  than  linearly. 

(OPN(J),  J  =  14,  15)  free  parameters 

(XIN(J),  J  =  l,  4)  may  be  used  to  exponentiate  (VARB(IN( J)),  J  =  l,  4), 
respectively,  before  the  x-  and  y-arrays  are  set  up.  If  input  as  zero,  code 
does  not  use  them. 

XIN(5)  and  XIN(6)  are  additive  or  multiplicative  constants  used  to 
modify  VARB  array  variables  chosen  for  the  x-  and  y-arrays,  respectively. 

XINt 7)  is  input  if  OPN(12),  I.E.,  IPLOTT,  is  used.  Allows  user  to 
input  a  constant  value  for  plotting  one  curve  (e.g.,  OPN(12)=2,  XIN(7)=100.  , 
to  plot  a  curve  for  gamma  =  100.  ,  in  DIAPHANOUS.  ) 

To  use  the  GRAPH  subprogram,  mount  one  output  (plot)  tape  on  logical 
unit  16  and  specify  that  it  be  written  with  a  tape -density  of  556  BPI. 

GRAPH  uses  the  General  Atomic  SC-4020  plotting  routines  discussed 
in  Ref.  12. 

TRANS:  A  PLOTTING  PROGRAM  ADJUNCT 

The  TRANS  program  and  its  associated  subroutines,  INPUT,  INPUTG, 
DAR,  and  ARGE,  were  coded  to  read  output  data  cards  punched  by  programs 
DYPER4  or  GOLEM  and  fill  a  one -dimens  ional  array  of  regularly  spaced 
quantities  for  subroutine  GRAPH. 
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*lt  ro**» 

60«»U*tlj:.  r  ... l.i:  1104  F04M**>lV  J»rtO  11  NO*  196*  F»008 
THU  C0«HJ.-T  I y.  »-i  i-.t  VJ  01  0C0  67  «T  U:S»:10 

ooivi  i.  Cj..vo\,/ciA/KA^'icsaooi 

OOIua  i-..vO  ./JC11/U\3(100).WPT»(100)  »Nf»rSllOO>  #Ji»N**»i.Gl.*0ll2> 

0Oio»  j.  *«.l  r»pjr  (St*3.w‘«9»Nao«.NCok.sPrs. j?i 

0010a  ».  .to^.snj. 

00lj«  a.  N«*Es-l 

00167  t>.  •Jj'i'j 

00110  7.  3.  10  1:1>J2 

00110  b.  •"ISCUrNCOtA'iPTSdl 

U011«  ‘i.  1.  .J(il:vPtS(l)»^iJ«* 

0011k  1  u .  it  Vi0'*ivPTS(l  l*\SU« 

00117  11.  t-.L  uAAP-i 

00100  i..  t«,C  t*lT 

00161  lJ. 


117 


AFWL-TR-67-131,  Vol  IV 


Input  for  TRANS 


CARD  VARIABLE 

NO.  COLUMNS  FORMAT  NAME  MEANING 


1 


1A 


1-6 

A6 

Name 

If  (NAME.  EQ.SADY),  DIA¬ 
PHANOUS  output  data  cards 
(punched  by  program  DYPER4) 
follow.  If  (NAME.  EQ.  GOLEM), 
GOLEM  output  data  cards  (punched 
by  program  GOLEM)  follow 

1-72 

12A6 

(FMT(I),  1= 
1,  12) 

If  (NAME.  EQ.  SADY),  this  card 
is  not  used.  If  (NAME.  EQ. 
GOLEM),  specifies  the  format 
with  which  the  GOLEM  output 
data  cards  are  to  be  read 

76 

11 

IWRIT1 

If  (IWRIT1.  EQ.  0),  no  printout 

If  (IWRIT1.  EQ.  1),  input  cards 
and  array  as  set  up  for  GRAPH 
will  be  printed 

79-80  12  ITEMS  Specifies  the  number  of  items 

to  be  read  from  each  GOLEM 
output  data  card 


2 


1-72  12A6 


(ID(I),  1=1, 

12) 


72  columns  of  identification 
information 


3 . N  Variable  Variable  Variable 

N+l  Variable  Variable  Variable 


Contain  the  data  that  are  used  to 
fill  the  array  for  use  by  GRAPH 

If  the  first  word  on  the  card  is 
<  0.  ,  it  signifies  end  of  DYPER4 
or  GOLEM  output  data  cards 


DENSER:  A  DIAPHANOUS  TAPE  COMPRESSOR  CODE 

The  DENSER  program  was  written  to  pack  the  data  on  DIAPHANOUS 
tapes  so  that  more  data  could  be  written  onto  one  tape.  It  is  in  FORTRAN  IV 
language. 

DENSER  can  read  a  number  of  DIAPHANOUS  binary  tapes  and  condense 
these  onto  one  card-image  tape  file  which  can  be  read  on  most  computers. 
The  card-image  tape  is  written  in  even  parity  at  556  BPI  in  IBM-compatible 
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PROGN AM  DENSER ( 1 NPU I * OUTPU T  *  TAPE 1 0  * T  APEO , TAPE S= 1 NPUT  * TAPE6=0U TPUT  ) 

C 

C  DIAPHANOUS  EDI I UK 

C*  ALL  DENSER  RUNS  MUSI  WRITE  UN  A  lAPt  IN  EVEN  PAN1TT  - 

C*  IHlb  lb  DONE  HT  SPECIFYING  I  HE  K  ANU  E  OP  1 1ONS  ON  IHE  TAPE  ASSIGN  CARO 

C  DAPHNE  WAS  ORIGINALLY  MODIFIED  BY  L.  R.  NUHKXb  TO  KEAO  A  DXAPHANOUb 

C  I  APE  ANU  MAKE  rHlb  1NTU  A  CONUENbEU  TAPE  IN  UHOEK  10  SAVE  SPACE 

C 

C  VARIABLE  NAME  MEANING 

C 

C  AUGEAS  ••• 

C  UELEPJ  (2000)  ENERGY  CHANGE  UUHINb  A  TRANSITION  (EV) 

C  UELEPb  (1J00)  1UN1SAI10N  PUIENI1AL  OF  A  STAIE  (EV) 

C  E1N  lib)  ENEKbY  UP  bKOUNU  STATE  UP  AN  10NXSA110N  LEVEL 

C  EPbU  (1J00)  SAME  Ab  EPS  IN  UXAPHANOUb 

C  PPL  [At  At  A)  PKACT 1UNAL  PERCENT Abt  CUEPP1CXENT  FUK  TRANSITION  BETWEEN 

C  bPLX )  CUNP IGUKAl IONS 

C  1JU  (2000)  1UEN I1P1CAT1UN  NUMBER  OP  1NXIXAL  STAIE  AbSOCXAIEU  II1H  A 

C  IKANbl I 1UN 

C  1SPL1I  (lb*  40) 1UEN I  IP XCA 1 1UN  UP  A  SPLIT  CONP ItiUKA I  ION 

C  MEKbEU  (lb*  40 ) I  RUE  IP  IHlb  CONP IbURATlON  lb  THE  AVEKAbE  OF  SUME  OTHER 

C  CONP IbURA I IONS  IN  IHE  TABLE 

C  MJU  12000)  NUMBER  UP  ELEC  I RUNS  IN  LEVEL  FROM  WHICH  UNE  IS  KEMUVEO  IN 

C  IHlb  IKANbl I  ION 

C  NPU  (1J00)  SAME  Ab  NP  IN  U1APHANOUS 

C  NJU  (2000)  PRINCIPAL  UUANTUM  NUMBER  (UK  KEUUCEU  QUANTUM  NUMBER)  OF 

C  ELEC  IRON  KEMUVEU  IN  IHlb  IKANSI110N. 

C  NU  lb *  lb'  40)  NUMBER  UP  ELEC  I  RUNS  IN  AN  ELECTRON  LEVEL  IN  A  CONH DURATION 

C  NKMAX  (lb)  NUMBER  UP  CONP 1GUR A  I  IONS  At  AN  IONISATION  LEVEL 

C  NKSAVE  (1400)  CUNP IbURA ) 1UN  IDENTIFICATION  OF  A  STATE 

C  WSAVE  (1JOO)  UUANTUM  NUMBER  UP  OUIEK  ELECTRON*  IF  BEYOND  TABLE*  UP  A 

C  bl ATE 

C  UU  (1JOO)  SAME  Ab  U  IN  UXAPHANOUb 

C  UNI  (lb*  40)  UEbENEKACT  UP  A  CONFIGURATION 

C  WU  (lb*  40 )  COEFFICIENTS  IN  UUAUKAT1C  FOR  DETERMINING  ENERGY  OP  THIS 

C  CUNP IbURA )1UN 

C  Nl  (lb*  40)  COEFFICIENTS  IN  UUAUMAT1C  PUR  DETERMINING  ENERGY  OF  THIS 

C  CUNF IbURA T1UN 

C  NS  (lb*  40)  CUEPF 1C1EN I b  IN  UUAUKAT1C  FOR  DETERMINING  ENERGY  OP  THIS 

C  CUNP IbURATlON 

C  •••  U1APH2  •  •• 

C  BE  (100)  SAME  Ab  BEJ*  INDEXED  BY  INF  ♦  1)  FOR  INITIAL  STAIE 

C  BEU  I lbOU )  PARAMETER  DETERMINING  LINE  WIDTH  FOR  A  TRANSITION 

C  C  (10)  CONCENTRATION  OP  AN  ELEMENT  I ATOMb/ATOM) 

C  CUM  (IS)  COMMENT  CARU  IN  FORMAT  12Ab 

C  DELP:  (100)  SUM  OP  UELl  AT  PREVIOUS  IONISATION  LEVELS  (EV) 

C  UELEPJ  (2200)  ENERGY  CHANGE  DURING  A  TRANSITION  (EV) 

C  UELEPb  (lbOU)  IONISATION  POTENTIAL  OF  A  STATE  (EV) 

C  DELI  (100)  PRESSURE  IONISATION  AT  AN  IONIZATION  LEVEL  (EV) 

C  EPS  (lbOU)  ENERGY  OP  A  STATE*  USUALLY  REFERRED  TO  THE  ENERGY  OF  THE 

C  GROUND  STATE  OF  THE  NEUTRAL  ATOM  (EV) 

C  EPSPKM  (lbOO)  ENERGY  OF  A  STATE  AFTER  REDUCTION  DUE  TO  PRESSURE  10NI2A- 
C  I  ION  (EV) 

C  EX  (100)  SAME  Ab  EXJ*  1NOEXEO  BY  INF  4  1)  FOR  INITIAL  SIAIE 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


EXJ  (1000) 
bAMBLK  (10) 

1J  (2200) 

MAKE2  (1SUQ) 

MJ  <2200) 

NEW  <2200) 

Nf  <15)00) 

NJ  (2200) 

NLAS1  <10) 

PHI  <2200) 

U  (1SUU) 

N  (1SUU) 

MS  <10) 

SMALLP  < 1SU0) 
1ESIJ  (2200) 

IKBLK  (10) 

U  <b) 

K  <S) 

UOLD  (22UU) 
UPHM  (22UU) 

H  (10) 

2  (10) 

•••  DIAPER  ••• 
AMU  (1UUU) 

BMU  (1000) 

1U  (12) 

IMU  (1000) 


PAKAMEIEH  DETERMINING  LINt  LOCATIONS  FOX  A  TRANSITION 
AHHAT  UK  uaMMA 

IDtNI  IfiCATlUN  NUMBtH  Of  INITIAL  STATE  AbSOCIAItU  WITH  A  , 

I MANSI I  ION 

iOtNllf It AT  ION  OF  STATE  TO  BE  ELIMINATED 

NUMBtK  Of  ELECTRONS  IN  LEVEL  FROM  WHICH  ONE  IS  REMOVED  IN 

IMIS  TMANS1 1  ION 

ORIGINAL  IDENTIFICATION  NUMBtK  OF  A  TRANSITION 
NUMBER  Of  FREE  ELECTRONS  FOR  A  -STATE 

TOIAL  UUANTUM  NUMBER  (OR  REDUCED  VUANTUM  NUMBER)  Of  ELEC¬ 
TRON  REMOVED  DURING  A  TKANS1I10N 

INDEX  NUMBER  Of  LAST  STATE  IN  TABLE  fOR  AN  ELEMENT 
SIRENGTH  Of  EDGE  DUE  TO  THIS  TRANSITION 
UtbENEHACT  Of  A  SIAIE 

F1RSI  PHOPUHllONAL  TO  LOG  POPULATION  AND  THEN  TO  POPULATION 
Of  A  SI  ATE 

flKST  MAXIMUM  K»  THEN  SUM  OF  H'S>  FOR  AN  ELEMENT 
POPULATION  Of  A  SI  ATE 

LOMEST  VALUE  OF  MU  AT  WHICH  THE  ABSORPTION  COEFFICIENT  IS 
AFFECIEU  BT  I HE  LINE  SERIES  FOR  THIS  TRANSITION 
AHHAT  Of  XT 

COEFFICIENTS  IN  GAUSSIAN  INTEGRATION 
COEFFICIENTS  IN  GAUSSIAN  INTEGRATION 
LOLA  I  ION  Of  EUGE  DUE  TO  THIS  TRANSITION  (EV/EV) 

LOMEHEU  EUGE  TO  APPROX IMA  IE  HIGH  LINES  (EV/EV) 

AIOM1C  HEIGH I  OF  AN  ELEMENT 
AIOM1C  NUMBER  Of  AN  ELEMENT 

ABSORPI  ION  COEFFICIENT  AT  A  PARTICULAR  VALUE  Of  MUUb  .Lt. 
MU  .Lt.  IS)  (PER  CM) 

BO  I  TOM  Of  LUGE  OCCUR1NG  Al  A  PARTICULAR  VALUE  OF  MUiMU  .BT. 

IS) (PER  CM) 

COMMENI  CARD 

I OP  OF  EUGE  OCCUM1NG  AT  A  PARTICULAR  VALUE  OF  U  (U>1S)  (PER 
CM) 


•  ••  SPEC  I HA  ••• 

OEPECI  (lUO’  4)UUANIUM  DEFECT  INDEXED  BT  THE  IONIZATION  LEVEL  AND  L  ♦  1 
DELEPJ  (JSUU)  SAME  AS  UELEPJ  IN  DIAPHANOUS 
SAME  AS  EPS  IN  DIAPHANOUS 
SAME  AS  DELEPS  IN  DIAPHANOUS 
SAME  AS  1J  IN  OlAPHANOUS 
ZCORE  FOR  AN  IONIZATION  LEVEL 
L  FOR  AN  ELEC I ROM  LEVEL 

LEVEL  A I  WHICH  AN  ELECTRON  IS  BEING  ADDED 
LEVEL  A I  WHICH  AN  ELECTRON  IS  BEING  REMOVED 
SAME  AS  MJ  IN  DIAPHANOUS 
N  FOR  AN  ELECTRON  LEVEL 

NUMBER  Of  ELECTRONS  PER  ELECTRON  LEVEL  IN  THE  GROUND  STATE 


EPSU  (l /SO) 
DELEPS  (l /SO) 
IJD  (iSUO) 
IUNZC  (1UU) 

L  (IV) 

LIN  (10) 

LOUI  (10) 

MJD  OSUU) 

N  (IV) 

NE  (V2*  IV) 


NFD  (1 /SO) 
NJD  (4SU0) 
GO  (17SU) 


Of  AN  IONIZATION  LEVEL 
SAME  AS  NF  IN  DIAPHANOUS 
SAME  AS  NJ  IN  DIAPHANOUS 
SAME  AS  0  IN  OlAPHANOUS 


REAL  LONG 
HEAL  LENGTH 
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1NIEGEK  NEM1U*  BLANK 
1NIEGEK  UASA 
1NIEGEH  t»A 
UIMENSION  NEWIUI12) 

UIMENSION  1UI12I*  A 1 20 1  *  b(2)*  U1(1S0>*  GAKYllSOI*  AMU l ISO)* 

1  DAVE  ( ISO  I  * UUMM  Y  ( <10 1 

UiMtNSiON  THtTAISUOU) f  XbAMMA l SUUO ) *  RHO(SUUU) 

DIMENSION  U2I1SUU) *  BMUIISUUI*  IMU(ISOU)*  COMP(lU)*  12(10) 

UAIA  UtNSEK/  bHUENbtK  / 

UA I A  1NUEXA  /  1/ 

UAIA  LKN  /  1  /  *  UUMMY  /  <10*0.  / 

UAIA  IFlLtl  /  U  /  *  BLANK  /  bH  / 

C 

MOOT  =  10 
1  CUNllNUt 
C 

C  MtNU 

C 

L  IF ILL 

C 

•  c 
c 

C  INK IT 

C 
C 
C 

C  MIN 

C 
C 

C  ALL  UENSEK  IAPES  MUST  BL  NKlTTEN  IN  SSb  BP1  - 

C  IHlb  IS  ACCOMPLISHED  BT  SPECIFYING  THE  M  OPTION  ON  THE  TAPE 

C  AbV 1GNMENI  CARU 

C 
C 

KLAU  (S.BUUll  MIN*  MtNU*  1F1LE*  1NK1V*  TK*  GAM 
B0U1  FOKMAI  IH12*  2tlS.B) 

IF  (MIN  *t0.  U)  MlN=lt> 

KtAU  (b*BUOO)  N2*  ( 1Z(KI *  LUMP(K)*  K=1*N2) 

BUOU  FORMAT  (12*  BX  0(12*  2A*  Fb.4).  /  4112*  2X*  F6.4)  ) 

IF  ( (N2  .LI.  1)  .OK.  INK  .01.  101)  CALL  MERK 
NKilt  Cb*bUUJ)  MIN*  MtNU*  1F1LE*  1NK1T 

*  BOO*  FOKMAI  1 1H0  *  7M  MIN  =  *14*BH  MENU  =  *14*9M  1F1LE  •  *14*9H  1NR1T  *  » 

1141 

NKilt  (b*B004l  NK*(l*COMPm*U(l)*l  =  l*NK) 

BUU4  FOKMAI  (1H0*  5HNK  =  *  12*  /  1 1H  *  12*2X*F'B.4*2X*  12/ 1  ) 

KtAU  (b*BUOS)  (NtNIUI 1>*1— 1*12) 

BOUb  FOKMAI  ( 12 Ab) 

IF  INtMlUll)  ,Nt .  BLANK)  NK1TE  (b.BUOb)  INENlD(l) » 1*1*12) 

BOUb  FOKMAI  (1H0*  12Ab) 

KtNINU  MIN 
1KLU  :  0 
NKLU  :  0 
10 MU 2  S  lbOO 
C 

IF  I 1NH1T  .Nt.  0) 


IF  (MENU  .tU.  01  ANOTHtK  bADT  TAPt  IS  KEAU 
IF  (MENU  .Nt.  0)  I HE  KUN  TtRMlNATtb 

IF  (1F1LE  .Nt.  0)  NO  tNU  OF  FILt  MAKKEK  IS  PUT  ON  AFTtK 
THIS  U1APHAN0US  TAPt  HAS  BEtN  KtAO 
IF  (1F1LE  .tU.  0)  AN  ENU  OF  FILE  MARKEH  IS  PUT  ON  AFTEK 
THIS  TAPE  HAS  BEEN  KEAU 

IF  (1NK1T  .Nt.  0)  THE  U1APHAN0US  INPUT  TAPE  IS  EDlTtO 
IF  (1NK1T  .to.  OIIHE  U1APHAN0US  INPUT  IAPE  IS  NOT  EUlItU 


IS  THE  INPUT  I APt  UNI I •  MIN  MUST  BE  KtAU  FOR  EVERT 
1NPUI  TAPE  TO  BE  HEAD 


* 
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lMKiit  (b#yyyo) 

KtAUIMlN)  A(l) 

MKlIt  (b»yyyb)  Mil 

IF  (A(in*b'WV«VW 
2b  IMMim.)  WV'2bUU'VyV 
2b0v  CONllNUt 

NKLU  S  NHCD  ♦  1 

Kt-AJ  (MIN)  UUUI  USD  12) 

MKlIt  (b#yyyy)  UU(K)'KSD12) 

IF  (NtMlUll)  .tO.  BLANK)  60  TO  27 
UU  2b  1SD12 
1UU)  s  NtMlUll) 

2b  LON  I  Kbit 
27  LONIlNUt 

IF  IlFlLtl  .NE.  U)  bO  10  2b 

MKlIt  (MUU1.4)  UtNbtKi  (10IK)  *K-1*  12)  #  N2»  ICOMPIK)  U2IK) 'KSDN2) 
4  FOKMAI  (14Ab/12t (Fb.4U2D 
1KLI)  =  IKCl)  ♦  2 
2b  CONllNUt 

NKLl)  =  NHCD  ♦  1 
KtAUIMlN)  All) 

IF  I1HK11  s  Nt •  U) 
lMKITt  (b*vyvb>  All) 
if i a 1 1 ) ^2 • )  V9y*duu2»yyy 
4002  LONUNVt 

NKLL)  S  NKLL)  ♦  1 
42  KtAl)  (MIN)  (BU)flSD2) 

IF  (IK  •1*1.  BUD  00  10  7000 
IF  IbAM  .«T.  9(2)1  bO  10  7000 
MKiit  (b»vyy«)  (hw)*j=d2) 

if  UHKiT.to.o)  MKiit  (b*yvyb)  aid 

iHtIA  (INUEXA)ZBU) 

XbAMMAI 1NUEXA)SB(2) 

/000  CONllNUt 
J  =  2 
M  =  b 

ULAbll  •  0. 

ALAS II  S  0. 

U2IJ)  =  0. 
bAKTIl)  S  0. 

UAVt(l)  =  0* 

IHtIA  S  HU) 
bAMMA  S  BI2) 

IF  ((IK  .Lt.  BUD  •  ANU.  (bAM  .Lt.  B(2))) 

2 NKLl)  S  NKCO  ♦  1  • 


4b  KtAUIMlN)  Allll  A(2> 

IF  ((All)  .LT.  0.)  .AM).  (ITK  .Lt.  BUI)  .ANO.  (BAM  .Lt.  8(2)  D  > 

lvKiit  (b*yyys)  aid 
UX  =  All) 

UT  =  A(2> 

IF  (UK  .Lt.  BUD  .ANU.  (bAM  .Lt.  BI2III 
2 NKLL)  S  NKCO  ♦  1 
IF (UX  ♦  4.)  4b’bb»4b 
4b  IF (UX  ♦  4.)  40»/b»4U 
40  IF'IUX  ♦  b.)  bb’4b'bb 
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4b  KtAUlMlNI  Mill  AI2J 
II-  (l«Hlf  .Nt.  Ul 
lMKltt  Ib.SUUUI  AUlfAUJ 
U1IMI  =  Alii 

#  AMO I M I  =  AI2J 

M  S  MU 

OX  =  Alii 
ur  =  AI2I 

if  1 1  IK  .LE.  Bill)  .ANU.  (BAM  .Lt.  B(2)ll 
2  NKCU  r  NKCU  ♦  i 
il-(UX  .Lt*  0.)  BO  TO  4bUQ 
ULAbl  =  UX 
ULAbU  =  UX 
ALAbli  =  UY 
AKLAbl  =  UY 
BO  10  44 

4bUU  HNi It (b# VUUUi  UX#  UY 
KtHlNU  MIN 
CALL  tXll 
bb  UilMl  =  UX 
AMU (Ml  =  UY 
M  =  MU 
BO  10  44 

Bb  KtAUlMlNI  Aill  •  A (21  *  AI4I 
UX  =  Alii 
UY  =  AI2 I 

.  UZ  =  A 1 41 

II-  1 1  IK  .Lt.  BUI  I  .ANU.  (BAM  .Lt.  BI2IH 
2NKCU  =  NKCU  ♦  i 
II-  IUX  ♦  4.1  70#74>7U 
70  U2UI  =  UX 
UMUIJI  S  UY 

*  1MUIJI  S  UZ 

J  =  JU 

1H J-1UMU2I  Bb#Bb#  72 

U  BK1  Itlbdbl  10MU2#  THt  I  A#  BAMMA#  U2IJ-1I 
74  KtAUlMlNI  Alii#  AI2I.  AI4I 
UX  =  Alii 
UY  =  A (21 
UZ  =  A 1 4) 

IK  I  UK  .Lt.  Bill  I  .ANU.  (BAM  .Lt.  BI2III 
2 NKCU  =  NKCU  *  1 
IK IUX  ♦  4.)  74# 74# 74 
74  ULAbl?U2(U-ll 
AKLAbl- IMUI J-ll 
7b  CUNUNUt 
M  S  M  —  i 

IK  UK  .01,  BUI  I  60  TO  7001 
IK  (BAM  *(>r.  0(21  I  BO  10  7001 
IK  I1BK11  .Nt.  Ul 
IMKITt  IB#B9BUI  (Ui (Kl »K=b#MI 
IK (BAKY 111  .Nt.  U.l  MKUt(b#O0U2l  BABY 
IK  I 1HR1T  .Nt.  01 
iNKITt  (b#VBB2l  (AMUIKI #K=6#MI 
IKIUAVtll I  .Nt.  U.l  «KlTE(b»V002l  UAVt 
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IF  (UAVkll)  .Nfc.  U.)  CALL  MfcKR 
KbAU(MlN)  (A( JM)  *  JM=1 *8) 

■Kilt  (6*0007)  (A(JM)*UMS1*8) 

■Kilt  (6*8) 

A  FOKMA  f  (1H  ) 

1F(U212)  .Eli.  U.)  80  10  7b 
J  •  J  -  1 

IF  (18K1T  .E6.  0)  60  10  7b 
■Mi  I L  (6*0088)  (U2(K)*KS2*U> 

NNilfc  lb. 008b)  (BMU(X) *KS2* J) 

■Milk  (6*0088)  ( IMU(K) *K22**)> 

7b  CONllNUt 

KHO( !N0tXA)-A(2) 

1NUEXA-1NUEXAF1 

NNlIk  (MOUT. 2)  J*  M*  ULAST1*  ALAST1*  Bill*  0(2)*  «A« JMt • JM*1«20> * 

1  IU1  IK) *K-b*N) *  (AMUlK).K=b.M).  (U2(K) *KS2*J) • 

2  (BMU(K) *K-2* J) *  (TMU(K)*KS2*J> 

NKCU  :  NKCU  ♦  1 

1HCU1  r  11  ♦  2  tlN  •  »l*  1  <  IJ  •  II 
1KCU2-  1KCU1  /  18 
1KCU18  s  1KCU2*  18 

IF  I1NCU1  .61.  1MC018I  1RCU2S  INC02  ♦  1 
1KCU  =  1HC0  ♦  1  ♦  1NCU2 
7001  CONllNUk 

KtAU  (MIN)  All) 

IF  (lMKll.Nt.0)  MMllk  (6.0006)  All) 

UX  =  A(l) 

IF  (UK  .Lk.  BUD  «ANU.  (6AM  .Lk.  81211) 

2NMCU  =  NKCU  ♦  1 
IF (UX  ♦  2.)  7702*000 
tl  IF  (UX  ♦  b.)  000.1SS.000 
lbb  CONllNUk 

IF  (INKlT.kO.O)  ■HUE  (6*0006)  A(l) 

C 

NKCU  5  NKCU  ♦  1 

C  IMk  AUOVk  KkCOKU  COUNT  INCLUDES  1ME  kOF  KECOKD 
IFlLkl  -  1F1LE 
L0N6  S  FLOAT (NKCU)  •  .0628 
LEN61H  =  FLOAT (1KCU)  •  .Ubbb 
■Kllk  (6*8007 )  L0N6#  NKCU*  LLN6TM#  IRCU 
CALL  KkMKMIN) 

IF  (1F1LE  .Nk.  0)  60  10  1 
1  =  -b 

■Kllk  (M0UT*2)  !•  LHN*  DUMMY 
1KCU  S  1KCU  ♦  2 

8007  FOKMAI  ( bOHOlHk  DIAPHANOUS  I  APE  HAS  BEEN  CONUENSkU  SUCCESSFULLY  FK 
10M  .  F 10.2  * 10H  FkkT  NlIH*  lb*  21H  PHYSICAL  KECOKUS  TO  *F9.2*/10H0F 
2kkl  NllH.lbdBH  PHYSICAL  KfcCOROS.) 
kNUFILE  MOUT 
IF  (MENU  .EM.  01  60  10  1 
KtUlNU  MOUT 
INUEXASlNUfcXA-i 

■Kllk 16*0001 )  (THkTA(K) *X6AMMA(K) *KHO(K) *KSl* INOkXA) 

0001  FOKMAI (1H1.6X. 

1  bHTHETA  *0X*  6H6AMMA  *11X*6HAH0  «/ (SOX*  1PE12.5) ) ) 
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CALL  tXIT 
VW  CUN  I  INUt 

•Kilt  (fe'VVUl) 

WU1  F  UK  HA  I  IUH  THtKt  lb  AN  tKKOK  IN  THIS  RUN.  MtRR  HAb  BEtN  CALLED* ) 
CALL  MtRR 
C 

C  •••••••••••«••••  y  o  K  M  A  T  b  ••••••••••••••••••••• 

lb  FORMA I  142H  2ND  btl  OF  OlAFMANUUb  DATA  MAb  HORt  THAN  I3i  19H  tNTH 
illtb.  THtlA  =  F/.2#  HHf  OAMMA=XFtXU.b*20M»  NO  SOOO  ABOVE  U  s 
Alt 

VOOO  FORMA! (UHU  ULAb I  =  XPtlb.7*  AX  OHAKLAS!  =  Elb.7) 

*002  FORMAT  (XF10E12.b) 

WttU  FORMAT (10HU  UX  AKKAY  //  (lF>10£12.b) ) 

VVB2  FORMAT  1 11HU  AMU  AKHAT  //  (XFlUE12.b)) 

VVBH  FORMA  I (1OH0  U2  ARRAY  // llF10tl2.b) J 
VVbb  FOKMAH11HO  BMU  ARRAY  //  (XFlUtl2.b)) 

VVBB  FORMA! IllHU  TMU  ARRAY  //  (XF10tl2.b)) 

VVVU  FOKMAI(lHl) 

2  FORMA  I  (21b*  14£V.b»  /  ClbtV.4)) 

V9Vb  FORMA I ( 1UH  blfeNAL  =  Fb.i) 

WVB  FORMA !  ( 1UHX  blONAL  =  Fb.i) 

WV7  FORMA  I (bM  ZBARSFB.b*  IX  4NMMO=lFtXl .b*  2X  2HFstll.b#  2X  2HE=Ell*b» 
X  2X  bHXR0b=EXl.b*  2X  6MKFLNK=EXl.b»  2X  bHElONstlX.b.  2X  5HC6AMS 
2UPFV.4) 

WVB  FORMA !(VHU  THETA  ■  XPtlb.7'  AX  7H6AMMA  *  Elb.7) 

VWV  FONMAIUHUi  X2A6) 
tNU 
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format.  The  data  from  each  separate  set  of  DIAPHANOUS  input  tapes  are 
written  onto  one  file  on  the  output  tape.  The  condensed  tape  may  contain 
several  files,  each  of  which  corresponds  to  some  chosen  set  of  DIAPHANOUS 
tapes. 

DENSER  reads  the  DIAPHANOUS  tape,  under  control  of  the  variables 
TKandGAM(see  below),  the  tape  consisting  of  very  short  binary  records,  and 
stores  the  data  into  arrays.  These  arrays  are  written  onto  the  output  tape 
in  14  word  records.  Either  the  identification  record  from  the  DIAPHANOUS 
tape,  or  a  new  identification  record,  plus  a  material  composition  record  is 
written  as  the  first  two  records  of  every  file  on  the  DENSER  output  tape. 

All  of  the  data  at  a  given  temperature -gamma  point  on  a  DIAPHANOUS  tape 
are  preserved  in  the  condensation.  The  DENSER  identification  record  need 
not  be  the  same  as  the  identification  record  that  was  onthe  DIAPHANOUS  tape. 

The  output  records  made  by  DENSER  must  incorporate  the  information 
that  DIAPHANOUS  tapes  formerly  conveyed  by  signals.  The  possible 
situations  at  a  given  temperature -gamma  point  are: 

1.  The  DIAPHANOUS  tape  had  both  extrapolated  data  (before 

u  =7?—  =15)  and  edge  data  (i.  e.  ,  both  (-6.  )  and  (-3.  )  signals 
KT 

were  present). 

2.  The  DIAPHANOUS  tape  had  extrapolated  data  but  no  edge  data 

(i.  e. ,  (-6.  ),  but  not  a  (-3.  ),  signal  was  present). 

3.  The  DIAPHANOUS  tape  had  edge  data  but  no  extrapolated  data 
(a  (-3.  ),  but  not  a  (-6.  ),  signal  was  present). 

4.  Neither  extrapolated  nor  edge  data  were  present  (neither  a  (-6.)  nor 
a  (-3.  )  signal  was  present). 

In  the  DENSER  program,  ULAST1,  ALAST1 ,  and  U2(2)  are  all  set  to 
zero  at  the  beginning  of  the  processing  done  for  each  temperature -gamma 
point.  If  they  are  still  aero  when  the  DENSER  output  record  is  written, 
we  have  case  (4).  If  a  (-6.  )  signal  is  encountered  on  the  DIAPHANOUS  tape, 
then  ULAST1  and  ALAST1  are  modified  to  specify  the  values  of  hv/KT  and 
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the  absorption  coefficient  at  the  place  where  extrapolation  began.  If  no 
(-3.  )  signal  is  encountered,  U2(2)  is  still  set  to  zero,  and  case  (2)  has  been 
specified.  If  edge  data  are  present  U2(2)  is  modified  to  specify  the  location 
of  the  first  edge.  If  a  (-6.  )  had  previously  been  encountered,  then  U2(2), 
ULAST1,  and  ALAST1  are  nonzero  and  we  have  case  (i).  If  no  extrap¬ 
olation  has  been  performed,  and  edge  data  were  present,  we  have  case  (3) 
with  U2(2)  i  0.  ,  but  ULAST1=ALAST  1  -0. 

The  DENSER  program  contains  two  write  statements.  They,  and  their 
respective  formats,  are: 

WRITE  (10,  3)  DENSER,  (ID(K),  K=l,12),  NZ,  (COMP(K),  IZ(K),  K=1,NZ) 
3  FORMAT  (13A6/I2,  (F6.4, 12)) 

The  above  write  statement  is  used  once  to  write  identification  data  at  the 
beginning  of  each  file  on  the  DENSER  tape.  The  named  variables  are 
discussed  below  or  are  clear  from  context. 

WRITE  (10,2)J,M,  ULAST1,  ALAST1,  B(1),B(2),  (A(JM),  JM=1, 20), 

(U1(K),  K=6,  M),  (AMU(K),  K=6,  M),  (U2(K),  K=2,  J),  (BMU(K)K=2,  J), 

(TMU(K).  K=2,  J) 

2  FORMAT  (214.  13E9.  4, /(14E9.  4)) 

The  above  write  statement  is  used  to  write  the  data  at  each  temperature  and 
density  point. 

The  length  of  the  input  DIAPHANOUS  tapes  and  the  length  of  each  file 
on  the  DENSER  output  tape  are  computed  after  each  file  is  completed.  These 
values  will  help  the  user  determine  how  many  files  can  be  written  on  a 
DENSER  tape. 

One  may  edit  the  input  DIAPHANOUS  tape,  if  desired,  in  the  same 
manner  as  in  present  use.  (DENSER  is  an  adaptation  of  the  DAPHNE  code, 
which  is  able  to  edit  DIAPHANOUS  tapes.  )  A  program  was  also  coded  to 
edit  the  files  on  the  new  condensed  DIAPHANOUS  tape,  and  this  new  program, 
DASE,  can  be  used  as  a  subroutine  of  DENSER  to  edit  each  file  as  it  is  written, 
DASE  is  in  FORTRAN  IV  language.  (Refer  to  separate  writeup.  ) 
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Input  for  DENSER 

CARD 


NO. 

INPUT  VARIABLE 

COLUMNS 

FORMA 

1 

MIN 

1-2 

12 

MEND 

3-4 

12 

IFILE 

5-6 

12 

IWRIT 

7-8 

12 

TK 

9-23 

E15.  8 

GAM 

24-38 

E15.  8 

2 

NZ 

1-2 

12 

IZ(1) 

11-12 

12 

COMP(l) 

15-20 

F6.  4 

IZ(2) 

21-22 

12 

COMP(2) 

25-30 

Fo.  4 

up  to  10 

etc. 

3 

NEWID 

1-72 

12A6 

These  three  data  cards  must  be  repeated  for  each  DIAPHANOUS  input  tape. 

Card  3  needs  to  contain  the  above  data  only  when  the  input  tape  is  the  first 

tape  used  to  create  a  given  file.  (For  subsequent  tapes  used  to  continue 

this  file,  it  can  be  a  blank  card.  ) 

MIN  The  unit  on  which  the  input  tape  is  mounted.  If  MIN  =  0, 

MIN  is  set  to  15  in  the  program 

MEND  If  MEND  i  0,  the  program  terminates  after  this  set  of  input 

cards  is  processed;  otherwise  the  program  goes  back  to 
read  the  next  set  of  input  cards 

IFILE  If  IFILE  i  0,  no  end-of-file  is  written  at  the  end  of  the  data 

read  from  this  input  tape;  otherwise,  an  end-of-file  is 
written 

IWRIT  If  IWRIT  ^  0,  the  DIAPHANOUS  tape  is  edited  in  the  fashion 

of  DAPHNE;  otherwise,  only  a  limited  printout  is  allowed 

NZ  The  number  of  elements  in  the  material  whose  data  are  on 

the  input  DIAPHANOUS  tape;  1  <  NZ  <  10 
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IZ  The  array  of  atomic  numbers  of  the  elements  in  the  material 

on  the  input  DIAPHANOUS  tape.  NZ  atomic  numbers  are 
written  on  the  DENSER  tape 

COMP  The  array  of  number  fractions  corresponding  to  the  elements 

in  the  IZ  array.  NZ  number  fractions  are  written  on  the 
DENSER  tape 

NEWID  An  array  of  12  alphanumeric  words  that  allow  a  new  title 

to  be  written  on  the  DENSER  tape.  If  this  card  is  blank, 
the  ID  array  from  the  SADY  tape  will  be  used  as  a  title  on 
the  DENSER  tape 

To  use  the  DENSER  program,  the  following  tapes  must  be  mounted: 

1.  The  input  tapes  are  DIAPHANOUS  tapes  and  may  be  mounted  on 
any  unit  except  unit  10 

2.  The  output  tape  must  be  mounted  on  unit  10 

TK,  GAM  If  both  TK  and  GAM  are  nonzero,  the  DIAPHANOUS  input 

tape  is  spaced  to  the  data  at  this  temperature -gamma  point. 
Writing  on  the  DENSER  tape  then  starts  with  the  data  at  this 
point.  GAM  is  the  electronic  degeneracy  factor  and  is 
Ti  [  (0.  01)  (A)  03/2]  /(pZ), where  A  is  the  mean  atomic  weight, 
0  is  the  temperature  in  eV,  p  is  the  density  in  gm/cc,  and 
2  is  the  mean  ionization  (Ref.  2).  If  TK  is  zero,  the 
DIAPHANOUS  tape  is  not  spaced. 

If  GAM  is  zero,  the  DIAPHANOUS  tape  is  spaced  to  the 
first  r  point  at  which  the  temperature  is  TIC. 


DASE:  AN  EDITING  CODE  FOR  DENSER-PRODUCED  TAPES 

DASE  has  been  coded  in  FORTRAN  IV  language  to  edit  a  tape  file  from 
a  multifile  card-image  DENSER  tape.  Each  tape  file  of  a  DENSER  tape  is  a 
condensation  of  a  set  of  DIAPHANOUS  tapes  for  a  certain  material.  (Refer 
to  the  DENSER  code  writeup. ) 

DASE  edits  either  the  complete  file  or  that  part  of  the  file  from  the 
beginning  of  a  specified  temperature  set  to  the  end  of  the  file.  DASE  also 
has  the  ability  to  space  a  preliminary  DENSER  tape  file  to  a  specified 
temperature -gamma  data  set. 
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PNOMMAM  UAS£UNPUI*OUlPUT*  I APE10 * TAPEbSlNPUT • TAPtfcSOUTPUT ) 


C 

C  IMIS  PNOMMAM  NAS  ■KlIltN  Ml  L.  H.  NOMKlS 
C  IMIS  MOUI1NE  MILL  LU1 I  A  CUMPMtSSEU  U1APHANOUS  TAPt 
L  IN  IMIS  PNOMMAM  TAIN  ANU  MAMIN  SPECIFY  THt  lEMPERAlUNE  AND  MAMMA 
L  AP ILK  MH1CH  I ML  TAPE  IS  SPACEU  TO 

L  IMN1IL  SPECIFIES  I ML  TLMPLHATUME  aT  MM1CM  TML  PNOMMAM  STARTS  NRIT1NM 
L  VALUES  PNOM  I ML  OENSEH  TAPE  UNTO  TML  OUTPUl  PILL 
L  MMLN  IMLIASTA1N  ANU  MAMNAXMAM1N  AML  FOUNU*  LHN  IS  HLSLT  FROM  ZERO 
L  10  ONL 

L  ISPALO  IS  NO  I  USEU  UT  IMIS  COUt 

C  ISPAtO  IS  IN  THIS  COOL  TO  MAINTAIN  COMPAI 1MIL1T V  R11H  UAPMNE  1NPUI 
C 

U1MENS10N  U2I1S00I *  MMUIlbUUlf  TMU(ISOO) 

UiHENSiON  IU(12l»i2llOI*  AI20I*  Ul(lbO)*  AMUIlbVI*  COMP(IO) 

IN  I tOt H  UtNStR 

UAIA  UENStH  /  MMUENSEN  /*EPS  /l.E-b/*  ISPACU/O/ 

C 

C  FORMA IS 

IUU1  FONMAI  I1M0*  AM*JX*12AMI 

1002  FORMAT  I1MU*  SMNZ  =  *  12*  /TIM  *  12*2X»FM.«*2X*  12/1 » 

lOOA  FOMMAT  (OMllMEIA  S  *1PEV.«*  JXfMM'iAMMA  x  rlPEO.*) 

iOOA  FONMAI  (JOHOTRANSIUONS  MLKL  EXHAUSTED  Al  /  1M  *  SM  U  *  *  IPCO.M* 

1  1UM  ANU  Mu  s  *  1PE0.MI 

100b  FONMAI  I10M0U  VALUES  //  liM  * 10 1 IX*  1PEV.«*2XJ I  I 
100*  FORMAT  IIOHOMO  VALUES  //  (1M  •lUllX*lPtO.«*2l>>) 

100  t  FONMAI  IIOHOU  VALUES  //  I1M  * 10 1 IX* 1PE0.M*2XI 1 1 

1UU«  FONMAI  I04H0MU  VALUES  AT  1ML  TOP  OF  TME  LOME  //  IIH  . 10 1 IX' 1PE9.M* 
12X11) 

1000  FONMAI  IOMHOMU  VALUES  AT  THE  BOTTOM  OF  TME  LOME  //I1M  *10(1X*1PE9. 

ivixxm 

1010  FONMAI  IlMMULOOL  UATA  FOLLOMS) 

1012  FONMAI  IOMOZMAN  =  *FM.** )H  NMO  X  »1P£9,9*SH  P  r  '1PE9.A' 

1  bML  :  *1PE9.«*MH  XKOS  X  'IPtV.V'VM  APLNA  X  tlPCO.9* 

2  10M  E1PAKI  X  *1PEV.9»UH  LOAM  X  »0PFM.4»/(lPMElb*M)  I 
1020  FONMAI  1219*  1AEV.9*  /  I19t0.«)l 

1010  FONMAI  I1JAM/U*(P**«*12II 
C 

NL«  X  10 

C  IMIS  PNOMMAM  DOES  NOT  HLMlNU  TML  OENSCK  TAPE  BEFORE  REA01NM 

C  SO  I MAI  TML  NTM  FILL  ON  A  OLNSLH  TAPE  MAI  HE  EDITED  BT  BASE  * 

C  SUCH  KLVlNUlNM  MUST  HE  DONE  HEFONE  EXECUI1NM  BASE 
■RUE  (0*7001) 

7001  FOMMAT  I1HI*3MH  BCU-COMPMESSEO  LU A PM A NOUS  EDIT  RUN  //) 

HEAU(b*VU07)  TAIN*  MAMIN*  I  UNITE*  1SPAC0 
0007  FONMAI  (AF10.0*12) 

■NlTE(M*0070l  IAIN*  MAMIN* IONITE* 1SPAC0 
0070  FONMAI  I2SM  TME  INPUT  ILMPtMATUME  X  flPClb.H*/* 

1  ION  TME  INPUT  MAMMA  X  tlPElb.O*/ 

2  •  11H  1MN1TE  X  * IPElbti* 10M  1SPAC0  X  *101 
UAIA  LRN  /  0  /•  NMCO  /  0  /•  IF LAM/  0  / 

c 

10  CONTINUE 
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klau  (NtM'iuiyi  lux.  uum*i=iii2)»  n i>  (Compiruuirursi.nX) 

IK  (lux  .Nt.  DtNbtK)  CALL  MtKK 
MKlIb  (bf 1001 )  lUAt  (11H1)  fl  =  lt  12) 

■Kilt  (bi  1002)  N2f  (i#COMPU>fU(l)»|Xl#N2) 

c 

*1)  CUNIiNUt 

KLAU  (NLMf 1020 I  Jf  M#  ULAblf  ARLAbT •  TMEIAf  6 ANNA »  (AIR) fRSl.20) f 

1  (U1  ID*  ISbf M)  •  ( AMU(  l)fl-bfM)>  IU2II)flS2fU)f 

2  (OMUIDf  l=2fU)f  ( IMU( 1 ) » 1X2. J) 

IK  (J  .tW.  (-51)  bO  10  1UU 

NKCU  =  NKCl)  ♦  1 

IK  (Alibi (IRlN-IHtlAI/lHtTAI .LT.LPS)  00  TO  3000 
bU  10  3001 
3000  CUNIlNUL 

IK (A|)b( IbAMlN-bAMMA) /bAMMA) .LT.tPS)  LNNX1 
’  3001  C0NI1NUL 

IK  (IHKIIL.LL.O.)  lKLAbSl 

IK  (Alibi (INKITL-IHtf A)/IH£1A).LT. EPS)  IKLA0=1 
lKHKLAb.NL>!)  00  TO  3002 
HMITL  (b. 1003)  IHLTA.  bAMMA 

IK  (ULAbl  .Nt.  0.)  feKl It  (b. 100b)  ULASTf  ARLAST 
C 

C  MK1IL  1  KANSU  ION  UAI A 

MK1IL  (bf 100b)  (U1 ( 1 ) • 1-b.M) 

IK  KM  .01.  ISO)  .OK.  ( J  .bl.  »00))  CALL  NCMM 
MK1IL  (b. 1006)  I AMU 1 1 ) *  1— btM) 

C 

C  HKUL  LUbt  UATA.  IK  ANT  LXlbT 
IK  I U2 ( 2 )  .LO.  0.)  60  10  30 
■Kilt  (bf 1010) 

HK1IL  (bf 1007)  (U2(l)flS2fUI 
MK1IL  (b.lOOV)  (OMU(l)f i:2#U) 

MK1IL  (bf 1000)  ( 1MU( 1 1 f l-2f U) 

30  CONUNUL 

■Kilt  (bf 1012)  IA(R)fRZlf20) 

.  3002  CONUNUL 

1KILKN.NL. 1)  60  (O  20 
■Kllt(bfVbVl)  IMLTAf  bAMMA 

bbVl  KOKMAI (blMUlHE  ULNbLK  DIAPHANOUS  TAPE  MAS  ULLN  SPACED  TO  AKTEM  I ML 
1 1 A  S  f  KlO.bf  bXf  OH  bAMMA  X  #  KlO.b) 

C 

100  CUNIlNUL 

NK1IL  (Of  1011)  NKCO 

1011  KOKMAI  130H11H1S  TAPE  HAS  MLLN  EUITEO  SUCCEbSKULLT . / 

1  1IH  TNLKL  AKL  flbf  2 OH  THETAf  6AMMA  UATA  SETS.) 

KLIUKN 

LNU 


131 


AFWL-TR- 67- 131,  Vol  IV 


This  feature  of  the  program  is  useful  when  a  DENSER  tape  file  is  not 
completed  in  a  given  DENSER  run  or  when  more  data  are  to  be  added  to  the 
file  at  a  later  time. 

Input  for  DASE 


CARD  NO. 

INPUT  VARIABLE 

COLUMNS 

FORMAT 

1 

TKIN 

1-10 

F10.  8 

GAMIN 

11-20 

F10.  8 

TWRITE 

21-30 

F10.  8 

ISPACO 

31-32 

12 

TKIN  The  temperature  to  which  the  tape  is  spaced.  If  TKIN  is 

blank,  the  tape  is  not  spaced.  TKIN  is  in  eV 

GAMIN  The  T  to  which  the  tape  is  spaced;  if  GAMIN  is  blank,  the  tape 

is  not  spaced.  GAMIN  is  the  "dimensionless  electron 
degeneracy  factor"  (Ref.  2).  Both  GAMIN  and  TKIN  must  be 
specified  to  space  the  tape 

TWRITE  The  temperature  on  the  tape  at  which  editing  is  begun.  If 

TWRITE  <  0,  then  the  entire  tape  is  edited 

ISPACO  Not  used.  (This  variable  was  used  in  the  DAPHNE  program, 

which  can  edit  the  original  DIAPHANOUS  tape.  DAPHNE 
input  cards  can  also  be  used  by  DASE.  ) 

To  use  the  DASE  program,  the  DENSER  tape  must  be  mounted  on  unit  10. 
DENSER  tapes  are  written  in  event  parity  and  at  556  BPI  (bits  per  inch). 

DAPHNE:  A  DIAPHANOUS  TAPE -EDIT  CODE 

DAPHNE  reads  the  DIAPHANOUS  tape  (Ref.  3),  which  contains  very 
short  binary  records,  and  stores  the  data  into  arrays.  DAPHNE  then  prints 
out  these  arrays  in  a  suitable  format.  DAPHNE  edits  either  the  complete 
tape  or  that  part  of  the  tape  from  the  beginning  of  a  specific  temperature 
set  through  the  end  of  the  data  on  the  tape.  DAPHNE  also  has  the  capability 
of  spacing  a  DIAPHANOUS  tape  to  the  end  of  a  specified  temperature. gamma 
(Ref.  2)  data  set  and  putting  an  end-of-filc  mark  on  the  tape,  or  of  terminating 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

V 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

t 

c 

c 

t 

c 

c 


PKOOKAM  UAPHNE I INPUT #OUTPUl • T APEiS#  TAPE5*INPUT # TAPtbSOUTPUT I 
U1APHANQUS  tUIl OK 


VAKlAHLt  NAMt  MEAN1NO 


•••  AUOtAS  ••• 
UtLEPP  I2U00I 
UtLEPS  UJOUI 
tlN  US) 

EPS'J  I  UUU) 

FPC  (4*  i>  it 

IJU  12UUU) 

ISPLII  US#  HO 
MtKOtU  US#  HO 

MPU  I2UUU) 

NFU  UJUUI 
NPU  I2UUU) 

NO  (6#  IS#  HO) 
NKMAX  USI 
NKSAVt  UJUUI 
NSAVt  USUOI 

UU  UAUUI 
UN  I  US#  HO) 

HU  US#  HU | 

Hi  US#  HU) 

W2  US#  HU  I 


tNtKOT  CHANbt  OUK1NO  A  TRANSITION  ItVI 
IONI2A I  ION  PUItNliAL  OF  A  STATE  ttV> 
tlltKOT  UF  OMUUNU  STATt  OF  AN  IONIZATION  LEVEL 
SAME  AS  EPS  IN  DIAPHANOUS 

FRACTIONAL  PtHCtNIASt  COEFFICIENT  FOK  TKANSITION  BETWEEN 
SPL1I  LONF IOUKAI iONS 

iUtNI iF iLATiON  NUMHtR  OF  INlliAL  STAIE  ASSOCiAIEU  HlTH  A 
IKANSi I  ION 

)  IUtNI  IF  ILAf  lUN  OF  A  SPLIT  CONF  JOtAIAI  ION 
I  I  HUE  IF  THIS  CONF1UUKATION  IS  THE  AVtRAOE  Of  T.OHt  OTHtK 
CONFIOUHAUONS  IN  THE  TABLE 

NUMBtK  OF  tLtCTKONS  IN  LEVEL  FROM  WHICH  ONE  IS  HtNOVED  IN 

IH1S  IKANSI  UON 

SAME  AS  NF  IN  DIAPHANOUS 

PK1NCIPAL  OUANTUM  NUMBER  IOK  KEDUCED  QUANTUM  NUMBER!  OF 
ELEC  IKON  KEMOVEU  IN  THIS  IKANSITION. 

NUMHEK  OF  ELEC  I  RONS  IN  AN  ELtCTKON  LEVEL  IN  A  CONF IOURATION 

NUMHEK  OF  CONF  16UHAT IONS  AT  AN  IONWA  ,'ON  LEVEL 

CONF 10UKAT ION  IDENTIFICATION  OF  A  Si  ATE 

OUANTUM  NUMHEK  OF  OUTER  ELtCTHON#  IF  BLTONO  TAHLE#  OF  A 

SI  ATE 

SAME  AS  0  IN  DIAPHANOUS 
UtOENEKACT  OF  A  CONF 10UNAT ION 

COEFF 1C1ENTS  IN  UUAUKATIC  FOK  OtTEKMINlNO  ENEROT  OF  THIS 
CONF IOUHAT ION 

COEFFICIENTS  IN  UUAUKATIC  FOK  DETEKMInINO  ENEROT  OF  THIS 
CONF lOUKAT ION  „  _ 

COEFF 1C1ENIS  IN  UUAUKATIC  FOK  DETEKMININO  ENEROT  OF  THIS 
CONF IOUHAT ION 


•  ••  UIAPH2  ••• 
HE  UUU) 

HEP  UbUUI 
C  UU) 

COM  UII 
DELE  UUU) 
DELEPJ  122001 
DELEPS  USOO) 
DELI  UUU) 

EPS  UbUUI 

EPSPRM  USOO) 

EX  U00! 
tXP  UbUO) 
QAMHLK  UU) 

1J  I220UI 


SAME  AS  HEP#  1NUEXEU  BT  INF  ♦  II  FOR  INITIAL  STATE 
PAKAMEIEK  DEIEKMININO  LINE  WIDTH  FOR  A  TRANSITION 
CONCENT KAT ION  OF  AN  ELEMENT  IATOMS/ATOMI 
COMMENl  CAKU  IN  FORMAT  i2Ab 

SUM  OF  UELi  AT  PREVIOUS  10N12ATI0N  LEVELS  IEVI 
ENEKOT  CHANOE  OUKINO  A  TRANSITION  IEVI 
ION12AT ION  POTENTIAL  OF  A  STATE  IEVI 
PKESSUKE  IONIZATION  AT  AN  IONIZATION  LEVEL  IEV> 

ENEROT  OF  A  STATE#  USUALLT  REFERRED  TO  THE  ENEKOT  OF  THE 
OKOUNO  STATE  Of  THE  NEUTRAL  ATOM  ItV) 

ENEROT  OF  A  STATE  AFTER  REDUCTION  OUE  TO  PRESSURE  ION1ZA- 
I  ION  IEVI 

SAME  AS  EXJ#  INDEXED  BT  INF  ♦  II  FOR  INITIAL  SI  ATE 
parameter  determinino  line  locations  for  a  transition 

AKKAT  OF  OAMMA 

IDENTIFICATION  NUMBER  OF  INITIAL  STATE  ASSOCIAIEU  WITH  A 
IKANSI  UON 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

L 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

•c 

.c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


MAAtZ  llbUOl 
MJ  (22UUI 

NEW  (22UUI 
NF  UbUUI 
NJ  (22UUI 

MLAST  UUI 
PHI  (22UUI 
U  UbUUI 
K  UbUUI 

Kb  UUI 
SMALLP  UbUUI 
ItSIJ  I22UU) 

IKBLK  UUI 
U  ibl 
K  Ibl 

UOLU  (22UUI 
UPKM  I22UUI 
N  UUI 
Z  UUI 

•  ••  U1APEK  ••• 
AMU  UUUUI 

ttMU  UUUUI 

1U  U2I 
IMU  UUUUI 


IDENTIFICATION  OF  STATt  TU  Bt  ELIMINATED 

NUMBtK  OF  tttCTKUNb  IN  LEVtL  FMOM  WHICH  ONE  IS  RtMOVED  IN 
IHlb  TKANblllON 

ORIGINAL  lUtNT IF ICAT ION  NUMBtK  Of  A  TKANblTlON 
NUMBtK  Of  FKtt  ECtC IKONS  FOK  A  STATt 

TUI AL  GUANIUM  NUMBER  (OK  KtllUCEU  QUANTUM  NUMBEKI  Of  ELEC* 
IKON  KtMOVtU  UUK1NG  A  TKANblllON 

INUtX  NUMBtK  Of  LAbT  STATt  IN  TABLt  FOK  AN  ELEMENT 
bTKENGIH  Of  tUGE  UUt  TO  THIS  TKANblllON 
UtGtNLKACT  Of  A  blATt 

flKbl  PKOPOKIIONAL  10  LOG  POPULATION  A NO  THEN  TO  POPULATION 
Of  A  SIAIE 

P1KSI  MAXIMUM  Kt  I  HEN  SUM  Of  K»S»  FOK  AN  ELEMENT 
POPULATION  Of  A  SIAIt 

LOWEST  VALUE  Of  MU  Al  WHICH  I HE  ABS0KPT10N  COEFFICIENT  lb 
AffECTEU  UT  I ME  LINE  SEKltb  FOK  THIb  TKANS1T ION 
AKKAT  Of  XT 

COEFf 1C1ENIS  IN  GAUbbI AN  INTEGRA I  ION 

COEFFICIENT  IN  GAUSSIAN  INTEGRATION 

LOLA  I  ION  OF  EDGE  UUt  TO  THIS  TRANS1 1  ION  (EV/tVI 

LOWEKEU  tOGE  10  APPKOXIMAlE  HIGH  LINES  IEV/EVI 

AI0M1C  WEIGHT  OF  AN  ELEMENT 

ATOMIC  NUMBEK  OF  AN  ELEMENT 

ABSORPTION  COEFFICIENT  AT  A  PARTICULAR  VALUE  OF  MUI.6  .Lt. 
MU  .LE<  Ibl  (PEK  CM! 

BO I  TOM  OF  LUGE  OCCUKING  AT  A  PARTICULAR  VALUE  OF  MU I MU  .GT. 

Ibl (PER  CMI 
COMMENT  CAKU 

•OP  OF  EUGE  OCCUKING  AT  A  PARTICULAR  VALUE  OF  U  (UFlbl  (PER 
CMI 


•  ••  SPEC  I KA 

UtfECI  ilUOt  GIGUANIUM  UEFECT  INUEXtU  BT  THE  IONIZATION  LEVEL  ANO  L  ♦  1 
UELEPJ  UbOOl  SAME  AS  UELEPJ  IN  UIAPHANOUS 
SAME  AS  UELEPb  IN  UIAPHANOUS 
SAME  AS  EPS  IN  UIAPHANOUS 
SAME  AS  ID  IN  OIAPHANOUS 
ZCOKE  FUN  AN  IONIZATION  LEVEL 
L  FOK  AN  ELtCTRON  LEVEL 

LEVEL  Al  WHICH  AN  ELECTRON  IS  KING  AOOED 
LtVEL  Al  WHICH  AN  ELECTRON  IS  KING  REMOVED 
SAME  AS  MU  IN  DIAPHANOUS 
N  FOK  AN  ELtCTRON  LtVEL 

NUMBtK  OF  ELECTRONS  PEK  ELECTRON  LEVEL  IN  TME  GROUND  STATE 
OF  AN  IONIZATION  LEVEL 
NFU  U7SUI  SAME  AS  NF  IN  UIAPHANOUS 

NJU  USUI) I  SAME  la  NJ  IN  DIAPHANOUS 

GU  U/SUI  SAME  AS  G  IN  UIAPHANOUS 


UELEPS  U7S0I 
tPSU  U/bUI 
1JU  UbUUI 
IONZC  UUUI 
L  UVI 
LIN  UUI 
LOUI  UUI 
MJU  UbUUI 
N  UVI 
NE  (V2t  1VI 


DIMENSION  U2I1U0UI  •  BMUlIUUUIa  TMUUOOOI 

DIMENSION  10(121  »AUO I  fOUUI  tUlUSU)  aQART  (ISO  I  a  AMU  (ISO  I  a  DAVE  (ISO  I 


UAI A  EPS  /  l.E-OT  / 
DATA  1FLAG/U/ 
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I  KIN  IS  THt  ItMHtKAIUHt  AhttH  WHICH  AN  tNU  Of  FILL  IS  WKITItN 

OK  THt  HKOGKAM  SI  OHS  SPACING 

I* AM IN  IS  THt  GAMMA  Ah TtK  WHICH  AN  tNU  Oh  FILt  IS  WRITTEN  OK 

IHt  HKOGKAM  SI  OHS  SHAC1NG 

TWKITt  IS  THt  ItMHf.KATUKt  AT  WHICH  THt  HK06KAM  SIAKIS  WRITING 
VALUtS  hKOM  IHt  UAHHNt  TAHt  ONIO  IHt  OUTHUT  TAKE 

IF  (IWKIlt  .Lt.  O.l  tUll  ENTlKt  TAHE 

Ih  (1SHACU  .LT.  Ul  AN  tM)  Oh  FILt  WILL  ttt  HUT  ON  THE 

UIAHHANOUS  IAHE 

Ih  USHACU  ,GE.  01  UAHHNE  SHACES  THt  UIAHHANOUS  TAPE 

PAS1  A  CtRlAlN  ItMHtMAIURt  ANO  GAMMA 
Ih  SAUT  IS  TO  BE  UStU  Ah TtK  IHt  1 APt  IS  SPACtO  NT  UAPHNE*  THEN  IHt 
UStK  MUSI  USt  AN  1U  CAKU  WilH  COLUMNS  1  -  G  BLANK  AS  INPUT  TO  SAUT 

LKN  IS  A  SIGNAL  WHICH  IS  StT  10  1  WHEN  GAMIN  ANO  THIN  AME 

FOUNU  ON  IHt  TAPt.  IT  IS  TESTEU  At  THt  ENO  OF  EACH  THtTA. 
GAMMA  StT.  IIS  VALUE  IS  2tK0*  OTHERWISE* 

MtAU  (S»yU0?>  THIN*  GAMIN*  IWKIlt*  1SPACU 
WK1 It  (b*yy70)  TR1N*  GAMIN*  TwKilE*  ISPACO 
VOU?  hOHMAl  I3h 1U.G* 12) 

yy/U  FOMMAI  I2SH  THE  INPUT  ItMPtKATUKt  s  *1P£1S.G*/* 

1  1VH  THt  INPUT  GAMMA  S  .1HE1S.G*/ 

2  *  11H  IWKIlt  *  *lPtiS.G*10H  ISPACO  *  *131 
MIN  =  IS 

LKN  S  0 
MtWlNU  MIN 
NKCU  S  U 
1UMU2  S  IUOO 
C 

wKiit(G*yyyv» 

KtAUtMlNI  Alll 
wKiit(G*yyysi  aui 
if  «Auii2s*yyy*yyy 
2s  ih i Atmi. i  yyy*Gsoo*yyy 

2SUU  CONlINUt 

NKCU  *  NKCU  ♦  1 

MtAU  IM1N)  (10(11 *1-1*12) 

wKitt(b*yyyyt  iiuiki*  ksi*12> 

NKCU  S  NKCU  ♦  1 
KEAUIM1NI  All) 

wKiit(t*yyys)  aid 
ihiA(ii«2.i  yyy*3U02*yyy 
3002  CONlINUt 

NKCU  *  NKCU  ♦  1 
32  KtAU  (MIN)  (G(l) *1*1*2) 

ih  (ANSI  I IKIN  •  Mil) l/BIl) )  .LT*  EPS)  GO  TO  11 
GO  10  IIS 
11  CONlINUt 

Ih  I ANSI (M(2)  *  GAM1N)/B(2)  )  .LI.  EPS)  LRN  *  1 
IIS  CONTINUE 

IF  (TWKITt  *LE*  0.)  1FLAGS1 

IF  (ANSI  I IWRlTt  -  0(1))/B(ll)  *LI*  EPS)  1FLAG*1 
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IF  (1FLAM.EQ.1I  <»u  10  au 
IK  =  M(ll 
U2(UI  =  U. 

NNCU  =  NHCO  ♦  1 
AA  CUNIlNUt 

NNCU  =  NNCO  ♦  1 
NtAU  (MINI  AllltA(2l 
NNCU  =  NNCU  ♦  1 
II*  (All)  ♦  4.)  AltbItAl 
Ai  CUNIlNUt 

IF  (Alii  ♦  A. I  All  JO.  HI 
HI  CUNIlNUt 

IF  (All)  ♦  6.)  AAtbZtAA 
H2  CUNIlNUt 

NtAU  (MINI  A(lltAI2) 

NNCU  =  NNCU  ♦  1 
MU  IU  AA 
Hi  CUNIlNUt 

NtAU  (MINI  Alii f  AI2I t  A(3) 

IF  ( A( 1 I  ♦  H.l  b2f3btb2 
H2  CUNIlNUt 
J  S  J  ♦  1 

IF  (J  -  1UMU2I  bltbltbV 
HV  CUNIlNUt 

l!tAU  (MINI  All)  •  A(2I  t  A(3I 
NNCU  S  NNCU  ♦  1 
IF  IAI1I  ♦  H.l  bVtAbtbV 
M  CUNIlNUt 

NNCU  S  NNCU  ♦  1 
NtAU  (MINI  IAIJMI iJMSlibl 
IF  ILNN  .Nt.  II  HU  IU  12 
1^  CUNIlNUt 

C  SPACE  TAPE  TO  IKlNt  MAMIN  POSITION  ON  INC  DIAPHANOUS  TAPE 
IF  ( 1SPACU  .LT.  Ul  00  10  1H 
■NITt  (MtVOOll  (Hllli  1SH21 

VO  111  FUNMAl  (bHMOTHt  UlAPMANUUS  TAPE  HAS  HCtN  SPACED  TO  AFTIN  THETA  *  » 
1  IPElS.Mt  AXt VH  MAMMA  S  ilPElb.O) 

HNITt  (bt  WV7I  (A(JM)f JMXliHI 
■Nllt  IbtVWHI  NNCU*  LNN 
CALL  tXIT 
1H  CUNIlNUt 

C  MNlIt  AN  tNU  OF  FILt  ON  THt  TAPE 
INU  S  -S. 

■Nllt  (MINI  TNU 

tNU  F ICt  MIN 

■NITt  (biWVSI  TNU 

■Nllt  IbtVQOAl  limit  l*it*l 

VQII3  FUNMAl  (blHOAN  ENU  UF  F ICC  *AS  PUT  ON  THE  DIAPHANOUS  TAPE  AFTCN  TH 
ItTA  s  ilPtlS.«t3Xt«H  MAMMA  ■  • IPtlS.OI 
MU  TO  1SS 
12  CONTINUE 
C 

NNCU  ■  NNCO  ♦  1 
NtAU  (MINI  Al II 
IF  (Adi  ♦  2.1  7 / 1 32 1 MW 
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4U  CUNTiNUt 

MKlIt  lb»V9VS>  lblJ)»J=K2> 

4  z  i 
MS* 

U21J)  S  U. 
bAKY ( 1 )  S  U. 

UAVtllJ  S  U. 

IK  s  bill 
bAMMA  S  bt2) 

UKCU  S  NKCD  ♦  1 
<1H  KtAUIMlN)  Allli  AC21 

imaiii  .lt.  o.)  «KiTtt*»yyva)  aid 

UX  s  All) 

UY  s  AU) 

NKCU  S  NKCU  ♦  1 
IK (UX  ♦  4.)  Jb'bb'Jb 

49  1MUX  ♦  H.)  H0’7b’HU 

HU  if  (UX  ♦  b.)  bb»Hb*bb 

Hb  KEAUIMIN)  All) *  A(2) 

»K1 IL (bt VUOU)  Allli  AU) 

UKM)  S  All) 

AMU(M)  S  A(2> 

M  =  *♦! 

UX  s  All) 

UY  =  Am 

NKCU  S  NKCD  ♦  1 

1MUX  .Lt.  U.)  8C  TO  HbUU 

ULAbl  S  UX 

AKLAST  =  UY 

bU  10  AH 

HbUU  MK1 It  lb* VUOU)  UX*  UY 
KkNlNU  tUN 
CALL  tXIT 
bb  UKM)  S  UX 
AMUIM)  S  UY 
M  S  M*l 
bU  lu  4* 

bb  KtAUIMlN)  All) *  AI2) *  AI3) 

UX  =  All) 

UY  =  Alii) 

ux  =  Am 

NKCU  s  NKCD  ♦  1 
1* IUX  ♦  H.)  7U»  7H.7U 
/U  U2IJ)  S  UX 
UMU(U)  S  UY 
IMUt J)  S  UX 
J  S  J*1 


JU  z  J-l 


lh  IJ 

VUUH  FOKMAT 


lltb. 


.LU.  DU1)  MKire  tb.VUUH)  JJ 

IH2M  2ND  bLl  Of  DIAPHANOUS  DATA  HAS  MOME  THAN  'I3»19H  EN1K 
TMtIA  s  fF7.2'»H'  SAMMAslPtlO,S>l9H»  NO  800U  ABOVE  U  *»UPfb. 


211 

1FIJ-1DMU2)  bb»bb»7X 
U  NKKklbtlb)  1DMU2»  TK»  8AMMA*  U2IJ-1) 
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73  MtAUIMlN)  till)  AI2)'  AI3) 

UA  =  All) 

UT  =  AUI 
U2  =  AU> 

NMCU  s  NMCU  ♦  1 
IMUI  ♦  <♦.)  73' 74' 73 

74  ULAS1SU2IJ-1) 

AALASl*INUIJM) 

lt>  CONIlNUt 
M  S  M  •  l 

■Milt  Ib'WbU)  IU1I1I)  ISllNI 
IKtl'AMTIl)  ,Nt>  U.)  ■Mlltlb'VOO*)  bAHT 
■Milt  lb'Wb2)  I  AMU  111'  ISl'M) 
iMUAVtll)  «NE.  U.l  ■Mi1tib'V002>  UAVE 
MtAUIMlN)  I Al JM) '  JMSl'b) 

■Miltlb'VVV/)  IAIJMI*  JMSl'b) 

1KIU2I2)  .tU.  U.)  40  TO  7b 
0  —  0*1 

■Milt  lb»Wb4)  10211)'  ISl'O) 

■Milt  tb.NVbb)  IbMUl 1 ) '  1T1.0) 

■Milt  Ib'VVbb)  I  I  Mill  1 )  '  1*1)0) 

7b  CONIlNUt 

NMCU  S  NHCU  ♦  1 

IK  ILMN  .tO«  1)  00  10  13 

MtAU  ININ)  All) 

■Ml Itlb'VVVb)  All) 

UA  =  All) 

NMU)  S  NMCU  ♦  1 
1KIUA  ♦  2.)  77'32'VVV 
7  7  1KIUA  ♦  t>.)  VVV'ISS'VW 
1SS  CONIlNUt 
C 

NMCU  S  NMCU  ♦  1 

C  IHt  AUOVt  KtCOMU  COUNT  INCLUDES  I  ME  tOK  KtCOMO 
■Milt  lb'WV4>  NMCD'  LMN 
MLMlNU  MIN 
CALL  LAI? 

VUV  CONIlNUt 

■Milt  Ib.VVUl) 

VVUl  KOMMAI  IS3H  THtMt  10  AN  EMMOM  IN  THIS  NUN.  MtRM  HAS  KEN  CALLtO*) 
CALL  MtMM 
C 

c  . .  F  0  M  M  A  T  S  MMMMMMtMMMM 

IS  KOMMAI  I42H  2 NO  SET  OK  DIAPHANOUS  UATA  HAS  NOME  THAN  13'  1«H  ENIN 
bits.  IMt! A  S  K7.2»  DH»  0AMNA=lPtl0.S»20H»  NO  0000  AMOVE  U  X  OPKb. 
31) 

VUUU  KOMMAI IVHII  ULASI  S  1PE1S.7'  3X  DHAKLASI  *  E1S.7) 

VUU2  KOMMA 1 1 1P10E12.S) 

VVbU  FOMMAI I1UH0  01  AMMAT  //  I1P1UE12.S)) 

Wbb  KOMMA I  1 11H0  AMU  AMMAT  //  llPlUtlb.S)) 

VVb4  KOMMAI  HOMO  U2  AMMAT  //I  lPll)tl2.SI ) 

VVbb  FOMMAI tllHO  MMU  AMMAT  //  tlPlOElb.S)) 

Wbb  KOMMAI I11M0  I MU  AMMAT  //  I1P1UE12.SI) 

VW«  KOMMA  1 1 1H1 ) 

WM  KOMMAI  USHO  TAPE  tUlTINO  ON  UN1VAC  110b  IS  SUCCESSFUL*  /  3SH0  TOTA 
1L  NUMbtM  OK  Mill  It  MtCOMUS  IS  '110  /  11H  LMN  DAS  *  .110) 

VVVS  KOMMAI 11 OHO  S10NAL  S  Kb.ll 
VWb  FOMMAI  I1UM1  SlteNAL  S  Fb.l) 

VVW  KOMMAI (bHU/HARSKO.b'  IX  4HMHQSlPtll.S»  2*  2HPCE11.S'  2X  2HEsE11*S' 
1  2A  SHKM0SSE11.S'  2X  bHKPLNMSEU.S'  2X  SHC10NSE11 .S»  2X  SHEbAMS 
20PKV.3) 

VVVH  FOMMAI IVHO  THEIA  S  lPEiS.7'  3X  7H6AMMA  r  tlS.7) 

WW  KOMMAI  I1HU'  12Ab) 
t  NU 
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the  run  without  rewinding  the  .ape.  These  features  are  useful  when  the  end 
of  the  DIAPHANOUS  tape  is  reached  before  a  DIAPHANOUS  run  is  finished, 
a  previous  run  is  incomplete,  or  more  data  are  to  be  added  to  the 
DIAPHANOUS  tape. 

Input  for  DAPHNE 


CARD  NO. 

INPUT  VARIABLE 

COLUMNS 

FORMAT 

1 

TKIN 

1-10 

F10.  8 

GAMIN 

11-20 

F10.  8 

TWRITE 

21-30 

F10.  8 

ISPACO 

31-32 

12 

TKIN  The  temperature  to  which  the  tape  is  spaced;  if  TKIN  is 

blank,  the  tape  is  not  spaced.  TKIN  is  in  eV 


GAMIN 


TWRITE 

ISPACO 


The  r  to  which  the  tape  is  spaced;  if  GAMIN  is  blank,  the 
tape  is  not  spaced.  F  is  the  "dimensionless  electron  degen¬ 
eracy  factor.  "  Both  GAMIN  and  TKIN  must  be  specified  to 
space  the  tape 

The  temperature  on  the  tape  at  which  editing  is  begun.  If 
TWRITE  <  0,  then  the  entire  tape  is  edited 

If  ISPACO  <  0,  then  an  end-of-file  will  be  put  on  the 
DIAPHANOUS  tape;  if  ISPACO  >0,  the  tape  is  spaced  to  the 
end  of  a  specified  temperature,  gamma  set, and  the  run  is 
terminated  without  rewinding  the  tape 


ANDIMX:  CONVERSION  OF  OPACITY  DATA  FROM  ANN  TO 
DIAPHANOUS  FORM 

The  FORTRAN  IV  ANDIMX  program  complex  was  written  to  transform 
ANN  opacity  data  (computed  by  W.  Huebner  and  D.  Koontz  at  Los  Alamos 
Scientific  Laboratory  to  DIAPHANOUS  form. 

ANN  data  tapes  are  IBM-7094  binary  tapes.  These  are  first  converted 
by  the  ANHIST  1108  machine  language  program  to  a  UNIVAC-1108  binary 
tape.  In  this  step,  none  of  the  data  present  on  the  original  ANN  tape  are 
modified;  however,  all  the  ANN  input  tape  records  are  brought  to  a  standard 
UNIVAC-1108  binary  format. 


* 
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C  0)  A  blank  CANO  SIGNIFIES  END  OF  DATA.  IF  NO  THElA- 

C  NMO  SETS  AHt  TO  Bt  DELETED*  A  BLANK  DATA  CARO  MUST 

C  FOLLOW  THE  SIX  CARDS  0ESCH1BE0  ABOVE  IN  1)  AND  it, 

C 

C  ••••••••••  WARNING  »••••»»»*! 

C  LATT  ASSUMED  .St.  100 

C  CATT  ASSUMED  TO  Bb  CLOSE  TO  A  MULTIPLE  OF  100  EV 

C  ••••••••••  ••••••••• 

c 

c 

DIMENSION  TlTLE(bOI*Bl(lH)*  INPUT  ( 10)  •  SIGNAL!  71  *B2( 11) • 1B( 13) 


1*MU(2V71)  *DTU(2V7l)  •  MU2(2V71>.  BBK1W)*  IBB<13»*  BB2(  lit 
2» THETA (1UU0) *DNS1TY ( 10U0)  (CAYTET1000) 

DIMENSION  CAYDELUOU) *  RHOOELl  1U0*2S>  •  NHHO(IOO)  *  1SAVEU00) 
1  *CAYG0N(5Q) •  HH0G0N(5U*25) 

C 

HEAL  MU*  MU2 

1NTEGEH  ANIN*  ANOUT*  DONE 


DATA  X/-10b7./*  S1GNAL/-1. *-2. ,-i. *-A. »-S. *-b, *-7./*00NE/0/* 

1  NEXT/l/*CAYT/U./*MAXHM0/2S/*ANUlMX/bHANUIMX/ 

C 

C  B2 m  AND  B2(1U)  ARE  StT  TO  2ER0  IN  CASE  ANHIST-OUTPUT-TAPES 
C  CONTAIN  JS-WOHU  FIRST  HbCOHUS  (HATHER  THAN  37-WORD  FIRST  RECORDS) 

C  AT  EACH  TtMPtRATUME-DENSITY  POINT. 

DATA  B2(V)*  B2(1U)/2«U./ 

C 

C  M  COUNTS  THE  NUMBtM  OF  TEMPtKATUHES  FOR  WHICH  DATA  ARE  TO  BE 
C  DtLLTLD. 

C  IDtLLT  COUNTS  THL  NUMBLH  OF  DENSITY  SETS  TO  BE  DELETED*  PER 
C  IEMPEHA  TURL. 

C  ISAVblMI  IS  SET  TO  NONE  IF  NO  DATA  FOR  CAVTNO(M)  IS  TO  BE  WRITTEN 
C  ON  THE  ANOIMX-OUTPUI-TAPE  ANOUT. 

C  KOUNT  COUNTS  TEMPERATURES  FOR  WHICH  DATA  ARE  TO  BE  DELETED*  AS 
C  IHLT  ARE  LOCATED  ON  AN1N. 

C  J  COUNTS  RHOPTS*  PER  TEMPERATURE*  FOR  WHICH  DATA  ARE  TO  BE  WRITTEN 
C  ON  ANU1MX-OUIPUT-TAPE  ANOUT 

C  Kd  COUNTS  TEMPERATURE-DENSITY  SETS  WRITTEN  ON  ANDIMX-OUTPUT-TAPt 
C  ANOUT 

C  JUELEI  IS  SET  10  NONE  IF  NO  DELETIONS  ARE  TO  BE  MADE  FOR  A 
C  TEMPERATURE  I HAT  IS  READ  FROM  ANIN. 

C 

DA  I A  M/U/*  1DELET/0/*  NONE/1/*  1SAVE/100  •  U/»  KOUNT/O/ 

DATA  J/U/*  KJ/1/ 

C 

UA I A  M0D1FY/6H  THESE/*  NOTDO/bH  NO  /*  EPSILN/1 .E-3/ 

DA  I A  1SAVET/0/ *  JUELET/U/*  NRHO/IOUWO/ 

C 

EUUI VALENCE  ( ANIN* INPUT »1 IT .( ANOUT *  INPUT «2 )>. UNDONE *B1 ( 1 >> * 

1  (CATT *W1(0)  I  *  (MUT1I  *OTU(  1)  I  *  ( AkT*Bl (2) > * (RH0*61(«> > * 

2TCAYTEE*  B2(1D) 

C 

READ  lb*li  (TITLEILI)*L1=1*S2) 

1  FORMAT  ( 12Ab) 

C 

MEAD  (S*2)  ANIN*ANOUT 

2  FORMAT  1 12* IX* 12) 
lF(ANlN.EO.O)  ANINSI4 
IF (ANOUT .EO.UT  ANOUT S12 

C 

WHITE  (b*3)  (TITLE(LJ) *L3S1*52) 

3  FORMAT (IX* 12Ab*  //) 

C 

WHITE  (b* B)  AN1N*AN0UT 
•  FORMAT  (BH  ANIN  S  •  12*  «H  ANOUT  s  ,  12) 

C  REW1N0  ALL  TAPES 

REWIND  ANOUT 
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KbllNU  AN1N 
KEN1NU  * 

■RlTt  (AN0UT)AN01MX.X*X 

HEAD  (AN1NI  (TiTLt(HN).*N=SJ.60) 

■Hilt  (ANOUT) ( TITLE (L2)  *L2=1 *60) 
■Hitt  (b*12)  IT11LEUN).*N=S3.6U> 
12  FORMAT  ( IX*KA6*  ////I 


■HUE  TAME  TITLE 


HtAU  ALL  DATA  CAMUS  NtCES&AHT  TO  PREVENT  SPECIF ItO  THETA-RMO  UATA 
t-HOM  bEINO  ■HllTtN  ON  ANOUT*  IMt  ANOINX  OUTPUT  TAPE* 
TEMPtHAlUHtS  NAT  bt  SPtCiFltO  IN  ANT  OROtR 
UtNSIlltS.  PtH  TtNPEHATUHE*  NAT  UE  ^CIPItD  IN  *NT  ORDER. 

IT  IS.  HObEVER*  NOHt  EFFICIENT  TO  INPUT  CEMPERATURES  IN  INCREAS1NO 
OHUtHi  ANU  UENSITItS  PtH  TEMPERATURE  IN  INCREASING  OROER*  *S 
I  HA  1  IS  TMt  OHUtH  IN  VHICM  THESE  0UANT1TIES  ARt  OHlTTEN  ON  AN1N. 

■00  CONTINUE 

MS  N  ♦  1 

HtAU  (S*500)  CATULLINI*  NHHOIN) 

SOU  FORMAT  (F10.A*  GX*  12) 

IF  ICATUEL(N)  .tO.  0.)  GO  TO  110 
IF  (NHHOIN)  .Nt.  U)  «0  TO  *0! 

NHHO(N)  .to.  0.  MtANS  UELETE  ALL  DATA  AT  THAT  TEMPERATURE. 
1SAVE(M)S  NONE 

UO  TO  ROO 


c 

c 

c 


CONTINUE 

NHHOS  NRHOIM) 

HtAU  (S.SU1 )  (HHOl)EL(N*NI )  *  M12l*NRHO) 

FONMAI  (TtlO.S: 

00  TO  bOO 

ALL  UATA  CARDS  HAVE  BEEN  HEAD 

CONTINUE  . 

IF  (M.EO.l)*  NORMAL  HUN.  NO  DELETIONS 
IF  (M  .EO.  D  N.'DIFT  s  NO  I  DO 

FOHNA  T '  1 3 1HU  ALL^AT  A  CARDS  MA «  iKjT^ATTNoT 

1BE  NAUt  (IF  NR HO. tO. 0*  DELETE  ALL  OATA  Ai  THE  INPUT  CATTNO) 

IF  (MOOIFT  .EO.  NOTOO)  00  TO  HOO 
FORMAt'V^/^IH  CATTNO  NRHO  RHONO  /) 

UO  070  M3X1.H 

■RITtS(S*bO«»)NCATUCL(N3)*  NRH0(N3)  *  «RFTOUCL.lM»**H»»  *  M^E'HN^FO0* 
SOS  FORMAT  (2X*  FlO.b*  3X*  12*  «*  1PE10.5*  /  (21X.IPE10.5) ) 

■70  CONTINUE 

■RITE  (b.50S) 


■01 

501 

■  10 

502 

SO  3 
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SUS  FOMMAT  (1H1) 

AMU  CONTINUE 

c 

c 

HEAD  (ANIN)  bl*ie*»b2»LC)*LC=1.10) 

c 

C  CAT  ft  MOKES  THE  TEMPEKATUKt  TO  BE  MAITTEN  ON  ANOUT. 

C  CAT  TEE  STOKES  THE  TEMPEKATUKE  XEAO  FAOM  ANIN  THAT  MILL  BE 
C  MK1ITEN  AS  021111  ON  ANOOT. 

C 

CAT  1 E (Kd) SCAYT 
CAT  TEE  s  CATT 
C 

CATTS  FLOAT  ( 1F1X(CATT/100.  ♦  .5  )  •  100  ) 

CAVEAT  ASSUMES  TEMPEKATUKt  .6t.  C 1UU-EPSILON) 

1CATTS  CATT 

C 

MIS  CONllNUt 

00  0  UK=1»MAXKHU 

IF  (MOO IK T  .EM.  NOTOO)  60  TO  ASO 
IK  ( 1CATT  ,t9.  ISA VET)  60  TO  ASA 

C  CHECK  TO  SEE  MMETMEK  CATT  IS  ONE  FON  MHICH  OATA  AAE  TO  BE  DELETED. 

C 

00  A*U  M2-1*M 

IK  (AMS((CAVT-CAYU£L(M2))/CATT)  .LT.  EPSlLN)  60  TO  ASO 
A2U  CONTINUE 

M2S  M 

joelets  none 

UO  10  MSU 

c 

C  A  I EMPtKATUHE  FOK  WHICH  DATA  AKE  TO  BE  DELETED  HAS  BEEN  LOCATED* 
ASU  CONTINUE 

KOUNT -  KOUNT  ♦  1 

dUELEIS  0 

IOELEU  0 

IK  ( 1 SAVE (M2)  .tO.  NONE)  60  TO  MSI 
NNKHOS  NKHO ( M2 ) 


C 


AAA  CONTINUE 

IF  (JOELET.E0.NONE  *00. 


IOELET *E0*NRH0(M2) )  60  TO  ASO 


ASS  CONTINUE 

00  AMU  MS*1*NNMM0 

IF  (AOS((KHO-KHOOEL)Ma.MS))/AHO)  *LT*  EPSILN)  60  TO  AS1 


AAU  CONTINUE 
(iO  TO  ASU 


C 

AS1  CONTINUE 

C  DELETE  THETA-AHO  OATA 
ISAVETs  CATT 

KEAO  (ANIN)  NOTUSE 
KEAO  (ANIN)  NOTUSE 

MEAU^ANlN)  NOTUSE*  NOTUSE*  CaTSOnIKOUNT)  *  KH060N (FOUNT*  IOELET) 
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go  ro  i«* 

c 

460  CONTI  HUE 

CAVEAT  ASSUMES  .Lt.  «:S=MAXNMO  DENSITIES  AT  bACH  TEMPERATURE 

theta (kjizcatt 

UNSIT T (KJ)SRhO 
■HI Tb  (21  Ml. lb«b2 

ANUIMX  OUTPUT  TAPES  ALL  HAVE  36  hORO  FIRST  HECOMUS 
HLCOHO  1  SATS  ANUIMX 

JSUM 

HEAD! AN1NI  NOTUSE 

HtAl)  (ANlNI  NMAX •  (NO (USE* 121.NMAXI  .  (DTU( 1 1  » 12 1. NMAX I 
UO  S  1=1' NMAX 

U  OF  1  2  .3  ♦  FLOAT ( l"l  I  •  .01 

MU( 1 1 =HHO*UTU( 1 1 *6.476E7/ (CAY  TEE* (U  OF  l**3»*AiTI 

CONNECTION  FOK  INDUCED  EMISSION  STILL  PRESENT. 

S  CONTINUE 

1SAVEISLATT 

■HITE  (21  NMAX. (MUdl.Ul.NMAXI 
■HITE  (6. 19)  KU.  THETA(KJ) »  DNSITT(KJ) 

IV  FONMAT  ( 14H  DATA  AT  KJ  2  .14.  12H.  FOR  CATT  S  .E12.4.6H.  RHO  =  * 
1  L12.S#  27M  HAVE  BEEN  MMIITEN  ON  DRUM.  ) 

KJSKJ*! 

14  CONTINUE 


HEAD  (ANlNI  Bl'lb. (B2(LE I »LC=1.1U1 
IF  ( 1 HO ONE  .EO.  0)  00  10  101 

CATTE(RJISCATT 
CATTEE  S  CATT 

CATT  S  FLOAT  (1F1X  (CAYT/100.  F.S)  *  100  I 
1CATTSCATI 

IF  (1CATT.NE.1SAVET  .ANU.  1SAVE(M2>  .EO.  NONE)  00  TO  460 
IF  ( 1CATT  .NE.  1SAVETI  GO  TO  102 
IF  ( 1SAVE(M2>  .EO.  NONE)  00  TO  431 

IF  (NOUIFT.EO.NOTUO  .OR.  JOELET.EG.NONE  .OR.  1UELET .E0.NRH0(M2I I 
1  00  TO  99 

00  TO  43S 

101  CONTINUE 
UONE  :  NEXT 

102  CONTINUE 

■RUE  out  all  mecorus  foh  a  given  temperature  on  the  anoimx  output 

IAPt. 

IF  (M0U1FT  .EG.  NOTDO)  GO  TO  461 

IF  (UOELET.NE.NONE  .AND.  10ELET.NE.NRH0(M2II  GO  TO  600 
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RBI  CUNT iNUt 
UO  7  1=1. J 
OACHSPACt  2 

RtAU  121  NMAX2*  <MU2(K)  .KSI.NMAX2) 

BACKSPACE  2 
BACKSPACE  2 
Ht AD  12)  BB1. XBB.BB2 
BACKSPACE  2 

•RITt  (ANOUT I  SIGNAL  <71.  X.  X 

•KITt  (ANOUT)  Bbl *  IBB  »QB2 

■RITt  (ANOUT)  NMAX2.  < MU2 (K ) . K=1 .NMAX2) 

7  CONTINUE 

RbO  CONTlNUt 

IF  ( 1SAVE (M2>  .tO.  NONE)  BBM  J)=CATOEL»M2) 

•HI Tt  lb. 20)  J.  BBKO) 

20  FORMAI  (1H0.IB.B1H  UA1A  (MHO)  SMS  HAVE  BEEN  WRITTEN  ON  AN01NX  OUT 
IPUI  TAPE  ANOUT  FOH  TEMPERATURE  Z  .F10.0.//I 
IFlUONt.tO.NtXT)  60  TO  100 
J=U 

KtWINU  2 
00  10  HIS 
W  CONTlNUt 
V  CONTlNUt 

•HI  It  (b. IS)  THETAIKJ).  (UNSITT(LM).  LMS1.2S) 

IS  FORMAI  (SON  CHANOt  MAXHH0-2S.  THERE  ARE  100  MINT  DENSITIES  AT  THET 
IAS  •  F1U.U  /37H0THE  FOLLOWING  DENSITIES  MERE  READ  1N/I1P10E10.7) > 
BVV  CONTlNUt 
CALL  MtHN 
HE  TURN 
100  CONTlNUt 

IF  (KOUNT  .NE.  N-ll  60  TO  bOl 
MMITt  (ANOUT)  S16NAL(S).  X.X 
tNU  FILE  ANOUT 
REMIND  2 
KEM1NU  AN1N 
MEMlND  ANOUT 
MHlIt  (b. 16) 

IB  FOHMAI  ( JHII1  TAKE  MHlUNG  ON  ANOUT  COMPLETED.  ) 

•KITE  (b. lb) 

lb  FOHMAI (1H1. IX. SOH  THE  ItMPtHATURtS  ANO  DENSITIES  RUT  ON  ANOUT  MERE 
1  /1H0.1MX. 16HAN1N  TEMPtMATUHE.SX. 17HAN0UT  TEMPERATURE .31.1 SHANOUT 
2DENS1TT  /} 

UO  RVB  LL=1»KJ 

MH1TE  (b. 17)  LL>  CATTt(LL).  THETA(LL) .  ONSXTT(LL) 

17  FORMAT  (BX.1B.RX.1PE14.7.VX. 1PE13.7.7X. 1PE13.7) 

BVB  CONTINUE 
WKlTt(b.lO) 

10  FORMAT  (ObHO  ANU1MX  HUN  SUCCESSFULLY  COMPLETED. 

RETUMN 

ERHOH  EXITS 

A  IEMPEMATUHE  FOR  WHICH  DATA  ARE  TO  BE  DELETED  HAS  BEEN  INPUT. 
HOWEVER.  THE  INPUT  DENSITY  CANNOT  BE  FOUND  ON  THE  ANlN  TAPE* 
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bUO  CONT INUE 

WRITE  (b.bSO)  CATUEHM2),  1  KHOUEL ( M2 •  Mb )  *  M5=1.NNRH0) 
bbU  FORMAT  IbWHl  A  TEMPERAIURE  FOR  WHICH  DATA  ARt  TO  BE  DELETED  HAS  BE 
ltN  INPUT.  /  61MO  HOWEVER *  THE  INPUT  OENSiTT  CANNOT  BE  FOUNO  ON  THE 
d  AN IN  1  APE  /  11H0  C A TULL  =  *E12.b.  lHHt  HHOUtL  SET:  *E12.b* 

4  (/J7X.EI2.b)  I 
WO  TO  «*VV 

bui  continue 

ALL  TEMPEHATURES  ON  ANIN  HAVE  BEEN  CMCCKEO  ABAINST  INPUT  TEMPERA* 

I  UHLS  FOR  WHICH  UATA  AHE  TO  BE  DELETED.  HOWEVER*  NOT  ALL  THE 
INPUT  TEMPERATURES  WERE  FOUND.  CHECK  FOR  INPUT  ERROR. 
WHITE(6*6B1I 

bbl  FORMAT (bUHl  INPUT  ERROR.  ALL  VALUES  OF  CATTNO  WERE  NOT  FOUNO  ON  A 
ININ.  ) 

WO  TO  WV9 
ENU 


146 


AFWL-TR- 67-131,  Vol  IV 


The  ANHIST  output  tape  is  next  processed  by  the  ANDIMX  program. 

Both  ANN  and  ANHIST  tapes  have  three  records  at  a  given  (temperature, 
density)  point.  The  first  contains  some  thermodynamic  data  as  well  as 
some  data  that  specify  the  type  of  calculation  done  by  the  ANN  code.  The 
ANHIST  tape  contains  a  38-word  first  record.  (ANN  tapes  contain  38  or 
fewer  words  in  the  first  record.  If  there  are  less  than  38  words,  the 
ANHIST  program  fills  the  record  with  zeros.  )  This  first  record  is  preserved 
by  the  ANDIMX  program.  The  second  record  on  the  ANN  and  ANHIST  output 
tapes  contains  data  on  the  energy  levels  and  occupation  numbers  used  in  the 
ANN  calculation  at  this  (temperature,  density)  point.  These  data  are  not 
needed  by  the  DIANE  or  radiation  transport-hydrodynamics  codes  and  are 
not  present  on  the  ANDIMX  output  tapes.  The  third  record  on  the  ANN  and 
ANHIST  output  tapes  contains  reduced  absorption  coefficients.  Both  the 
continuous  and  the  total  (i.c.  ,  the  "continuous  plus  lines")  absorption  coef¬ 
ficients  arc  present.  The  ANDIMX  program  transforms  the  reduced  absorp¬ 
tion  coefficient  to  the  form  expected  by  the  DIANE  code  by  the  formula 


MANDIMX  output 


6.476  x  107  (pn 


ANN  output 


)/ (A 


9  u3) 


where  p  is  the  density  in  gm/cc,  A  is  the  atomic  weight  in  gm/mole,  p  is 
the  absorption  coefficient,  and  u  is  the  frequency  in  units  of  hv/kT. 

On  the  ANN  and  ANHIST  output  tapes,  the  data  at  a  given  temperature 
are  arranged  in  order  of  increasing  densities.  The  DIANE  program  could 
process  these  data.  However,  the  General  Atomic  radiation  transport- 
hydrodynamics  codes  expect  to  find  opacity  data  in  decreasing  density  order 
at  a  given  temperature.  Therefore,  the  ANDIMX  code  next  re-orders  the 
data,  at  a  given  temperature,  into  a  decreasing  density  order. 

The  ANDIMX  output  tape  is  acceptable  input  to  the  DIANE  program. 

The  FORTRAN  IV  program  EDITAN  can  edit  ANHIST  output  tapes  or 
ANDIMX  output  tapes. 

The  ANHIST  program  was  written  by  J.  Clow  of  General  Atomic. 
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Input  for  ANDIMX 


CARD 

NO. 

FORMAT 

DESCRIPTION 

1-5 

12A6 

52  words  of  TITLE  information  (these  data  are 
combined  with  the  8  word  TITLE  already  on 
the  ANN  tape  (the  ANHIST  output  tape)) 

6 

12.  IX.  12 

ANIN  )  integer  variables  specifying  the 
ANOUT  f  input  and  output  tape  units.  If 

ANIN  =  0,  it  is  reset  to  14:  if  ANOUT  =0,  it 
is  reset  to  12 

7 

F10.  4,  8X.I2 

CAYDEL:  if  nonzero,  delete  data  at 

0  =  CAYDEL 

NRHO:  delete  NRHO  densities  at  8  =  CAYDEL. 
If  NRHO=0,  delete  all  densities  at  0  = 

CAYDEL 

8.9. 

etc 

7E10.  5 

RHODE L(I),  1=1,  NRHO;  the  densities  to  be 
deleted  at  0  =  CAYDEL 

(Card  types  7,  8,  9.  etc.,  are  repeated  as  required.  If  card  7  is  blank,  no 
data  are  to  be  deleted.) 

The  ANDIMX  program  produces  a  binary  output  tape. 


COMBO:  A  PROGRAM  TO  COMBINE  OPACITY  TAPES 
Purpose 

COMBO  ia  a  FORTRAN  IV  code  written  for  the  UNIVAC-1108.  Its 
purpose  is  to  select  temperature -density  data  sets  from  any  of  four  possible 
types  of  input  tapes  and  transmit  these  sets  to  one  of  two  possible  types  of 
output  tapes.  Input  tapes  for  COMBO  can  be  output  tapes  from  either 
DIAPHANOUS.  ANDIMX.  DENSER,  or  ANHIST. 

The  DENSER  and  ANDIMX  codes  have  been  incorporated  into  COMBO 
as  subroutines.  A  DLAPHANOUS-type  tape  is  first  converted  to  a  DENSER 
type  and  stored  temporarily  on  a  drum.  An  ANHIST-type  tape  is  first  con¬ 
verted  to  an  ANDIMX  type  and  similarly  stored  on  a  drum.  Thus,  all  input 
is  considered  to  be  either  DENSER  or  ANDIMX. 
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PROGRAM  COMBO ( INPUT. OUTPUT  *  T APE10.  TAPEU  * TAPEI2*TAPE13*  TAPES* 

XT APE A* TAPE7* TAPES*  TAPE5=1MPUT . TAPE6=0UTPUT ) 

COM 

PROGRAM  COMBO:  COMBINES  TEMPERATURE-DENSITY  DATA  SETS  FROM  FOUR  COM 
POSSIBLE  TYPES  OF  INPUT  TAPES.  THESE  ARE  OI APHANOUSCOM 


(BINARY) *  ANUIMX  (BINARY)*  UENSER(BCO)  AND  ANHlST  COM 
(BINARY  I •  COM 

COM 

FOUR  OR  FEHEH  INPUT  TAPES  MAY  BE  SUPPLIED  FOR  A  GIVEN  RUN.  COM 
EACH  OF  THE  FOUR  (APES  CAN  BE  ANY  ONE  OF  THE  FOUR  TYPES  COM 

MENTIONED  ABOVE.  IF  A  DIAPHANOUS  TAPE  IS  SPECIFlEO  IT  IS  COM 

F INS t  CONVEHTEU  TO  A  DENSER  TAPE  BY  SUBROUTINE  DENSER*  MHICH  COM 
IS  SIMILAR  TO  THE  DENSER  CODE*  ANO  STORED  TEMPORARILY  ON  A  COM 
DRUM.  SIMILARLY*  AN  ANHIST  TAPE  IS  FIRST  CONVERTED  TO  COM 

ANUIMX  TYPE  BY  SUBROUTINE  ANUIMX  (SIMILAR  TO  ANOIMX  COO £)  ANUCOM 
S I  OREO  ON  A  UNDP..  COM 

COM 

THU  TYPES  OF  OUTPUT  TAPES  MAY  BE  PRODUCED.  THE  FIRST  OF  COM 

THESE  IS  IDENTICAL  TO  A  DENSER  TAPE  (EXCEPT  FOR  THE  HEADER  COM 
ANU  LAST  RECORDS)  ANU  CAN  BEPROOUCEU  ONLY  IF  ALL  INPUT  TAPES  COM 
ARE  OF  DENSER  OR  DIAPHANOUS  TYPES.  I HE  SCCONO  TYPE  IS  A  COM 

BINARY  TAPE  CONSISTING  OF  TEMPERATURE-DENSITY  GROUPS  COM 

IDENTICAL  TO  THOSE  FOUND  ON  EITHER  ANUIMX  (A  RECORD  GROUPS)  COM 

OH  DENSER  (2  RECORO  GROUPS)  TAPES.  COM 

COM 

THE  FIRST  RECORD  OF  EACH  OUTPUT  TAPE  CONTAINS  EITHER  THE  COM 
HORD  * COMBO 1 '  OR  ’COMBO*’  FOLLOHED  BY  THO  DUMMY  HOROS.  COM 

COMBO I  REFERS  TO  A  BCD  DENSER  TYPE  OUTPUT  MHlLE  COMBO*  '  COM 
INDICATES  A  BINARY  ANUIMX-UENSEH  COMBINATION.  THE  SCCONO  COM 

HECOHO  IS  200  BONUS  IN  LENGTH  GIVING  THE  ID  INFORMATION  COM 

FOUND  ON  EACH  INPUT  TAPE  PRCCEEDCO  BY  THE  HORN  ’TAPE  I*  COM 

RHEME  1=1. 2. 3  OR  0.  IF  FEHEM  THAN  FOUR  TAPES  HERE  INPUT*  THE  COM 
REMAINING  HOROS  ARE  BLANK.  COM 

'  COM 


10 

20 

SO 

oo 

so 

60 

70 

AO 

90 

100 

110 

120 

ISO 

140 

ISO 

160 

170 

ISO 

190 

200 

210 

220 

230 

240 

250 

260 

270 

2G0 

290 

S00 

310 

320 
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c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THE  LAST  3  KtCOKUS  ON  AN  OUTPUT  TAPt  ARE  AS  FOLLOWS:  CON 

(1)  THE  INTtGtR  -0  FOLLOWtU  BT  OUMMT  WOROS.  COW 

(2)  A  LIST  OF  TEMPERATURE  UENSITT  PAIRS  CONTAINED  ON  THIS  COW 

TAPE  AND  THE  INPUT  TAPE  1#2>3  OR  1  FHOW  WHICH  EACH  COW 

CAH£.  COW 

(A)  THE  INTtGtR  -b  FOLLOWtU  BT  OUWWT  WORDS  UNOICATES  END  COW 
OF  TAPt)  COW 

COW 

IN  I EGER  0UNITC9)  COW 

INTEGtR  TCLASS(2»2) »CLASS(2) *P0  COW 

integer  ttpeiwdunitiwi.  uouT»iouT*POPT»TQPT»osB»ORUMt9i»TiucoM 

•  (9) • HEAD (299) .BLANK. 1UAM (60) • 101(12)  .UENSOK. AN0MIX.1021 10 ) . IU31 1UC0M 
• ) .HEAUINI2.B) *TTTPE(2*9) *SI TPEI2.9) .SOUT  COW 

REAL  MINUS7  COW 

LOGICAL  FLAG (9) »GLAG  COW 

UIWENS10N  RHO(R) * I HERR (38) . AlbOOU) .NSV(3’ 10U0 ) . ASVI2. 1000  ) .B(2)  COW 

UIWENSION  TMXI9)  COW 

UAIA  (URUM(l) . IZl»9)/3*9*  7*8/ *C0Wfl01/6HCUMB01/»C0WB02/6FIC0WB02/»  LOW 
. I T10( 1) .ISI.9I/GHTAPE  1>6HTAPE  2 . 6H  T APS  3.6HTAPE  9/.BLANK/IH  /*  COW 


.UENSOR/*HOENSER/*ANOWlX/®HAMOlWX/*EPS/l.E-G/»WlNUST/-?./»IW7/-7/  com 
UAIA  (HEAU1N(I»I).1ZI.6  )/6H0UTPUT.6H  TAPE  *6HIS  OF  . 6M0£NSER'6H  TCOW 
. TPE  . bH(BCD)  /* (HEAU1NI2. 1 ) * in  »B)/6FIOUTPUT»6h  TAPt  .6HIS  OF  .6HANC0W 
.U1MX.6H  -  C0M.6HB0  TTP.6HE  (BIN.6HARY)  /* (HEAOINI I . I ) . Iz7.8)/2«1HC0M 


.  /  COW 

UATAI (TTTPEI 1*0) » 181 *2) * Jtl *9) /6H  0IAPH.6HAN0US  »6H  AN0.3H1MX»6MC0M 
•  0EN.3HSER.6H  ANH.3HIST/.WG/-8/»M5/-S/  COW 

DATA  TMAX/1.E36/  COW 

DAI A( (TCLASSI I*U> » J=I.2> . 1*1  <  2 ) /6HUNCLAS»6HSIFIED*  6HNE1THE*  6HR  COW 

.  /  COW 

COW 

VARIABLE  DEFINITIONS  COM 

COM 

NAME  MEANING  COM 

AlbllUU)  BUFFER  UbtU  FOR  TRANSMITTING  UATA  FROM  I/P  TAPES  COM 

TO  0/P  TAPE.  COW 

ALASU  SAME  AS  IN  DENSER  COUE  COM 

ANUMIX  CONTAINS  THE  ALPHANUMERIC  WORD  'ANUIMX*  COM 

ASV(2.I000)  STORAGE  FOR  THE  ITH  TEMPERATURE  I  ASVI1.I)).  AND  COM 

THE  ITH  UENSITT  (ASV(2.I>)  PUT  OUT  ON  O/P  TAPE.  COM 

USEU  IN  SUMMAKT  PRINTOUT.  COM 

BI2)  SAME  AS  IN  DENSER  (BID  X  TEMPERATURE  >  COM 

BLANK  CONTAINS  ALPHANUMERIC  BLANK.  COM 

CLASSI2)  SECUKITT  CLASSIFICATION  AS  REAU  FROM  UATA  CARD.  COM 

COMBOl  ALPHANUMERIC  WORD  'COMOOI *  COM 

C0MB02  ALPHANUMERIC  WORO  •COWB02*  COM 

U  UUMMT  WORD  USEU  TO  SKIP  RECORDS  WHILE  READING  COM 

BINART  TAPE.  COM 

UF.NSOH  ALPHANUMERIC  WORO  'DENSER*  COM 

DRUM!*)  THE  LOGICAL  DRUM  UNITS  USEU  FOR  INTERMEDIATE  COM 

CONVERSION.  (3.9.7  AND  8).  COM 

USB  SUBSCRIPT  INDICATING  CURRENT  DRUM  BEING  USED.  COM 

EPS  AN  EPISLON  (l.E-6)  TOLERANCE  FOR  COMPAIRING  OATA  COM 

CANO  TEMPERA! JRES  TO  THOSE  READ  FROM  TAPES.  COM 

FLABI9)  FOR  EACH  I/P  TAPE*  INITALLT  .FALSE. •  SET  TRUE  IF  COM 

ENO  OF  UATA  IS  REACHED  BEFORE  EXAUSTING  SPECIFIED  COM 


330 

390 

350 

360 

370 

380 

390 

900 

980 

990 

S00 

S10 

S20 

GOO 

GSO 

TOO 

710 

BOG 

810 

820 

830 

M90 

BSO 

860 

870 

880 

890 

900 

910 

912 

919 
916 
918 

920 
922 

929 
926 
928 

930 
93J 
9,'!) 
933 
939 

935 

936 

937 

938 

939 

990 

991 

992 

993 
999 

995 

996 

• 
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i 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


olao 

HEAD (244) 
HEAUIN(2»8) 
10 

IDAM(bO) 

101(12) 

102(10) 

105(10) 

1L 

1M7 

IPG 

1SV 

HP 

JM 

K 

LlNt 

LLF 

MINUS7 

MM 

Mb 

MM 

NSV (3. 1000 1 


NTAPES 

N2 

DUNlT(4) 

MO 


H0MT 

MHO (4 ) 


HI 

H2 

STYPt (2.4) 


TCLASS(2.2) 
THERM (38) 


IMtIA 

110(4) 


IHtTA-HHO  StTS.  „„ 

INI  1 1 ALLT  FALSt  FOR  EACH  THETA-RH0  SET.  SET 
IF  ANT  THETA-RHO  SPECIFIED  IS  FOUND  ON  SOME  I/P  TAPI 
STORAGE  F OH  THE  HEAOEH  RECOHD  0/F  ON  COMBO  TAPE. 
PRINTER  HEADING  FOH  SUMMAHT  OUTPUT  LIST. 

10  WORD  ON  I/M  TAMt.  SMOULU  BE  EITHEH  'DENSER'  OR 
•ANOlMX*. 

1U  ARKAT  FOUNO  ON  ANDIMX  TYPE  TAPES. 

10  AKHAT  FOUNO  ON  DENSER  TYPE  TAPES.  EQUIVALENT  TO 
10  IN  DENSER. 

EUUI VALENT  TO  COMM  IN  DENSER. 

EUU1 VALENT  TO  12  IN  DENSER. 

length  of  thermodynamics  data  on  denser  type  tame. 

EITHER  0  OR  20. 

-I  (INTEGER) 

MAGE  COUNTER  FOR  PRINTER  0/M. 

COUNTER  ON  ASV  AND  NSV  ARRAYS. 

SUBSCRIPT  ON  TAMES. 

EUU1VALENT  TO  J  IN  DENSER. 

THt  PRESENT  LOGICAL  I/P  UNIT. 

LlNt  COUNTER  FOR  PRINTER  0/M. 

THt  NUMBER  OF  BLANK  LINES  BETWEEN  THE  LAST  PRINTED 
LlNt  AND  THE  BOTTOM  OF  THE  MAGt. 

(HEAL) 

SAMt  AS  M  IN  DENSER 

-S 

-B 

STORAGE  FOR  THt  I TH  TAPE  UNIT  (NSV(l'X))'  THE  iTH 
LOGICAL  UNIT  DESIGNATION  (NSV(2.I>)  AND  THE  ITH 
TAMt  TYPt.  (Stt  ASV) 

THt  NUMBER  OF  I/P  TAMES  »L.t.  4). 

SAMt  AS  N2  IN  DENSER. 

THE  LOGICAL  UNITS  OF  INPUT  TAMES. 

FLAG  INDICATING  TYPE  OF  SECURITY  CLASSIFICATION 

printout:  i  secret  restricted  data 

UNCLASSIFIED 
NO  HEADING 
U  COMPLETE  PRINTOUT 

1  PRINTOUT  WITH  NO  TITLES 

2  NO  PRINTOUT 

LOMER  CO  I  OFF  DENSITIES  FOR  EACH  TAPE.  IF  RHOlIXUi 
NO  IEMP. -DENSITY  PAIRS  FOR  THIS  TEMP.  ARE  TAKEN 
FROM  TAPE  I. 

UPPER  DENSITY  CUTOFF.  PRESENT  TAPE. 

LOWER  DENSITY  CUTOFF.  PREStNT  tape. 

ALPHANUMERIC  IDENTIFICATION  OF  I/P  TAPES  (EG.  IF 
TAPE  3  IS  DENSER.  STYPE(l»5)=  DEN  ANO 
ST YPE»2»3)=StH)  . 

DATA  OF  WORDS  'UNCLASSIFIED'  AND  'NEITHER* 
THERMODYNAMICS  DATA  FROM  ANOIMX  TYPE  TAPES.  SAME  A 
BB1.IBB  AND  BB2  IN  ANOIMX  CODE. 
THERM(3)=TEMPEHATURE 
THEHM(4)=0ENS1TY 

TEMPERATURE  AS  READ  FROM  DATA  CARD. 

ALPHANUMERIC  'TAPE  I*  IS  IN  TID(I). 


2 
5 

PRINT  option: 


COM 

947 

COM 

94  B 

COM 

949 

COM 

9S0 

COM 

9S1 

COM 

9S2 

COM 

953 

COM 

954 

COM 

955 

COM 

956 

COM 

957 

COM 

956 

COM 

959 

COM 

960 

COM 

961 

COM 

962 

COM 

963 

COM 

964 

COM 

965 

COM 

966 

COM 

967 

COM 

968 

COM 

969 

COM 

970 

COM 

971 

COM 

972 

COM 

973 

COM 

974 

COM 

975 

COM 

976 

COM 

977 

COM 

978 

COM 

979 

COM 

9B0 

COM 

A9UI 

COM 

0981 

COM 

C9B1 

COM 

0981 

COM 

E96I 

COM 

F9HI 

COM 

G981 

COM 

H981 

COM 

1981 

COM 

J9S1 

COM 

K981 

COM 

L981 

COM 

M981 

COM 

N981 

COM 

0981 

»  COM 

P981 

COM 

0981 

COM 

R981 

COM 

S981 

COM 

T981 

COM 

U981 
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c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


NOTES  LtAVING  POPT  AND  TOPT  8LAN*  HILL  RESULT  IN  COMPLETE 
PRINTOUT. 

U5U*1 

LOOP  10  UETEHMlNtS  TTPL  Of  TAPE  AND  CONVERTS  TO  DENSER  OR 
AND 1 MX  If  NECESSAH T. 

DO  10  l=l»NTAPtb 
ll=ITPt«l)  , 

GO  TO  (11»10«1U»12)»I1 

11  CALL  UtNSER (UNIT  til .OHUM(OSH) »  TMXi 1 ) ) 

1TPE(1)*4 

14  UN1T(1)=UKUM(DSH> 

USM*U5BU 
GO  TO  10 

12  CALL  ANOIMX (UNIT ( 1 ) .DRUM (OSH) *  TMX ( I ) ) 

T  TPL ( 1 )  *2 

SOUISl 
GO  10  14 
10  CONUNUL 

UO  lb  1=1»NTAPE5 
lb  TTPE(1)=TTPE(1>“1 

If  TTPt  1  OUTPUT  IS  SPECIFIED.  LOOP  20  INSURES  THAT  ALL  INPUT 
TAPES  AHE  Of  TTPt  1  OH  4. 

If (TOUT. EO. 2)60  10  2b 
UO  20  1=1»NTAP£S 

If (TTPEil).E0.1.0N.lVPE(ll.E0.3>  00  TO  20 
HHlTt(6.2U0)l.UNlT(l).TVPE(l) 

CALL  tXIT 
20  CONTINUE 

HEHlNU  ALL  TAPES 

2b  HEHlNU  UOUT 

UO  40  l=l»NTAPtS 
UZUNlT(l) 

40  HEHlNU  11 

HKITt  COMHO  10  RtCOHO 

GO  10(40.41) .TOUT 

40  MKllt(UOUT.SOO)COMB01.U.O 
GO  TO  42 

41  HH1TE(UOUT)COMH02.0.0 


C 

C 

C 

C 

C 

C 


CONSTRUCTION  Of  HEADER  (ID)  HECOHO 

ALSO  INSURES  THAT  FIRST  HOHO  ON  EACH  1/P  TAPE  IS  EITHER  'DENSER* 
OR  * ANUIMX' . 

42  UO  44  1*1 » 244 


COM  1200 
COM  1210 
COM  1220 
COM  1240 
COM  1240 
COM  12SC 
COP  1260 
COM  1270 
COM  1280 
COM  1290 
COM  1400 
COM  1410 
COM  1420 
COM  1425 
COM  1440 
COM  1440 
COM  1450 
COM  1460 
COM  1465 
COM  1467 
COM  1470 
COM  1480 
COM  1482 
COM  1485 
COM  1490 
COP.  1400 
COM  1410 
COM  1420 
COM  1440 
COM  1440 
COM  1450 
COM  1460 
COM  1470 
COM  1480 
COM  1490 
COM  lbOO 
COM  lblO 
COM  lb20 
COM  1540 
COM  1S40 
COM  lbSO 
COM  lbbO 
COM  lb70 
COM  lbSO 
COM  1590 
COM  1600 
COM  1610 
COM  1620 
COM  1700 
COM  1710 
COM  1720 
COM  1730 
COM  1740 
COM  1750 
COM  1760 


i 
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43  >U.AlMl)=bLANK 
DO  6u  Isi.NlAPtS 
JSITPLU) 

K=UN1 | m 
L=bl*ll-1M1 
HtAUIL)CUU(l) 

00  10145.46) .  J 
Hi  NlAIMMIU 

lMlU.tU.ANUMlX)GU  10  «7 
•Kllttb»2Ul)l.K»lU 
CALL  L*1 I 
4/  KLAU IK ) 1UAM 
UO  4b  LL-i  .bU 
4d  HtAUIL»LLI  =  lbAMILL) 

00  10  5U 

06  KEAU(K.bUU)lU.  <IU1(M)«MS1.12),N2«(I02(M).ID3(M>.MS1.n2> 
If tlU.tU.UEN50K)b0  TO  09 
■KlTttb. 202)1. K.1U 
CALL  LA11 
09  UO  51  LL=1.12 
51  HfcAUILtLUsIuULL) 

HtAU(L*13»SN2 
UO  62  LLS1.N2 
MSL«1202»LL 

N=M*1 

HtAU(M)riU2(LL> 

62  MLAUIH»=1UJILL) 

60  CONI INUL 

MNirt  IML  MtADLH  HECOHU  ON  1ME  0/P  TAPE. 

00  IOI66.6bl.TOUT 

66  0NlltlUUUT.6UlMHEAUm.lsl.200) 

OU  10  6/ 

66  HNIIEIUOUTMHEAUII)  .1  =  1.200) 

67  16VS1 

If I I0P1 <NE.U)GO  TO  63 
MHl Ttlb.200) 

CALL  6HLAUIP0) 

«Nllt<b.2U4> 

LINES 7 

HLAU  A  TtMPLHATUKL  ITHtTA)  ANO  6tT  Of  DENSITIES  '  »0*S) 

63  HEAUI6.1U1)TM£IA. (RM0I1) .1S1.NTAPES) 
tPISLPSolHETA 

If  I  THtl  A.-tQ«a*50U0.  )G0  10  96 
NKllttb.214)tHtTA 
L1NLSL1NL«.1 
OLAGs.f ALSE. 

C  flNU  THETA  ON  THE  FIRST  I/P  TAPt  ON  KHlCH  IT  EXISTS. 

C 

1TP=1 

69  If (FLAG! ITP) )  60  TO  90 


COP  1770 
COM  17HII 
COM  1  f<J  0 
COM  IbOO 
COM  1H03 
COM  1808 
COM  1U10 
COP  1 H20 
COM  1030 
COM  1040 
COM  1060 
COM  10b0 

com  iono 

COM  1090 
COM  1900 
COM  1910 
COM  1920 
COM  1930 
COP  1940 
COM  I960 
COM  19hO 
CON  1970 
COM  1990 
COM  2000 
COM  2U10 
COM  2U20 
COM  2U30 
COP  2060 
COM  2100 
COM  2110 
COM  2120 
COM  2130 
COM  2140 
COM  2150 
COM  21b0 
COM  2170 
COM  2100 
COM  21A3 
CON  2185 
COM  2190 
COM  2192 
COM  2200 
COM  2210 
COM  2220 
COP  2230 
COM  2333 
COM  2235 
COP.  2237 
C0MA2237 
COM  2238 
COM  2240 
COM  2250 
COM  2260 
COM  2270 
COM  2273 
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1MHH0UIPI.lt. 0.)60  TO  VO 

COP 

2275 

54 

KSUNirUTPI 

cop 

2260 

JStTPtUlP) 

COM 

22V0 

CALL  HHOUtT(lTP*NHO*Hl*R2) 

COP 

2295 

60  TO  160*00) • J 

COM 

2600 

c 

COM 

2603 

c 

Ht  AUS  AN01MX  TTPt  TAPES. 

COM 

2605 

c 

COM 

2607 

60 

HLAIHKIO 

COM 

2610 

IP  10 .LU . MINUS 7 ) 60  TO  62 

COM 

2620 

IPtO.tU.— J. )O0  TO  70 

COM 

2630 

NH1 tt(b*2U3)K*U 

COP 

2640 

CALL  LA  11 

COM 

2650 

62 

KtAUiKI  (THLRMU)  *1=1  *60) 

COM 

2660 

IP l lHcNM( 6) -EP f .Lt .THE t A )  60  TO  65 

COM 

26o2 

66 

UACKSPACL  K 

COM 

2664 

HACKSPACt  K 

COM 

2666 

60  ro  vo 

COP 

266A 

66 

IP ( IhlHMI 6) «6L. (THE  1 A*tPT) • ANO. fM£RM (3) .  LE.  < ThCTAaCPT ) )  60  TO  04 

COM 

2670 

61 

HLAIHKIO 

COM 

2360 

60  TO  60 

COP 

2390 

64 

IP ( 1HLMM (4) .6? .HI )  60  TO  61 

COM 

2400 

1P( )HLHM(4) .LT.H2)  60  tO  66 

COP 

2405 

IP (T0PT.NL. 0)60  TO  67 

COP 

2410 

LlNEZLlMt+V 

COM 

2412 

IMLINL.Lt. 46)60  TO  66 

COM 

2414 

LlNLSLlNt-V 

COM 

2416 

LLPS46-L1NL 

COM 

2417 

• 

IP (LLP. t6. 0)60  TO  660 

COM 

2410 

00  <>61  IS l. LLP 

COM 

2419 

661 

6N1 ) t (6*216) 

COM 

2420 

660 

CALL  SMtAO(PO) 

COM 

2421 

MN1 t L ( 6*200) 

COM 

2422 

CALL  SHLAU(PO) 

COM 

2423 

PHI 1 L (6*204 ) 

COM 

2424 

41(1  tt  (6*214)  THETA 

COM 

2425 

L1NES10 

COM 

2426 

66 

«HU  It  (6*212)  1TP*00N1T(1TP)*  ( STTPE ( 0,  XTP)  •  J*1  * 2) .  ( THEPtMU  ) .  1*1 . 30) 

COM 

2420 

67 

6H1 1 L (000 I ) 1M7*D*0*0 

COM 

2430 

<*H  1 1 1  (000 1  )  (  THtHH  ( 1 )  •  151  •  60) 

COM 

2440 

KLAOOUN.  (Alii  *1=1. N) 

COM 

2450 

HHITt (OOOT)N* (All) »X1*N) 

COP 

2460 

6LA6S.1H0L. 

COM 

2465 

60 

NSVUUSVXITP 

COM 

2470 

NSW(2*iSW)=0UN)T(lTP) 

COM 

2400 

NSW (6. 1SV ) STTTPfe( 1. ITP) 

COM 

2490 

60  TO  (6V*07)*J 

COM 

2495 

69 

ASV ( 1 • IS V ) STHEHM(6) 

COM 

2500 

ASV (2 • 1SV)STHEHM(4) 

COM 

2510 

1SVZ1SVU 

COM 

2520 

60  TO  60 

COM 

2530 

70 

HLM1N0  K 

COM 

2540 

PLA6(  1  IPX.  TRUE. 

COM 

2545 

60  TO  VO 

COM 

2550 

c 

COM 

2600 
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c 

c 


KLAUS  UttlStR  RtCOKUS  ►OK  ItMK-HMO  GROUPS* 


MU  KtAUIK*6Ul) JM»MM*ULAStl»ALASTl»Bt 1) »B(2> • IAIAM) • AM=i *9) 
IF t JM,t«.-5»G0  10  7U 


LL=2*MMO*JM-2 

IF  tUtl)-tKS.LT.TFtfcTA)GO  TO  Ml 
83  UAtKSKALt  K 
UO  10  9U 

Ml  iFtlMll»GT. tTFtt  TA-EPS1 ,ANl)«B(  1) ,LT • t TMCTAFEPSI IGO  TO  M2 
MM  HfcAU(K*6U2) (A(L) *L51*LL> 

00  10  MU 

M2  IMAUt.Ol.Kl)  GO  TO  MM 
IF tAl2).Lf.M2>  GO  TO  83 
LLL5LL+1U 

Ml  All  l  K  »  bU2 )  IAIL)  «L=11*LLL) 

IF  I  fOI'l  •  Nt  •  U I  GO  10  MM 


10-20 

lFtAt9),LU«0») 1L-M 
IF ( lL.tU.B>LXNt=LINt>3 
lFllL«LU«2U)LlNt-LlNL*b 
IF  (Llllt.Lt.MblGO  TO  81U 


LlNLSOiMt-3 

lFUL.t«.2U>LINC=LINC-2 
LLF  SMb-UNt 
IFtLLF.tU.UJGO  10  811 
DO  M12  151, OOF 
812  ■KlU.tb«21b> 

Mil  CALL  SMtAUtPOl 
■  K1  ItlbXlUD) 

CALL  SMtAUtHO) 

•  Kltt.tb.2U4) 

•IUTttb,214)THtTA 

LINtSU 

lFtiL.tU.20)LXNE=14  . 

M1U  •KlTttb.2U5)lTH,0UNlTtlTP>,tSTTF*tW.ITP)»J2l»2>»»Atl>*X-l*XD 

MM  GLAOS.TKUL. 

00  T0t8S»Bb) , TOUT  ...  . 

MS  ■KiTfc.lUOUl ,SU2)JM,MFI,ULAST1,ALAST1,H(1J,B(2) » l*IL)*l*lflll) 


00  (0  bM 

Mb  MKiTHUOUl  )  JMtMMtULASTl, ALAST1 

■1(1  IlIUOUI  >d<  1»  »M121 , tAtL>  *L=1,LLL» 

00  TO  bM 

M 7  ASV(1,1SV15B(1> 

ASV(2,1SV15A(2> 

1SV5XSVF1 
00  «0  MU 
9U  1 fK— 1 I PF 1 

IF  l  iTP.Lt.NTAPtS>GO  TO  S9 
IF tGLAO IGO  TO  92 

•KlTEtb*2U6)THtTA» tHMOt X 1 » 1SI»NTAPES1 
92  UO  91  X:i,NTAPtS 

XFI.NOT.FLAGIX) »00  TO  SO 
91  CONTINUE 

MHlTttb«2U7> 

77  MEAOIS*  IUIITMETAi  tRMO  t 1 ) » 151,  NT  APES) 


COM  2bl0 
COM  2b20 
COM  2b30 
COM  2b40 
COM  2645 
COM  2650 
COM  2bb0 
COM  2b70 
COM  2680 
COM  2b90 
COM  2700 
COM  2710 
COM  2715 
COM  2720 
COM  2730 
COM  27MO 
COM  2750 
COM  27t>0 
COM  2761 
COM  27b2 
COM  2763 
COM  276M 
COM  2765 
COM.  27bb 
COM  2767 
COM  2768 
COM  276b 
COM  2770 
COM  277X 
COM  2772 
COM  2773 
COM  2774 
C0MA2774 
C0MA2774 
C0KB2774 
COM  2775 
COM  2780 
COM  2790 
COM  2800 
COM  2810 
COM  2820 
COM  2825 
COM  2830 
COM  2840 
COM  2850 
COM  2860 
COM  2900 
COM  2910 
COM  2920 
COM  2930 
COM  2940 
COM  2950 
COM  2960 
COM  2970 
COM  2973 
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C 

c 

c 


c 

c 

c 


1M TMLlA.tO.-bUUU. )O0  TO  9b 

WN1  TUb»211)TMtTA.  (HHOll)  *1  =  1.NTAPES) 

00  TO  77 

ALL  INPUT  GROUPS  HAVL  HEEN  TRANSFERRED  TO  THE  OUTPUT  TAPE. 

4S  1SV=1SV-1 

IK  MOPI.UL.UJGO  TO  9SU 
LLK=40-LlNt 
IK  (LLK  .tU.UlGO  TO  9S1 
UO  4'j2  1-1  »LLF 
4S2  ni<1  ft  to.2101 
9S1  CALL  SMEAU1P01 
9SU  00  lu(9d#97) .TOUT 
4b  WHlTtTUUUl . SU21M8.M8. (8(11.1=1.30) 

OK 1  It (UOU I »  bU2 1 1SV < lbV » ( A (11 » 1= 1 » JO ) 

UO  4b  1-1  * lbV 

48  MK1  It (UOU I  »SU4)  (NSV(J#  11  .3=1.31 #  I  ASV ( J»D  .J=l»2> 

•Kilt (UOU I »SU2)Mb.Mb. (A(l 1.1=1.30) 

00  TO  44 

47  wXl  It (UOUI 1M0.M8. (All). 1=1.2) 

WHlItlUOUl )1SV» ( (NSV(3#1) .3=1.31 * ( ASV(3» 1) .3=1.2). 1=1 »1SV) 
•Hi TLIUOUI IMS. MS. (Alii* 1-1*27 
44  tNU  FILL  UOUT 
KlWINU  UOUT 
UO  44  1=1.NTAPES 
KSUN1T11) 

44  KtftlNU  K 

IK IP0PT.E0.21CALL  EXIT 

PK1NI0U I  OK  GROUPb  C0P1EU 

L  INK.-U 
1P0=1 

*KlfL(b»2U8) 

CALL  SMtAUlPO) 

1FIP0PI.LQ.11G0  TO  7b 

HH1 TL  ( b»2U9) UOUT # (HLAU INI  TOUT  *1) *1  —  1*0  1  *1PG 
LlNt=b 

7b  UO  7b  1=1 • 1SV 
1 1 P=NSV (1.1) 

L1NESL1NLK2 
lF(LlNt.LE.4b)G0  TO  7b 
CALL  bHLAU(PO) 

•HlIt(b#2U8) 

CALL  SMtAUlPO) 

LlNK.SU 

1FIP0PT.EQ.11G0  TO  7b 
1PG=1P0M 

WHITE (b. 209) UOUT • (HLAU INI TOUT. 3) .3=1#8)#1PG 
LlNE=b 


COM  2476 
COM  2479 
COM  2490 
COM  3000 
COM  3010 
COM  3020 
COMA3U20 
COM  3021 
COM  3022 
COM  3023 
COM  3024 
COM  3U2S 
COM  3020 
COM  3033 
COM  3040 
COM  304b 
COM  3US0 
COM  3U60 
COM  3070 
COM  3080 
COM  3090 
COM  3100 
COM  3110 
COM  3120 
COM  3130 
COM  3140 
COM  31bU 
COM  3160 
COM  3170 
COM  3200 
COM  3210 
COM  3220 
COM  3222 
COM  322b 
COM  322b 
COM  3227 
COM  3230 
COM  3240 
COM  324b 
COM  32b0 
COM  32bb 
COM  32b0 
COM  3270 
COM  3272 
COM  3280 
COM  328b 
COM  3290 
COM  3300 
COM  3310 
COM  3320 
COM  332b 


7b  WHllt(b»21U) (NSV13.1) .3=1.2) . ISTYPE<3.1TP).3=1.2) .IASV(3.1)»3=1*2>C0M  3330 

LLF=4o-LlNE  COM  3340 

IF (LLK .LO.OIGO  TO  73  COM  33b0 

UO  72  1=1 »LLF  COM  3360 
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12 

WRiTbtb*21b> 

COM 

3370 

73 

CALL  SHEAUIPO) 

COM 

33H0 

WR1 lE(b*2U8) 

COM 

3390 

CALL  EXIT 

COM 

3400 

COM 

6000 

FORMA  IS 

COM 

6010 

COM 

6020 

100 

FORMAT tlblS) 

COM 

6030 

101 

FORMA  1 ISE12.8) 

COM 

6040 

2U0  FORMA I  I J  Ml *20X*  50H0UTPUT  TAPE  WAS  SPLCIF1E0  AS  DENSER  TYPE  OUl  1APCOM 

•  E  *12.  VII  ON  UNIT  *12*20H  IS  H INAPT •  OF  IYPE  .12)  COM 

201  FORMAT ( 1H1 * 2UX * 21HF IKS  I  HLCUHO  ON  I  APE  *12*  VH  ON  UNIT  *I2*SM  WAS  COM 

•  * Ato*24H  UUT  SHOULU  Ub  'ANOIMX'.I  COM 

2U2  FORMAT  (1H1.2UX.21HF1KSI  RECORD  ON  1  APE  *12*  V||  ON  UNIT  *I2*SH  WAS  COM 

•  * Ab*24H  UUT  SHUUbJ  Ub  'DENSER* • I  COM 

203  FORMA T( lHl *2UX*2SHANU1MX  tTPb  TAPE  ON  UNIT  *12*32H  SHOULU  HAVb  -7.COM 

.  AS  F1NST  HECOHU/21 X «  tfHHUt  HAS  *1PE16.B>  COP 

204  FORMMtlHO. 35X*blHTHERM0UYNAMlCS  RECORDS  OF  TEPP.-UENS1 1 Y  GROUPS  OCOM 

•  N  OUTPUT  I APb// 10  a*  ttHl/P  TAPb* 10X  «4HUNlT  *  1  OX  *  4HTYPE*  36X  * 14HT  HbHMOUCOM 

•  YNAMKS)  COM 

2US  FORMAMlMO*  12X*  12*  14X*  12*  /X *2A6* 2X* 1P5E lb.S/ t 52X * 1P5E16. 8/ > >  COM 

20b  FORMAT UMU.1UX* TSHTHbHb  AHb  NO  T EMPER ATURE-UENSl l T  GROUPS  ON  (HLSbCOM 

.  1/P  lAPbS  FOR  TEMPbHATUHb  * 1PE14 . 7/1 IX *27HAN0  LOWbH  CUTOFF  DENSITCOF 
. ILS  « 1P4E16.7)  COM 

20/  FORMA  I IlHlflUX  *  HOMO AT  A  HAS  bLEN  bXAUSTEO  ON  ALL  1/P  TAPES*  BUI  IHbCOP 
.  UAIA  CARUS  LISIbU  bbLOW  REMAIN! I  COM 

211  FORMA  I (lHU*SX* lP5blO.il)  COM 

2UB  FORMAT (1H1)  COM 

2UV  FORMA  1 1  lHU *  4<*  x*  4  lHSUMMAK  Y  OF  OUTPUT  TAPE  GENERATED  ON  UNIT  . I2//41C0M 

■X.0A6.31X. SHPAbE  *  12//2UX * BH1 /P  T APE  * 10X* 4HUNI T* 14X .4HTYPE * 15X . 1 1HC0M 
. TEMPtRA  TURb* 1SX  *  7HUENS1T  Y/ )  COM 

210  FURMAT(lhU*22X*12*14X*12*llX*2Ab*2U0X*lPE14.7) )  COM 

212  FORMA Til HO *l2X*I2*l4A*12*7X*2Ab*2X*lPS£Ib.B/S2X* 1PSE16.B/52X * 1P4E1C0M 
.O.b*bX* 18/52X  *5i8X *1B)/S2X*S(BX* 1BI/S2X«2(8X *  IS) * 1P3E16.8/S2X*  1P5ECCM 


t 

>lo.R/S2X* 1P3E16.8) 

COM 

214 

FORMAT ( 1H0 • 30 X22H TEMPERATURE  TTHETA1  S  .1PE14.7) 

COM 

21b 

FORMAT T1H  ) 

COM 

500 

FORMA  1 (A6.2EV.4) 

COM 

501 

FORMAT  U3A6) 

COM 

502 

FORMA  1 (214*13EV.4*/( 14EV.4 ) 1 

COM 

504 

FORMAT (214*Ab*2EV.4) 

COM 

600 

FORMAT (13A6/I2* (F6.4* 12) I 

COM 

601 

FORMA  T (214* 13EV.4) 

COM 

b02 

FORMAT  U4E9.4) 

COM 

ENU 

COM 

6100 

6110 

6120 

6110 

6140 

61S0 

6160 

6170 

6180 

6190 

6200 

6210 

6220 

6230 

6240 

62S0 

6260 

6270 

62H0 

6300 

6310 

6320 

6330 

6340 

63S0 

6360 

6370 

6375 

6450 

6460 

6470 

6480 

6S00 

6S10 

6520 

8U00 
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Temperature-density  groups  to  be  transmitted  to  the  output  tape  are 
specified  Ivy  supplying  a  temperature  and  a  lower  cutoff  density  for  each 
input  tape.  Temperatures  are  supplied  in  increasing  magnitudes.  For 
each  temperature,  all  temperature -dens ity  groups  with  densities  greater 
than  the  first  lower  cutoff  density  are  transmitted  to  the  output  tape  from 
the  first  input  tape.  For  the  second  input  tape,  all  groups  with  densities 
less  than  the  first  cutoff  and  greater  than  the  second  are  transmitted,  etc. 
until  all  input  tapes  are  exhausted. 

Two  types  of  output  tapes  may  be  produced.  The  first  is  a  BCD  tape 
identical  to  a  DENSER  tape  (except  for  the  header  and  last  records)  and 
can  be  produced  only  if  all  input  tapes  are  DENSER  or  DIAPHANOUS  types 
The  second  is  a  binary  tape  consisting  of  temperature -density  groups 
identical  to  those  found  on  either  ANDIMX  tapes  (if  input  is  ANDIMX  or 
ANHIST)  or  DENSER  tapes  (if  input  is  DENSER  or  DIAPHANOUS). 

Input  for  COMBO 


Input  Data  Cards 


CARD 


NO. 

COLUMNS 

FORMAT 

DESCRIPTION 

1 

1-5 

(1615) 

15 

Number  of  input  tapes  (<4) 

6-10 

15 

Logical  unit,  first  I/P  tape 

11-15 

15 

Type*,  first  I/P  tape 

16-20 

15 

Logical  unit,  second  I/P  tape  (if 

21-25 

15 

necessary 

Type*,  second  I/P  tape 

etc. 

Type  designators:  1  DIAPHANOUS 

2  ANDIMX 

3  DENSER 

4  ANHIST 
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(continued) 


CARD 

NO. 

COLUMNS 

FORMAT 

DESCRIPTION 

2 

1-12 

(5E12.  8) 
E12.  8 

Maximum  temperature  to  copy  from 

13-24 

E 12.  8 

first  I/P  tape 

Maximum  temperature  to  copy  from 

second  I/P  tape 

NOTE:  Data  on  card  type  2  are  applicable  only  when  a  tape  is  of  type  1 
or  4  (i.  e.  ,  must  first  be  converted  to  a  type  3  or  2).  Execution 
time  can  be  reduced  by  converting  only  those  temperature- 
density  groups  with  temperatures  less  than  some  required  maxi¬ 
mum.  If  all  temperatures  are  required,  or  if  all  tapes  are  of 
type  2  or  3,  a  blank  card  will  suffice 


3 


4 


(1615) 

1-5  15 

6-10  15 


11-15  15 


16-20  15 


(2A6) 
1-12  2A6 


Logical  unit,  output  tape 
Type  of  output  tape: 

1.  BCD  (similar  to  DENSER) 

2.  Binary  (combination  of  DENSER 
and  ANDIMX  types) 

Print  option: 

0.  Complete  printout 

1.  Complete  printout  without  titles 

2.  No  printout 

Thermodynamics  print  option: 

0.  Print  thermodynamics  data  for 
each  group  copied 
1.  Do  not  print  thermodynamics 


Type  of  security  classification: 


If  UNCLASSIFIED,  UNCLASSIFIED 
DATA  will  print  at  the  top  and  bottom 
of  each  page.  If  NEITHER,  no  classifi¬ 
cation  information  will  be  printed. 

A  blank  card  or  any  other  alphanumeric 
information  will  cause  the  SECRET/RD 
clause  to  be  printed  at  the  top  and  bottom 
of  each  page 
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CARD 

NO.  COLUMNS  FORMAT  DESCRIPTION 

(5E12.  8) 

5  1-12  E12.8 

13-24  E12.8 

25-36  E12.8 

etc. 

NOTE:  A  negative  density  will  cause  the  appropriate  tape  to  be  skipped 
for  that  temperature. 

As  many  of  card  type  5  as  required  to  specify  all  temperatures 
should  be  supplied.  The  last  data  card  of  a  set  should  have 
-5000.  as  the  temperature,  signaling  end-of-data 

The  code  may  be  run  using  a  deck  setup  as  follows: 


V 

ASG 

X=2293 

V 

ASG 

A=(l  st  I/P  tape) 

V 

ASG 

B  =  (2nd  I/P  tape) 

etc. 


A  temperature  for  conversion  of  data 
A  lowest  density  to  convert  at  this 
temperature,  first  tape 
A  lowest  density  to  convert  at  this 
temperature,  second  tape 


(3)V 

ASG 

E=(output  tape) 

( 1  )VF 

ASG 

2=100000 

(2)VF 

ASG 

3=100000 

(2)VF 

ASG 

4=100000 

(2)V  F 

ASG 

7=100000 

(2  )VF 

ASG 

8=100000 

V 

XQT 

CUR 

IN 

X 

TRI 

TOC 

X 

VN 

HDG 

V 

XQT 

(DATA  CARDS) 

COMBO/A1 

1.  Drum  2  is  required  if  any  I/P  tape  is  of  ANHIST  type 

2.  One  scratch  drum  is  required  for  each  I/P  tape  of  either 
DIAPHANOUS  or  ANHIST  type.  3  being  the  first  drum  used, 

4  the  second,  etc. 

3.  Of  course,  the  output  tape  can  be  any  logical  unit  not  used  for 

I/P 

The  COMBO  Program  was  written  by  R.  Korts  of  General  Atomic. 
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SUBROUTINE  AND1MA1B1N*B0UT*TMXI 

PROGRAM  TO  CONVERT  HUEBNERS  TAKE  TO  AN  ANUT  ACCEPTABLE  FORMAT. 


UHlNINALLY  COIMU  l/T  LtW  SCMAC  1 T  JANUARY*  !Vh7 

•40111)1111  oit  JUKI  7«1'*G7*  tl»  CUM  IS  1ML  j*  10  UtLIIL  SPECIFIED 
IFPCLMAIURL-DENGI I T  UAIA 

THIS  PROGRAM  DOES  NOT  ACHltVE  THt  SAME  RtSOLTS  AS  *AN01MX* 

II  IS  A  M0UIF1CAII0N  OF  ANUIMX  !0  BE  USED  ONLT  WITH  COMBO. 

IMIS  VERSION  M0U1F  Itl)  BT  M.  KORTS.  OCT*  1S67  TO  ACI  AS  A 
SUOKOUTINt  TO  COMBO  PROGRAM. 

MOO IF  1C AT  IONS S  . 

(11  NO  OAT  A  CARDS  Rt  AD  BT  AN01MX.  AMIN  ANU  ANOUT  ARE 
SPECIFIED  AS  ARGUMENTS.  ( T ITLt 1 1 > *  1  =  1 • S2 1  IS 
SPECIFIED  IN  UAIA  STATEMENT  AS  ‘THIS  PSUU0-ANU1MX  TAPE 
GENERATED  BT  ANUIMX  SUBROUTINE  OF  COMBO*  FOLLOWED  BT 
BLANKS.  NO  IHETA-HMO  SETS  ARE  DELETED. 

( )  ALL  printer  OUTPUT  removed  except  for  frhor  messages. 

(Bl  CtR IAIN  SEC  I  IONS  OF  CODE  MELAI1NG  TO  DELETION  OF  TMt I A 

KHO  st is  have  been  removed. 

f HIS  PROGRAM  DSES  ANMlST-0U1PuT-l APES  AS  INPUT  DATA. 

THIS  PROGRAM  ASSUMES  THE  HUEBNEM-MAUE-AT-LASL  ANN  TAPE  HAS  BEEN 
CONVERTED  TO  AN  HOB  TAPE  BT  0.  CLOWS  ANM1ST  PROGRAM.  THAI 
PROGRAM  HtAD  ANN  TAPES  WITH  ANT  S12E  RECORD  IE.G. *  EITHER  *  AS” 
OR  37-WORD  FIRST  RECORD  (AT  EACH  TEMPERA IURE-DENS1TT  POINT!* 

AND  VARIABLE  SUE  SECONU  RECORDS)  ANU  PRODDCtD  LOGICAL  OUTPUT 
RECORDS  WITH  A  M1NIMDM  OF  2SA  WORDS.  THE  FINAL  RECORD  OF  IHE 
70VH  TAPE  WAS  A  4-WORJ  ALL-2ER0  RECORD.  ANMlST  CONVERTED  THIS 
TO  A  2S3-2ER0-W0R0  RECORD. 

THIS  PROGRAM  WILL  PRODUCE  AN  OUTPUT  TAPE  WHICH  HAS 

A)  A  F1KS1  RECORD  OFT  ANOIMX 

B)  A  SECONU  RECORD  OFT  GO  IDENTIFICATION  WORDS 

C)  A  SIGNAL  RECORD  OFT  -7.  (DATA  FOLLOWS  FOR  A  GIVEN 

TEMPERA  I URE-OENS ITT  POINT 

0)  A  JB  WORD  RECORD  (CAYT  IS  WORD! 3) *  RHO  IS  WORD(*OI 
E)  A  RECORD  WITH  (NMAXFll  W0MDS5  NMAX* (MUI Jl * J=1*NMAXI 

RECORDS  (C*D*ANO  E)  ARC  THEN  REPEATED.  TEMPERATURES 
ANU  DENSITIES  ARE  MONOTONIC.  TEMPERA  I UHES  ARE  LOWEST 
AT  THE  BEGINNING  OF  THE  TAPE* THE  HIGHEST  DENSITY  FOR 
A  GIVEN  TEMPERATURE  IS  THE  FIRST  OtNSHY  AT  THAT 
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C  TEMPERATURE. 

C 

C  Ft  A  SIGNAL  HtCOKQ  OF  I  -5.  SIGNIFIES  END  OF  OA1A. 

C 

C 

C 

C  coot  HILL  READ  ALL  UATA  ON  THE  ANHIST-OU I  PUT-TAPE  ANIN#  THEN 
C  PREVENT  SPECIFIED  I  INPUT-CONTROLLED)  TEMPER ATuRE-DtNSITT  DATA  PROM 

C  BEING  HH1 1  TEN  ON  THE  ANOIMX-OUTPUT-TAPE  ANOUT. 

C 

C 

c  . .  note  ****•••••• 

C  IF  USE  STANDARD  INPUT  UN1T=14*  STANDARD  OUTPUT  UNIT=12*  AND  ALL 
C  DA  I A  ARE  TO  BE  KEPT  *  ThO  BLANK  CARDS  ARE  REQUIRED  TO  END  THE  INPUT 

C  SEI  AS  SPECIFIED  BELOH 

C  ••••••••••  ••••••••*• 

c 

C  INPUT  NEEDED  IS  AT  LEAST  SEVEN  CAROS  Hi TH  THE  FOLLOHlNG 

C  INFORMATION 

C 

C  1)  S2  TITLE  HORDS  (PUNCHED  ON  5  CARDS  HilH  12  HORDS  IN  12A6 
C  FORMAT  ON  FIRST  4  TITLE  CARDS  AND  4  HORDS  IN  4 AS  FORMAT  0) 

C  FIFTH  TITLE  CARO) 

C  2)  A  CARD  SPECIFYING  THE  INPUT  IAPE  UNIT  AND  .IE  OUTPUT  TAPE  UNIT 

C  HR1TTEN  HUH  A  FORMAT  OF  ( 12’ IX’  12) 

c  if  the  inpui  tape  unit  specification  field  is  blank*  the  input 

C  tape  IS  ASSUMED  to  BE  ON  UNIT  14 

C  IF  THE  OUTPUI-  TAPE  UNIT  SPECIFICATION  FIELD  IS  Bl ANK • T HE  OUTPUT 

C  TAPE  IS  ASSUMED  TO  BE  ON  UNIT  12 

C  J)  IP  DATA  FOR  ANT  THETA-HHO  SETS  ARE  TO  BE  DELETED*  CARDS  HilH 
C  THE  FOLLOHlNG  INFORMATION  MUST  BE  INPUT 

C  A)  TEMPERA  I UHE  FOR  HHICH  DATA  ARE  TO  BE  DELETED*  ANU 

C  THE  NUMBER  OF  RHO  SETS  HHICH  ARE  TO  BE  DELETED* 

C  (IN  FORMAT  (F1Q.4*<!X*I2)>. 

C  B)  IP  NUMBER  OP  RHO  SETS  TO  BE  DELETED  IS  ZERO*  ALL 

C  DATA  FOR  THAT  TEMPERATURE  MILL  BE  DELETED. 

C  C)  IF  NUMBER  OF  RHO  SETS  TO  BE  DELETED  IS  SPECIFIED* 

C  CARDS  (IN  FORMAT  (7E10.4))  CONTAINING  THE  DENSITIES 

C  INVOLVED  MUST  FOLLOM. 

C  D)  A  BLANK  CARD  SIGNIFIES  ENU  OF  DATA.  IF  NO  THEIA- 

C  RHO  SETS  ARE  TO  BE  DELETED*  A  BLANK  DATA  CARD  MUST 

C  FOLLOM  I  HE  SIX  CARDS  DESCRIBED  ABOVE  IN  1)  A NO  2>* 

C 

C  HAMMING  MMMMM 

C  CATT  ASSUMED  .GE.  11)0 

C  CATT  ASSUMED  TO  BE  CLOSE  TO  A  MULTIPLE  OF  100  EV 

C  *****«*i>*H  *****••*•• 

C 

c 

DIMENSION  TITLE (bU )*B1(14>*  INPUT ( 10) .SIGNAL (7) *B2( 11 ) . IB ( 13) 


1 *MU(2V71 ) *UTU(2V/1 ) •  MU2(2Y71).  BBl ( 14) *  IBB(13)*  BB2(11) 

2 • THETA ( 1000 )*DNS1TT(1UU0)*CATTE( 1000) 

DIMENSION  CATOEL(IOO) •  RHODEL ( 100 *2S) *  NHHOdOOJ*  ISAVE(IOO) 
1  .CAYGON ( SO ) *  HHOGON«SO*25) 

C 
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Ht*L  MU#  MU2 

INIF.bER  din# boor 

INltOtK  ANIN#  ANOUT.  UONt 


UAIA  A/-XV67./#  ilGN»L.'-l.i*2,i-i,Mt(,i«S,i«b,i»?,/iC0N£/0/i 
1  NEXT/1/#CAVT/U./#MAXRH0/2S/#  ANU  MX/6HANUIMX/ 

UAIA(IITLEII)  #lSl#lXI/bHTHlb  P# bHSUOO-A • bHNUlMX  ibMTAPE  G*6H£N£MAT 

•  # bMLU  UT  • bHANUiMX# bit  SUbROfbHUT INC  #6H0F  COM# ?HBO/# ( TITLE 1 1 > # l S1V 

•  iVIMUlH  / 


U2iW)  ANU  BiMXU)  ANt  St  T  10  2£rO  IN  CASE  anhist-output-tapes 

tON»AAN  .XS-WORU  FIRST  KtCOHUS  (RATHER  THAN  J7-W0R0  FIRST  HECOHOSI 
AT  EACH  TEMPERA lUKt-UENSI IT  POINT, 

UAIA  U2 ( V ) •  H2 ( ID )/2*0 ,/ 


H  OOUHTS  THE  NUHIJtK  OF  ItMPEHATUMES  FOR  WHICH  DATA  ARE  TO  BE 
UtLbltU. 

lUtLtT  COUNTS  IHt  NUHbtH  OF  UENS1TT  SETS  TO  BE  DELETED#  PER 
lEMPLRAIUHt. 

ISAVL(M)  IS  SCI  To  NONt  IF  NO  DATA  FOR  CATTNO(P)  IS  TO  BE  WRITTEN 
ON  I HE  ANUIMX-0UTPU1  “TAPE  ANOUT . 

K0UN1  COUNTS  TtMPtRATURtS  FOR  WHICH  DATA  ARE  TO  BE  DELETED#  AS 
IHET  ARE  LOCAIEU  ON  AN1N. 

J  COUNTS  RHOPTS#  PER  TEMPERATURE#  FOR  WHICH  DATA  ARE  TO  BE  WRITTEN 
ON  ANUlMX-OUTPUI-TAPt  ANOUT 

KJ  COUNTS  TEMPtRATURE-UCNSlTT  SETS  WRITTEN  ON  ANUIMX-OUTPUT-TAPE 
ANOUT 

JUELET  IS  SET  TO  NONE  IF  NO  DELETIONS  ARE  TO  BE  MAU£  FOR  A 

i emperature  that  is  reau  from  anin. 


c 

C 


C 

C 

c 


c 


c 

c 


UAIA  M/0/.  IDCLEI/O/.  NONt/i/ •  ISAVt/iOO  •  (»/.  KOUNT/O/ 
DA  I A  J/U/#  KJ/1/ 


UAIA  MOUIFT/bH  THESE/#  NOTUO/jH  NO  /.  tPSlLN'l ,E-3/ 
UAIA  1SAVET/0/#  JUCLET/U/ •  NMH0/XU0*0/ 


EQUIVALENCE  I ANIN# INPUT (1)1# (ANOUT# INPUT (2) it IMUONEtBI < X) 
X(CATT#BI(4)># (MU(X)#DTU(X) ) . (AWT#BX(2)I# (RH0#B1 TV ) ) # 

2 ( CAT  TEE »  B2<X1) ) 


>» 


X  FORMA  I  ( X2A6 ) 


2  FORMAT  ( 12#  XX# 12) 


ANiNSdlN 

ANOUT-bOUT 

REwlNU  ANCUT 
REWIND  ANIN 
REWIND  2 


RCWINO  ALL  TAPES 


WRITE! ANOUT) ANDMX#X#X 

READ  (ANIN)  (TITLE (AM) .KM=bJ#60) 

WRITE  TAPE  TITLE 
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■  KlTt  (ANOUT)  (T1TL.EU.2I  >L2-l'bO) 

4C0  CON T 1NUL 

MS  M  ♦  1 

c 

41U  CONTINUt 

C  IF  (M. tO. lit  NORMAL  KUN.  NO  DELETIONS 
IF  (M  .tO.  1)  MO01FT  S  NO  I UO 
400  CONTINUt 


NcAU  (AN1N)  bl > ik « ( U2 ( LC ) > LCS1 f 1 U ) 

IF (HI ( 3) .GT.TMX)‘G0  TO  IU1 

I 

CAT  It  5I0MES  TMt *TEMFtNATUHt  TO  bE  MRITTtN  ON  ANOUT. 

CATTtt  STOKES  TM* TtMHtHATUKE  READ  FROM  ANlN  THAT  MILL  BE 
HH1ITLN  AS  U.M11)  ON  ANOUT. 

CATTETAJISCATT 
CATTtt  =  CATT 

CAT  Is  FLOAI  ( IF IX l C AT T/ 1 UO .  ♦  .5  >  •  100  ) 
iVEAf  ASSUMtS  TEMHtKATUKt  .Gt.  ( 1 UU-EPSILON) 

1CATTS  CAT! 

415  CONTINUt 

UO  N  JKS | , MAXRHO 

IF  (MUU1FY  .tU.  NOTOO)  GO  TO  450 
IF  ( 1CATT  .Ett.  1SAVET )  60  TO  434 

CH\CK  TO  SEE  MHtTHEK  CATT  IS  ONE  FOR  MH1CH  UATA  ARt  TO  BE  DELETED. 
UO  420  M2S1.N 

IF  (AbS( (CAY T~CAY0tL(M2) )/CAYT)  .LT.  EHSILN)  GO  TO  430 
420  CONTINUt 

M2S  H 

JUtLtTS  NONt 

GO  TO  4S0 


A  ItMHtHATURt  FOK  WHICH  DATA  ARE  TO  BE  DELETED  MAS  BEEN  LOCATED. 
430  CONTINUt 

MOUNTS  MOUNT  ♦  1 

JUtLEls  0 

lUtLtTS  0 

IF  ( 1SAVE(M2)  .EO.  NONt)  GO  TO  431 
UNKHOS  NHH0IM2) 

C 

434  CONTINUt 

IF  (UUtLET.EQ.NONt  .OR.  1UELET.EC.NRH0»M2) )  GO  TO  450 

435  CONTINUt 

UO  440  M3S1.NNHH0 

IF  (At)S( (RM0*KM0UEL(M2#M3) )/RHO)  ,LT.  tPSILN)  GO  TO  431 
440  CONTINUt 
GO  TO  450 
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631  C ON T  1  NUt 

C  UELETE  TmETA-HMO  DATA 

ISAVtTs  CAIT 

Kt.AU  (ANINI  NOIUSE 
Kt.AU  (AN  IN  I  NO  lUSt 
lUELETX  lUtLtT  ♦  1 

KEAU  IAN1NI  NO TUSt*  NOTUSE*  CAT60MK0UNTI .  MH060N( MOUNT » IDCLET) 

60  TO  16 
C 

6SU  continue 

CAVEAT  ASSUMES  .Lt.  2SSMAXRM0  UENSITIES  AT  tACH  TEMPERATURE 
THtTAIRJISCATT 
UNS1TV(MJIXRhO 
■KITE  (21  Bl»IB»b2 

C  ANUIMA  OUTPUT  TAPES  ALL  HAVE  38  MONO  FIRST  KECORUS 
C  KECOKU  1  SATS  ANUIMA 
C 

J=J*1 

C 

KEAU( ANINI  NOT USE 

KEAD  (ANINI  NMAA*  (NOT USE # i=l .NMAX I # (DTU( I I • jrl 'NMAX I 
C 

UO  S  IX 1' NMAX 

U  Of  I  X  .3  ♦  FLOAT ( I“1 I  •  .01 

MU(1IXKH0*DTU(1I«6.676E7/(CAYTEE*(U  OF  l«OI«AMT} 

C 

C  C0KHELT10N  FOK  1NUUCE0  EMISSION  STILL  PRESENT. 

S  CONTINUE 
C 

1SAVETSCAVT 

MK1TE  (21  *  NMAX* (MU( 1 1  *  1 21# NMAA I 

MJXKJ*1 

C 

16  CONTINUE 

c 

c 

c 

KEAU  (ANINI  Bl«lb. (U2(LCI'LCS1.1U) 

IF  ( IMUONE  .tO.  01  60  TO  101 
1F(B1 (31 .6T.TMXI60  TO  1U1 
C 

CAT TE (KJISCATT 

cat  Tee  x  catt 

CATT  x  FLOAT  ( 1F1X  (CATT/100.  ♦.S)  •  100  I 
1CATTSCATT 

IF  (1CATT.NE.1SAVET  .ANU.  I SAVE (M2 1  .E«.  NONE >  60  TO  660 
IF  ( 1CATT  ,NE.  1SAVETI  60  TO  1U2 
IF  (1SAVE(M2)  .EQ.  NONE I  60  TO  631 

IF  (MOOIFT.EO.NOTUO  .OK.  JOELET .EQ.NONE  .OR.  10ELET.E0.NRH0(M2I I 
1  60  TO  V9 

60  TO  63S 
C 

101  CONTINUE 
UONE  x  NEXT 

102  CONTINUE 
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C 

c 

c 


c 


c 


c 

c 

c 

c 


c 

c 

c 

c 


•  HI  It  UUf  ALL  HECOHUS  K)N  A  6XVLN  TEMPERATURE  ON  THE  ANOIMX  OUTPUI 

IAPt. 

It-  (MUUlFT  .tO.  NOTUU)  60  TO  *61 

IF  lJUtLtT.NE.N0Nt  .ANl).  lOELtl «NE«NNH0(M2) )  60  TO  600 
*61  CUNflNUt 
00  I  1*1. J 
BACKSPACE  2 

Hc.AU  (2)  NMAX2.  (MU21K1.KS1.NMAX2) 

BACKSPACt  2 
BACKSPACE  2 
HtAU  (2)  bUl.lUd.UU2 
BACKSPACE  2 

•  HI  ft  (ANOUT)  SIGNAL  (/).  X.  X 

•  HI  ft  (ANOUT)  UB1.  10U  . UU2 

•HlTt  (ANOUT)  NMAX2.  (MU2 (K ) , K=1 . NMAX2 ) 

7  CUNTlNUt 

*60  CUNflNUt 

IF  (1SAVE(M2>  .tO.  NUNE)  BUI (A) sCATDEL (M2) 

IF ( IJONt . tO.NLX I )  CO  TO  1UU 

HtMlNU  2 

J=U 

00  fu  *16 
66  CUNflNUt 
6  CUNflNUt 

•H lit  (6.16)  fHtTA(KJ) .  (UNSITT(LM).  LMS1.26) 

16  FOFXAT  (6UH  CHANbt  MAXHH0=26.  TMtRE  ARE  100  MANT  DENSITIES  AT  THEf 
IAS  .  t- 10.0  /37H0THE  FOLLOMlNb  DENSITIES  MERE  READ  IN/ ( 1P10E13.7) ) 
*69  CONflNUt 
CALL  MtHH 
HEIUHN 
100  CUNflNUt 

IF  IKUUNT  .Nt.  M-l)  60  TO  601 
•HITE  (ANOUT )  61GNAL(6) .  X.X 
ENU  FILt  ANOUT 
HtMlNU  2 
HtMlNU  ANlN 
HtMlNU  ANOUT 
HEIUHN 

t  H  H  0  H  EXITS 

A  f EMPtHA  lUHt  FOR  WHICH  DATA  AHE  TO  BE  DELETED  HAS  UEEN  INPUT. 
HOMtVtH.  THE  INPUT  UtNSITT  CANNOT  BE  FOUNO  ON  THE  ANlN  TAPE* 

600  CONflNUt 

WHlfE  lb. 660)  CATUELIM2).  ( HHOUEL ( M2 . MS > .  M6-1.NNRH0) 

660  FOHMAT  (6*H1  A  f tMPtRA  f UHE  FOR  WHICH  DATA  ARt  TO  Bt  OELETEO  HAS  BE 
1EN  INPU1.  /  61H0  HOWEVtH.  THE  INPUT  DENS1TT  CANNOT  BE  FOUNO  ON  fHt 

2  ANlN  TAPE  /  11H0  CAYUtL  S  .E12.6.  1*H.  HHOOEL  StT=  .E12.6. 

3  (/37X.E12.6)  ) 

60  TU  *66 


601  CONTlNUt 

ALL  TEMPERATURES  ON  ANlN  HAVE  BEEN  CHECKED  AGAINST  INPUT  TEMPERA* 
TUHtS  FOR  WHICH  DATA  ARC  TO  BE  OELETEO.  HOWEVER*  NOT  AU.  THE 
INPUT  TEMPERATURES  WtHE  FOUNO.  CHECK  FOR  INPUT  ERROR. 
WH1TE(6.6S1) 

*»1  FOMMAK60H1  INPUT  ENRON.  ALL  VALUES  OF  LAYTNO  WERE  NOT  FOUNO  ON  A 
ININ.  ) 

•0  TO  699 
ENO 
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SUBROUTINE  DENSEK(MlN#POur#  IMX) 

c 

c  diaphanous  eoitoh 

C*  ALL  DENSER  HUNS  MUST  WHITE  ON  A  TAPE  IN  EVEN  PARITY  - 
C*  THIS  IS  UONE  tlY  SPECIF T I NO  1HE  K  ANO  E  OPTIONS  ON  THE  TAPE  ASSIGN  CARO 

C  UAPHNt  WAS  ORIGINALLY  MODIFIED  ttT  L.  R.  NORRIS  TO  HEAD  A  OlAPMANCUS 

C  TAPE  ANU  MAKE  THIS  INTO  A  CONOENSED  TAPE  IN  OROEH  10  SAVE  SPACE 

.C 

C  UENSEH  * AS  MODlP'lEO  BY  H.  KURTS#  OCT.#  1V67#  TO  HE  A  SUBROUTINE 

'C  TO  COMdO. 

c 

C  THIS  PROGRAM  DOES  NOT  ACHIEVE  THE  SAME  RESULTS  AS  'DENSER* 

C  11  IS  A  M0UIF1CAI1UN  OF  DENSER  TO  BE  USED  ONLY  WITH  COMBO. 

C 

C  MIN#  MOUT  SPECIFIED  AS  SUBROUTINE  ARGUMENTS. 

C  IF1LEH 

C  1WH1TSU 

C  MEND: 1 

C 

C  WHITE  STATEMENTS#  EXCEPT  FOH  ERROR  MESSAGES#  HAVE  BEEN  REMOVED. 

C  VARIABLE  NAME  MEANING 

C 

C  *M  AUGEAS  ••• 

C  OELEPJ  UUOO)  ENERGY  CHANGE  DURING  A  TRANSITION  (EV) 

C  UELEFS  (13001  lONUAliON  POTENTIAL  OF  A  STATE  (EV) 

C  E1N  (1ST  ENLRGY  OF  GROUND  STATE  OF  AN  IONIZATION  LEVEL 

C  EPSD  (1300)  SAME  AS  EPS  IN  DIAPHANOUS 

C  FPL  (3#  3#  3)  FRACTIONAL  PERCENTAGE  COEFFICIENT  FOR  TRANSITION  BETWEEN 

C  SPLIT  CONFIGURATIONS 

c  iju  (2000)  identification  number  of  initial  state  associated  with  a 

c  transition 

C  1 SPLIT  (IS#  40) IDENTIFICATION  OF  A  SPLIT  CONFIGURATION 

C  MERGED  (IS.  40) TRUE  IF  THIS  CONFIGURATION  IS  THE  AVERAGE  OF  SOME  OTHER 
C  CONFIGURATIONS  IN  THE  TABLE 

C  MJU  (2000)  NUMBER  OF  ELECTRONS  IN  LEVEL  FROM  WHICH  ONE  IS  REMOVED  IN 

C  THIS  TRANSITION 

C  NFU  (1300)  SAME  AS  NF  IN  DIAPHANOUS 

C  NJU  (2000)  PRINCIPAL  UUANTUM  NUMBER  (OR  REDUCED  OUANTUN  NUMBER)  OF 

C  ELECTRON  REMOVED  IN  THIS  TRANSITION. 

C  NO  (6#  IS#  40)  NUMBER  OF  ELECTRONS  IN  AN  ELECTRON  LEVEL  IN  A  CONFIGURATION 

C  NHMAX  (IS)  NUMBER  OF  CONFIGURATIONS  AT  AN  IONIZATION  LEVEL 

C  NRSAVE  (1300)  CONFIGURATION  IDENTIFICATION  OF  A  STATE 

C  NSAVE  (1300)  QUANTUM  N'JMBER  Of  OUTER  ELECTRON#  IF  BEYOND  TABLE#  OF  A 

C  STATE 
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QU  (lJUU) 

QWT  (lb*  40) 

WU  ( lb*  40 I 

Ml  (lb*  40) 

W2  (lb*  40 ) 

•••  U*APM2  •  •• 
Ut  (10)1 
UtJ  (1000) 

C  (10) 

COM  (12) 

UtLE  (100) 
UtLtPJ  (2200) 
UtLEPS  (IbOU) 
UfcLl  (1001 
1Kb  (IbOOl 

tPSPHM  ( lbOO) 

LX  (100) 

LXJ  (1000) 
GAMBLK  (10) 

1J  (2200) 

MAKE2  (lbOO) 

MJ  (2200) 

NL«  (2200) 

NF  (lbOO) 

NJ  (2200) 

NLAST  (10) 

KHl  (2200) 

0  (lbOO) 

H  ( lbOO) 

Mb  (10) 
bMALLK  (1500) 
TESTj  (2200) 

TKULK  (10) 

U  (5) 

H  (b) 

UOLO  (2200) 
UKHM  (2200) 

W  (10) 

2  (10) 

•••  UIAPtR  ••• 
AMU  (1000) 

BMU  (10001 

1U  (12) 


SAME  Ab  G  IN  UIAKHANOUS 
ULGENtRACY  OF  A  CONF 1GUHAT ION 

COtFF 1C ILNTb  IN  QUADRATIC  FOK  DETERMINING  ENERGY  OF  THIS 
CONF 1GUHAT ION 

COtFF ICltNTb  IN  QUADRATIC  FOR  DETERMINING  ENERGY  OF  THIS 
CONFIGURATION 

COtFF ICltNTb  IN  QUADRATIC  FOR  DETERMINING  ENERGY  OF  THIS 
CONFIGURATION 


bAME  Ab  UEJ*  INDEXED  BY  (NF  ♦  1)  FOK  INITIAL  STATE 
PARAMETER  UE ItRMlNING  LINE  WIDTH  FOR  A  TRANSITION 
CONCLNl R A T ION  OF  AN  ELEMENT  (ATOMb/ATOM) 

COMMLNl  CAMU  IN  FORMAT  12A6 

bUM  OF  ULL1  AT  PREVIOUS  ION12ATION  LEVELS  (EV) 

ENERGY  CHANGE  DURING  A  TRANSITION  (EV) 

10NI2AT ION  POTENTIAL  OF  A  bT ATE  (EV) 

PRESbURE  I0N12ATI0N  AT  AN  I0N12AT1ON  LEVEL  (EV) 

ENERGY  OF  A  bTATt*  USUALLY  REFERRED  TO  THE  ENERGY  OF  THE 
GROUND  STATE  OF  THE  NEUTRAL  ATOP  (EV) 

ENERGY  OF  A  STATE  AFTER  REDUCTION  DUE  TO  PRESSURE  10NIZA* 

1 1ON  (EV) 

SAME  Ab  EXJ*  INDEXED  BY  (NF  ♦  1)  FOR  INITIAL  STATE 
PAHAi  lET  ER  UE  TERMINI NG  LINE  LOCATIONS  FOR  A  TRANSITION 
ARRAY  OF  GAMMA 

identification  number  of  initial  state  associated  with  a 
transition 

1UEN I  IF  1 C  AT  ION  OF  STATE  TO  BE  ELIMINATED 

NUMBER  OF  ELECTRONS  IN  LEVEL  FROM  WHICH  ONE  IS  REMOVED  IN 

THIS  TRANSITION 

ORIGINAL  IDENTIFICATION  NUMBER  OF  A  TRANSITION 
NUMBER  OF  FHtt  ELECTRONS  FOR  A  STATE 

IOTAL  QUANTUM  NUMBER  (OH  REDUCED  QUANTUM  NUMBER)  OF  ELEC* 
IRON  HEMOVtU  DURING  A  TRANSITION 

1NUEX  NUMHER  OF  LAST  STATt  IN  TABLE  FOR  AN  ELEMENT 
SIRENGIM  OF  EDGE  DUE  TO  THIS  TRANSITION 
UEGENtHACY  OF  A  STATE 

FIRST  PROPOH I IONAL  TO  LOG  POPULATION  AND  THEN  TO  POPULATION 
OF  A  SI  ATE 

first  maximum  r*  then  sum  of  h*s*  for  an  element 
population  of  a  state 

LOWEST  VALUE  OF  MU  AT  WHICH  THE  ABSORPTION  COEFFICIENT  IS 
AFFtCTEU  UY  THE  LINE  SERIES  FOR  THIS  TRANSITION 
ARRAY  OF  K( 

COEFFICIENTS  IN  GAUSSIAN  INTEGRATION 
COEFFICIENTS  IN  GAUSSIAN  INTEGRATION 
LOCATION  OF  EDGE  DUE  TO  THIS  TRANSITION  (EV/EV) 

LOWERED  EDGE  TO  APPROXIMATE  HIGH  LINES  (EV/EV)  , 

ATOMIC  WEIGHT  OF  AN  ELEMENT 
ATOMIC  NUMBER  OF  AN  ELEMENT 


ABSORPTION  COEFFICIENT  AT  A  PARTICULAR  VALUE  OF  MU(.G  ,LE. 
MU  .LE*  15)  (PER  CM) 

BOTTOM  OF  EDGE  OCCURING  AT  A  PARTICULAR  VALUE  OF  MU(MU  .GT. 

Ib) (PER  CM) 

COMMtNT  CARD 
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1MU  (lOOCI  IOP  OF  tU(»L  OCCUR ING  AT  A  PART ICULAR  VALUE  OF  U  (U>15)  (PER 

CM ) 

•••  SHtLlHA  ••• 

UEFECI  (100.  GIUUANTUM  UEFttl  INDEXED  BY  THE  IONIZATION  LEVEL  AND  L  ♦  1 

UtLEPJ  (JSOO)  SAME  AS  UtLtPJ  IN  DIAPHANOUS 

tPSO  ( 17S0 )  SAMt  AS  tPS  IN  DIAPHANOUS 

UtLtPS  (1/SO)  SAMt  AS  UELtPS  IN  OlAPHANOUS 

1JU  (JSOU)  SAMt  AS  IJ  IN  DIAPHANOUS 

IONZC  (100)  ZLORt  FUN  AN  IONIZATION  LtVEL 

L  (IV)  L  FOR  AN  ELtCTRON  LtVtL 

LIN  (10)  LtVEL  A I  WHICH  AN  ELtCTRON  IS  BEING  ADDED 

LOUT  (10)  LtVEL  AT  WHICH  AN  ELECTRON  IS  BEING  REMOVED 

MJU  (JSOO)  SAMt  AS  MJ  IN  DIAPHANOUS 

N  ON)  N  FOM  AN  ELtCTRON  LEVEL 

Ni.  (VZ.  IV)  NUMbtR  OF  ELECTRONS  PER  ELECTRON  LEVEL  IN  THE  GROUND  STATE 
OF  AN  IONIZATION  LEVEL 
MFU  (1/SO)  SAMt  AS  NF  IN  OlAPHANOUS 

NJU  (JSOO)  SAMt  AS  NJ  IN  DIAPHANOUS 

00  (1/SO)  SAMt  AS  0  IN  DIAPHANOUS 

KtAL  LONG 
HtAL  LtNGTH 
lN)EGtR  NtWID.  BLANK 
UlMtNSlON  NEW 1U ( 12 ) 

DIMENSION  10(12)  *  A(2U).  BIZ).  UKlbOli  GART(150).  AMJ(ISO). 

1  UAVE  ( ISO) »OUMMT( JO) 

UlMtNSlON  THtTA(SOOO).  X GAMMA ( 5000 ) #  RHO(SOOO) 

DIMENSION  U2 ( 1S0U )  >  UMU(ISOO).  IMUdSOO)*  COMP(IU).  IZ(10) 

UAIA  UtNSOR/GHUtNSER  / 

UAIA  IF ILE/1/ . I WR 1 T/0/ • MENU/1/ 

UAIA  INUEXA  /  1/ 

UAIA  LRN  /  1  /  *  DUMMY  /  JU*U.  / 

DATA  IFlLtl  ✓  0  /  »  BLANK  /  6H  / 

1  CONTINUE 

MENU  IF  (MENU  .EQ.  0)  ANOTHtR  SAUT  TAPE  IS  REAU 

IF  (MtNU  .NE.  0)  THE  RUN  TERMINATES 
1F1LE  IF  ( IF 1LE  .Nt.  0)  NO  END  OF  FILE  MARKER  IS  PUT  ON  AFTtR 
THIS  OlAPHANOUS  TAPt  HAS  BEtN  READ 
IF  (1F1LE  .EO.  0)  AN  END  OF  FILE  MARKER  IS  PUT  ON  AFTtR 
THIS  TAPE  HAS  btEN  READ 

I  GRIT  IF  (1WM1T  .Nt.  (!)  THE  OlAPHANOUS  INPUT  TAPE  IS  EDITED 

IF  ( I WRIT  .EO.  0) THE  DIAPHANOUS  INPUT  TAPE  IS  NOT  EDITED 


MIN  IS  THt  INPUT  TAPt  UNIT.  MIN  MUST  BE  RtAD  FOR  EVERT 

INPUT  TAPE  TO  BE  RtAD 

ALL  DENSER  TAPtS  MUST  BE  WRITTEN  IN  556  BPI  - 

THIS  IS  ACCOMPLISHED  BY  SPECIFYING  THE  H  OPTION  ON  THE  TAPE 

ASSIGNMENT  CARD 


RtAD  IS.BUOO)  NZ.  (1Z(K).  COMP (K ) .  KSI.NZ) 
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8000  FONMAI  1X2.  8X »  7(12.  2Xi  Kb. 4)) 

XtAO  (b.bOOb)  (NtbiOll).  1=1*12) 

800b  KOKMAt  (12A6) 

XtAlNl)  MlN 
IKCU  =  u 

nxcu  s  o 
1UMU2  =  lbOO 

IK  UrfXlT  ,Nt.  0) 
lHHirt  (b*999U) 

XL  AD (MIN)  All) 

IK  IAI1I )2b.999.999 
2b  lKIAIim.T  999.2bOO.999 
2b00  CONIlNUt 

NXCU  =  I JH CL)  ♦  1 

XLAU  (MIN)  (ll)( 1) • 1=1*12) 

IK  (NEblU(l)  .tQ.  BLANK)  00  TO  27 
UO  2b  1=1*12 
10(1)  =  NtbiO(i) 

28  CONIlNUt 
2/  LONtlNUt 

IK  (IKlLtl  .NE.  0)  00  10  2b 

rixllt  (M0UT.8)  DtNSOK *  ( 1UIK) *K=1*12) .  N2*  ICOMP(K) * IZ(K) *K=1*NZ> 
8  KOKMAI  ( lJAb/12* (K6.4* 12) ) 

1KCU  1  1XC0  ♦  2 
2b  CONIlNUt 

NX  Cl)  =  NX  Cl)  ♦  1 
Xt  Al)  (MIN)  All) 

IK  lltoXIT  .NL.  0) 

1AK1TL  (b.999b)  All) 

IK  I  A ( 1 ) *2. )  999*0002*999 
0002  CONdNUL 

NXCl)  =  NX  CO  ♦  1 
02  XLAU  (MIN)  (B( 1 ) • 1=1 *2 ) 

IK(Bd).OT.TMX)  00  TO  ISb 
THtTA  ( 1NUEXA) =H( 1 ) 

X0AMMA(1NI)EXA)=B(2) 

0  =  2 

M  =  b 

ULAST1  =  0. 

ALAST1  =  0. 

U2 ( 0)  =  0. 

OAXT(l)  =  U. 
l)AVt(l)  =  0. 

TK  =  0(1) 

OAKMA  =0(2) 

NXCL)  =  NXCD  ♦  1 
84  KtAU(MlN)  All)*  A(2) 

UX  =  All) 

UY  =  A (2 ) 

NXCU  =  NHCO  ♦  1 
IF (UX  ♦  8.)  8b*bb*3b 
8b  IF (UX  ♦  4.)  40 * 7b. 40 
40  IF (UX  ♦  b.)  bb*4b*5b 
4b  XLAO(MIN)  All)*  A(2) 
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IF  lUKiT  .Nt.  0) 
lMKirt  lb. 9000)  All) *  AI2) 

U1IM)  S  All) 

AMUIM)  =  AI2) 

M  =  M  ♦  1 
UX  =  All) 

UT  =  AUI 
NIICU  r  NKCO  ♦  1 
IF IUX  .Ct.  0. )  GO  TO  4500 
UCAS1  =  UX 
ULASU  =  UX 
ALAS11  =  UT 
AKLAS1  =  UT 
00  TO  34 
4500  CUNT INUt 

KtWlNU  KIN 
CAUL  tXlT 
bb  U1IM)  s  UX 
AMUIM)  =  UT 
M  =  M*1 
00  TO  34 

65  KtAOIMlN)  All)*  AI2)»  AI3) 

UX  =  All) 

UT  =  A  1 2 ) 

U2  -  A  I  5) 

NKCO  =  NKCO  ♦  1 
IF IUX  ♦  4.)  70*74. 7U 
70  U2IJ)  =  UX 
UMUIJ)  =  UT 
TMUIJ)  =  U2 
J  =  J*1 

1FIJ-1UKU2)  65*65*72 
72  CONTlNUt 

/3  Kt  AU  I M  IN )  AID*  AI2)*  All) 

UX  =  All) 

UT  -  A 12) 

U2  =  All) 

NKCO  S  NKCO  ♦  1 
IF IUX  ♦  4.)  73*74*73 

74  ULAbT=U2l J-l) 

AKLASUTMUIJ-1) 

75  CONTlNUt 
M  =  M  -  1 

IF  IUK1T  .Nt.  0) 
lOKlTt  lb.9VB0)  IU1IK) *K=b.M) 

IF  IlMKlT  .Nt.  0) 
lMKlTt  16*9902)  IAMUIK) *KSb*M) 
IF  IO«Vtll)  .Nt.  0.)  CALL  MEKR 
KtAOIMlN)  IAIJM)*  JM=1*B) 

4  FOKMAI  I1H  ) 

HHUI lNUtXA)SA{2) 

lHUtXASlNUtXA+1 

1FIU2I2)  .tU.  0.)  GO  TU  7b 

J  S  J  -  1 

IF'  U«K1T  .Nt.  0) 
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URi  TE  (br99b4)  <U2(K) rK=2r J) 

IF  (UNIT  .NL.  01 
UNITE  (br99bb)  (dMU(KI rK=2r Jl 
IF  (UNIT  .NL.  Ul 
UKUE  (br99bb)  <TMU(K) rK=2rJ) 

7b  CONTINUE 

WRITE  (MOUTr2)  Jr  Mr  ULASTlr  ALASTlr  B 1 1 1 >  b(2)*  ( A ( JM) r JM=1 .20 ) r 

1  (Ul (K) rK-brM) r  (AMU  IK ) r KSb.M) r  ( U2 ( K ) r K=2 r J ) . 

2  (BMU(K) rK=2r JI  r  (TMUtK  )  »K-2» J) 

NKCU  S  NNCO  ♦  1 

INI Jl  -  11  ♦  2  •  (M  -  SI  ♦  3  •  (J  -  1) 

1KCU2-  1NCD1  /  14 
1KCU14  =  1NCU2*  19 

IF  UNCDl  .61.  1RC014I  1RCU2-  1NCD2  ♦  1 
1HCU  =  1NCU  ♦  1  ♦  IRCU2 
KLAU  (MINI  A(l) 

IF  (UIU1.NE.0I  UNITE  (b»9996)  A(H 
UX  =  A(l) 

NNCO  =  NKCU  ♦  1 
1F(UA  ♦  2.)  77.32.999 
77  IF (UX  ♦  b.)  999.lbb.999 
lbb  CONTINUE 
C 

NKCU  =  NKCU  ♦  1 

C  1HL  AUOVt  NEC OKU  COUNT  INCLUDES  lHE  EOF  RECOND 

1F1LL1  =  1F1LE 
L0N6  =  FLOAT (NKCU)  •  .Ub2b 
LENGTH  s  FLOAT (INCO)  •  .Ubbb 
1  =  -b 

WRITE  (MUUT.2)  lr  LKNr  UUMMT 
INCU  =  1KLU  ♦  2 

0UO7  FOKMAT  (bbHOTHE  DIAPHANOUS  I  APE  HAS  BEEN  CONDENSED  SUCCESSFULLY  FK 
10M  r  F1U.2.10H  FEET  WITH.  lb.  21H  PHYSICAL  NECONUS  TO  rF9.2r/10H0F 
2EE I  fcllHrlbrlSH  PHYSICAL  HECOROS. I 
ENUF ILL  MOUT 
IF  (MENU  .LQ.  U)  60  TO  1 
REMIND  MIN 
HERlNU  MOUT 
INULXASlNULXA-l 
KLtUKN 

VV9  CONTINUE 

MKITE  ( b  r  990 1 ) 

991)1  FOKMAT  (S3H  THEKE  IS  AN  ENKOR  IN  THIS  RUN,  MERR  HAS  BEEN  CALLED.) 
CALL  MEKK 
C 

c  *••••••••••••*•«  FORMATS  ••••••••••••••••••••• 

lb  FORMA!  (42H  2NU  SET  OF  DIAPHANOUS  DATA  HAS  MORE  THAN  13.  19H  ENTK 
21ES.  THETA  =  F7.2,  flHr  GAMMAslPElO . 5r 20H.  NO  GOOO  ABOVE  U  ~  UPF6. 
31 1 

VOOO  FORMA  I (9H0  ULAST  =  1PE1S.7.  3X  BHAKLAST  *  Elb.7> 

9002  FORMAT (1P10E 12. b) 

99bO  FORMAT (10H0  Ul  ARRAY  //  (1P10E12.5)) 

99b2  FORMAT (11H0  AMU  ARRAY  //  (1P10E12.S)) 

99b 4  FORMAT d OHO  U2  ARRAY  // dP10E12.b>  > 

99bb  FORMA  T 111H0  BMU  ARRAY  //  (1P10E12.SI) 

99bb  FORMAT (11H0  TMU  ARRAY  //  (1P10E12.S)) 

9990  F'OKMATdHl) 

2  FORMA!  (214*  13E9.4 r  /  (14E9.4)) 

999b  FORMA T (10H  SIGNAL  =  Fb.l) 

9996  FORMAT (10H1  SIGNAL  2  Fb.l) 

9997  FORMAT (EH  2BARSF0.4.  IX  4HKH0=lPEU.5r  EX  2HPsEll.br  2X  2H£xEll.»* 
1  2X  bFtKKOSsEll.br  2X  6HKPLNASEll.br  2X  bHCXONsEU.b,  2X  bHCBAMS 
20PF9.3) 

9996  FORMAT (9hO  THETA  S  lPElb.7*  3X  7HBAMMA  S  Elb.7) 

9999  FORMAT  UNO*  12A6) 

END 
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SUUHOuT INt  MhOUt T(ITP»HHQ»Ri»R2) 

HOT 

10 

HOT 

20 

UtltMMlNtS  THE  UPPEK  (M2)  ANO  LOSER  (All  RANGES  FOR  RMO  ON  TAPE 

HDT 

JO 

IIP. 

HOT 

40 

HOT 

SO 

UAIA  HMAX/l.t3t»/ 

HOT 

65 

UlMtNSlON  RHOdl 

HOT 

60 

M2SKH0IITPI 

HOT 

70 

IF (IIP. 61. I) GO  10  9 

HDT 

60 

6  0*I=MMA* 

HDT 

90 

HtIUHN 

HDT 

100 

V  1 1  —  1 1 P 

HDT 

110 

*  i  l=li-i 

HOT 

120 

IF ( 1 l.LT .1)60  TO  6 

HOT 

130 

IF ( HHO (ll).LT.O.) GO  TO  • 

HDT 

140 

H1SMH0I11) 

HDT 

ISO 

HtIUHN 

RDT 

160 

ENU 

HDT 

500 

SUtJHOUllNt  sheaoi  1 ) 

►•MINIS  APPROPRI Alt  CLASSIFICATION  HEADING 

00  10  ( 10.20. 30  )» 1 
10  SKlTt<b.200> 

00  TO  30 
*0  SKI  It (b.2Ul ) 

JO  HtIUHN 

200  FORMAT (1H0.J2X.67H***  SECKET/RESTRICTED  DATA 
•  GROUP  1  •••) 

201  FORMAT (1H0.47X.40H***  UNCLASSIFIED  DATA  •  ••) 


SHD 

10 

SHD 

20 

SHD 

30 

SHD 

40 

SHD 

100 

SHD 

110 

SHD 

120 

SHD 

130 

SHD 

140 

SHD 

150 

SHD 

160 

SHD 

170 

SHD 

500 
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D1ANTC:  A  DIANE  TRANSFER  PROGRAM  (TAPE  TO  CARDS 
OR  TAPE) 

The  DLANTC  program  was  coded  to  read  a  DIANE  binary  data  tape 
file  and  do  one  of  two  input-controlled  operations:  (1)  punch  DIANE  data 
cards  or  (2)  write  a  DIANE  BCD  card-image  data  tape.  The  card  image 
tape  is  written  in  even  parity  at  556  BPI  in  IBM-compatible  BCD  format, 
and  it  may  contain  several  files  (written  by  repeated  executions  of  the 
DLANTC  program). 

The  DLANTC  program  contains  five  formatted  (BCD)  write  statements. 
They  and  their  respective  formats  are  as  follows,  where  MOUT  is  defined 
as  the  logical  tape  unit  on  which  the  output  tape  is  mounted: 

WRITE  (MOUT,  3)  IDA 

3  FORMAT(I12) 

WRITE  (MOUT,  4)(ID(II),  11=1 ,  12) 

4  FORMAT(12A6) 

The  two  above  write  statements  are  used  once  to  write  identification  data  at 
the  beginning  of  each  file  on  the  DLANTC  output  tape.  The  named  variables 
are  discussed  below’  or  are  clear  from  context. 

WRITE  (MOUT,  5)HNUT ,  FNWD 

5  FORMAT(6E12.  7) 

The  above  write  statement  is  used  to  write  the  first  of  two  records  pre¬ 
ceding  each  frequency  group. 

Name  variables  are  discussed  below. 

WRITE  (MOUT,  7)X1 ,  X2,  IX 
7  FORMAT(2E12.  7,  49X,  13,  4H  0) 

The  above  write  statement  is  used  to  write  the  second  of  two  records  pre¬ 
ceding  each  frequency  group. 

WRITE  (MOUT,  6)((BUFS(IWD),  IWD=KMIN,  KMAX ),  IX,  KK) 

6  FORMAT(6E12.  7,  IX,  13,  14) 
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The  above  write  statement  is  used  repetitively  to  write  the  data  for  each 
frequency  group. 

The  code  punches  data  cards,  if  it  does  not  write  a  card-image  tape, 
in  the  same  manner  and  with  the  same  formats  that  it  uses  to  write  the 
card-image  tape.  One  may  edit  any  file  of  the  DIANTC  card  image  output 
tape  by  using  the  EDIANE  program,  which  is  in  FORTRAN  IV  language. 

One  may  also  use  either  the  output  data  cards  or  the  output  card  image  tape 
to  write  a  binary  DIANE -format  tape  using  the  program  DIANTC,  which  is 
in  FORTRAN  IV  language. 

Input  for  DIANTC 

DIANTC  requires  no  card  input.  It  is  a  subroutine  with  two  input 
parameters,  the  meaning  of  which  follows: 

PARAMETER  VALUE  MEANING 

Variable  UNIT  specifies  the  logical  unit  on  which 

the  input  DIANE  binary  tape  is  mounted 

0  If  IBINO  =0,  the  code  assumes  the  input 

DIANE  tape  is  written  in  binary  with  a 
binary  identification  record  (ID  array), 
and  it  punches  cards 

1  If  IBINO  =1,  the  code  assumes  the  input 

DIANE  tape  is  written  in  binary  with  a 
BCD  (formatted)  identification  record, 
and  it  punches  cards 

If  IBINO  >  1  the  code  assumes  the  input 
DIANE  tape  is  written  in  binary  with  a 
binary  identification  record,  and  it  does 
one  of  two  things: 

1.  If  IBINO  =2,  the  code  writes  a  BCD 
card  image  tape  on  unit  MOUT= 

IBINO  +10=12 

>2  2.  If  IBINO  >  2,  the  code  writes  two  BCD 

card  image  tapes  on  units  MOUT= 
IBINO +10  and  MOUT2=MOUT+l 

The  code  rewinds  the  input  DIANE  binary  tape  and  the  output  BCD  tape,  if 
written,  only  when  IBINO  <  2. 


>1 


2 


UNIT 

IBINO 
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SUBROUIlNt  U1ANIC  (M*N) 


NO  EX1RA  DATA  CARDS  AHt  REWU1RE0  TO  RUN  UIANIC 


OUl HU I  CARO  ►OHM  IS  AS  FOLLOmS 


1 

112 

1-12 

IDA 

12-01011  IDENTIFICATION 
NUMBER 

2 

12  Ab 

1-72 

ID 

HEADING  FROM  IDENTIFICATION 
(HEADER)  CARD 

3 

E12.7 

1-12 

MNUT 

NUMBER  OF  FREQUENCY  GROUPS 

3 

E12.7 

13  -  24 

FNMO 

NUMBER  OF  BOMUS/FREQUENCT 
GROUP 

4 

E12.7 

1-12 

XI 

IF  XI  .lt.o.*  indicates 

THAT  THE  GRET  ABSORPTION 

coefficients  follom 

IF  X1.GT.0.*  THEN  XI  IS  I ME 
VALUE  OF  1HE  LOMER  ENU 

OF  A  FREQUENCY  BANO 

4 

E12.7 

13  -  24 

X2 

NUMBER  OF  TEMPERATURES 

S 

E12.7 

1-12 

BUFS(1*0>* 

1*0=1 

LN  THETA 

S 

E12.7 

13  -  24 

BUFS( 1*0) * 
1*0=2 

NUMBER  OF  lAD'S 

S 

btl2.7 

1ST  CARO)  BUFS11B0) * 

S  -  U  i»US3*NB0 

SUCCEED I NO 

cards: 

LN  KR*  LN  KP*  LN  TAU* 

LN  KR*  LN  KP*... 

12 

7S  -  /b 

IX 

2 -DIGIT  SEQUENCING  NUMBER* 
INDICATES  THE  ORDER 
NUMBER  OF  EACH  FREQUENCY 
GROUPING  SET 

13 

/B  -  BU 

KK 

3-OIGIT  SEQUENCING  NUMBEMI 

INDICATES  CARO  NUMBER 
BITMIN  A  PARTICULAR 
FREQUENCY  OR OUR I NO  SET 


UlMtNSION  10(12)*  BUFSUUUO) 

01  MENS  ION  10LN  M2 ) 

UA I  A  IDENT/bMBlNARY  *  SH  BCD  / 

INItGER  UNI1 
1U1NU  =  N 
UNI  I  =  M 

3  FORMA  I  (112) 

4  FORMA  I  U2Ab) 

5  F  ORMA  I  (b£12.7) 

b  FORMA) lbtl2.7*  IX  13*  14) 

7  FORMA 1 (2E12.7*  4VX  13*  4H  U) 

B  FORMAl (36H  PUNCHING  IS  COMPLETED  NO.  OF  CARDS  =  *IS) 

TOON  FORMAT  )4bM  THE  CARD  COUNT  DOES  NOT  INCLUDE  THE  RUN  CARO.) 

70UU  FORMAT  U12*l2Ab)  ^  ^  ... 

7001  FORMAT  11HQ*23X*2«H  01ANTC*  RUN  ON  UNIT»13*b«  KITH  »Ab*4SM  TA**E  ID 
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ltNl IK  1C* I ION, 
IF  llblNO 
II-  llblNO 


CUMHLtTtU  SUCCtSSFULLT./lHll 
.tU.  II  MtAU  I  UN  IT,  70  00)  10*.  I10III,  1  =  1,12) 
•tO.  01  Ht«U  l UNIT)  1UA,  IIUII),  iXl'121 


S****1’  *K1,e  OAHU  IMAM.  (bCO)  TAPE  ON  UNIT  M0UT=IB1N0*10 
1LJtblN°  *bT‘  21  *Mllfc  Btu  ,C*RU  IMAM)  TAPES  ON  UNITS 
MOur  -  lbINO+10  ANU  M0UI2  S  MOUlFl. 


II-  llblNO  .61  •  II  60  TO  100 
HUNCH  Jf  10A 
HUNCH  6 »  IlDllli  1=1,121 
1U1  CUNTlNUt 

HfcAU  I UNI  I )  HNUI ,  FNNU 

*►  C IbINU  .61.  1)  60  10  102 
HUNCH  b»  HNUT ,  FNWU 
106  CUNTlNUt 
NMU  =  FNMU 
NVtCtb  =  HNUI  ♦  1. 

1H  INMU  .61 *  10001  CALL  DUMP 
XX-  FNMU/b. 

XX=  NMU/ 6 

AX=  KX 

1FIXX.6I.AXI  KXS  AX*  1 
UU  20  1=1,  NVtCtS 

IX  =  1 

KtAU  (UNIT  I  XI,  X2 

IF  llblNO  .61.  1)  60  TO  106 
HUNCH  7,  XI,  X2,  IX 
60  IU  10b 

106  CUNTlNUt 

MK1TL  I MOUT , 7 )  XI,  X2,  IX 

IF  (MUUI2.6T • 16)  MRIlt  (MOUT 2, 7}  XI,  X2,  IX 

10b  CUNTlNUt 

HtAU  I UNI  I )  IBUFSIIMOI,  1*0  8  1,  NNO) 

A MAX  S  0 
UU  10  A=1,KX 
KK  =  ft 

AMIN  =  KMAX  ♦  1 
AMAX  X  AMAX  ♦  b 

IF  ( IblNO  .6),  1)  60  10  10b 
HUNCH  b,  I IbUFbl 1MD) ,  INUXXMIN.KMAX),  IX,  AAI 
60  10  10/ 

10b  CONI iNUt 

MMHt  I  MOUT, b)  UbUFSIlMU)flMOXKMlN,KMAXI,  IX,  KA) 

1  1*■K|[MOUI2•,*T•4*,  ««0«T2*b)  (bUFSIIWU) ,  1HUSRM1N,KMAX)  ,  I*, 

107  CONTlNUt 
10  CUNTlNUt 
20  CUNTlNUt 

NUC  X  NVtCCS  *  IKX+1 )  ♦  6 
IF  llblNO  ,61*  1)  60  10  120 
*HlTtlb,6l  NOC 
MHUt  (b./OUV) 
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Kt»lNU  UN 11 

OKI  It  (O*/001)  UNlli  lUtNT  (  ItJINU*  1 ) 

KtIUHN 

c 

•  c 

1 UU  LUNIlNUt 

MUU I -  IB1NU  ♦  1U 

MUUU:  MOOT  ♦  1 

NtAU  (UNI  I  )  IDA*  llUIHi  1  =  1*12) 

•Kilt  (MUUT*J)  1UA 

IK  (MUUI2.0T.1J)  MK 1  1 1  (MUUT2 *  J)  IDA 
•Kilt  (M0UT*4)  ( 1U ( 1 I ) •  11=1*12) 

IK  (MUUI2.0T.1J/  WKlIt  ( MOU  T  2  *  4 )  1 1D( 1 1 ) *  1 1=1 • 12) 

OU  1U  1U1 
C 

1U2  LONIlNUt 

MKHt  ( MUUT  *  b )  MNUT  *  K  NHL) 

IK  (MUUI2.0T.1J)  OKI  It  (M0UT2  *t»)  MNUT »  FNWU 
OU  IU  1UJ 
C 

120  LUNllNUt 

tNU  KILt  MUU  I 

IK  (MUUI2.0T.1J)  tNU  KILt  M0UI2 
IK  ( 1U1NU  .t«.  2)  Ktmnu  UNI  1 
IK  ( IblNO.tQ.  2)  KtHINU  MUUT 
MKlTt  (b*  ’002)  UNIT*  MUUT 

7002  KOKMAI  (2BM0UIANTC*  INPUT  I  APE  ON  UNIT  *13*  25M*  COMPLtTEO  SUCCtbb 
1KULLT.  /  44H  A  BtU  UATA  TAPt  WAS  WHITTEN  UN  UNIT  MUUT  =  *13) 

IK  (MUU12.0T • 1 J)  WKlIt  (b*  700J)  M0UT2 
700 J  KOKMAI  IbHM  A  SEtONU  COPT  UK  TMt  BCD  DATA  TAPE  WAS  WRITTEN  ON  UNI  I 
1  MUUT 2  =  *13) 

WKirt  (b*  7004)  ( 1U( 1 1) » 1 1  =  1*12 ) 

7004  KOKMAI  (14H  10  KtCOKU  IS  *SA*  12Ab> 

KtIUKN 

tNU 
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C 

c 

c 

c 

c 

c 

c 

c 

L 

t 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  U1 ANCT  <M»N) 


•••••■ARN1NG  -  THIS  PHUGHAM  ALLOTS  ONLY  17  DENSITY  SETS  PER 
THETA  SET#  2S  I  HE  T  A  SETS  HER  FREQUENCY  GHOUP. 
DIMENSION  TMETAKT2BI.  NUMBER <  1  7  J  #  JHH0<2S,17J 


IHE  lnthik  array  stores  ln  thetak 
REAL  LNl HTK (25) 


UAIA  TEST/1, E-4/#  LN/U/ #  KOUNT/1/#  XX2/0./ 


utLtfl0NS  AT  A  GIVEN  THETA  ARE  SPECIFIED  IN  ORDER  OH 
DECREASING  RHO.  THAI  IS*  THE  FIRST  RHU  SET  TO  BE  DELETED  AT 
A  GIVEN  THETA  MUST  HE  THAI  FOR  THE  HIGHEST  RMO. 


ULSCKIPIION  OF  INPUT  CAHUS  CONTROLLING  DELETIONS  OH  THETA-RHO 

rUIN I i 


IT  BLANK  INPUT  CARD  IS  USED#  NO  DELETIONS#  DO  NORMAL  DIANCT  RUN. 
OTHERWISE  READ  DELETION  CAHUS  UNTIL  A  BLANK  CARD  IS  HEAD. 

READ  ONE  INPUT  CARD  PER  MODIFIED  THETA  SET  . 


COLUMNS  FORMAT  VARIABLE  NAME  MEANING 


WU  £10. 6  IHETAKT  1C I 

U-IH  12  NM 


TEMPERATURE  at  bmich  data  is  to  be 
DELETED 

NUMBER  OH  DENSITY  SETS  TO  BE 
DELETED 
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IF  ( THt T  AK (1C ) .EG.-THETAK ( }C ) ) » 
DELE  It  tNTtHt  IHETA-HHO  StT 
( NUMBtH  OF  HHO  SETS  TO  BE 
OELEIED  MUST  Bt  SPECIFIED) 

IF  (THtTAKdC).EQ.O..  1C.E0.D. 

DO  NOT  UtLETt  ANY  POINTS 
IF  (THtTAKdC)  .EO.O..  IC.GT.ll* 
00  NOT  UtLETt  ANT  MORE  POlNlS 

17-lb.  22( 12.  JRhO(lC.J)  1ST .2ND. . . . »*)TH» . . . .NM-TM  NUMBERtU 

20-21.  IX)  RHOdC)  SETS  TO  BE  OELETEO 

....  (IF  ENURE  THETA  SET  IS  TO  BE 

b2-b3  OELETEO.  THESE  NttO  NOT  BE 

SPECIFIED) 

UIMtNSlON  lOtNt (2) 

DATA  IDtN I /6MB IN AH T . SH  BCD  / 

INltGtR  UNIT 
UNI  I  =  M 
1U1N0  =  N 
MIN-  5 

IF  ( 1B1N0  .Lt.  1)  GO  TO  400 
MIN-  IBiNU  ♦  1U 

IblNU-  0 

N-  0 

400  CONTINUt 

4  FORMAT  ( 12Ao ) 

5  FORMA1  (bE!2.7) 
b  FORMAT  (112) 

7000  FORMAT  (112. 12Ab ) 

7001  FORMA  I  ( 1H0  >2bX  t 1VHU1 AnC T •  RUN  ON  UNIT. IS. 6H  WITH  .A6.4SH  TAPE  lOt 
INI 1F1CAT1 ON .  COMPLETED  SUCLtSSFOLLT . / 1H1 ) 

7002  FORMAT  (2BH  NWU.G1.1000  .OR.  HNU.GE.O.  ) 

C 

WMlTt  (b. 7004) 

7004  FORMA  I  (4JH1BEGIN  U1ANCT.  THE  FOLLOWING  DATA  IS  INPUT  .///) 

C 

C  HEAU  INPUT  CAMUS  CONTROLLING  OELtTlONS  OF  THETA-RHO  POINTS. 

UO  700  IC=1»2S 

Ht AU  (S.700S)  TMETAK(IC).  NM.  (JRHOdC.J).  J=1.NM) 

700 J  FORMAI  (E10.6.  2X.  12.  2X.  17(12. IX)  ) 

NUMRtHdOS  NM 

IF  (THtTAKdC) )  51.701.S2 

51  CONTINUt 

XX2-  XX2  ♦  1. 

LN-  LN  ♦  2 

52  CONTINUt 

LN=  LN  ♦  3  •  NUMbtR(IC) 

LN1HTK  ( IDs  ALOb(ABS(  IHtTAMICIIl 
C 

WRITE  (b.  700S)  1L.  THEIAK(IC).  LNTMTK(IC).  NM.  (JRHOdC.U). 

1  U=l. NM) 

7005  FORMAT  ( lUHOTHt TA  StT  .12  /10H  THETAK  =  »tl2.6.  UH.  LNTHTK  s  . 

1  tI2.b.  2SH.  OtLETE  THE  FOLLOWING  .12.  14H  RHO  SET(S)  -  » 

2  10 ( 12. 2X)  /  (B4X.  10(12. 2X))  ) 

C 

700  CONTINUE 
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1C=  2S 

701  CONIiNUt 
C 

C  1C1  COUNIS  THE  NUMBtR  OF  TEMPERATURES  FOR  WHICH  DENSITY  SETS  ARE 
C  10  bt  KEMQVEU. 

1C1=  1C  -  1 

C 

HEAD  (MlN.b)  IDA 

KEAU  (M1N.4)  (10(1).  1=1.12) 

It-  ( 1U1N0  .tU.  1)  WHITE  (UNIT  1 7000)  1UA.  IIOUU  1  =  1.12) 

IF  (1U1NU  .to.  0)  WHITE  (UNIT)  IDA.  IIUIII.  1=1.12) 

HEAD  (M1N.S)  HNU1.  FNWU 
NWU=  IF1X1FNWO  ♦  .b) 

IF  l WIN  .EQ.  S)  GO  TO  403 


xx= 

FNWU/6 

KX= 

NWU/b 

AX  = 

KX 

IF  (XX  .GT.  AX)  KX=  KXF1 

403  CON  T 1 Nut 

C  LN  IS  1 HE  TOTAL  NUMULK  OF  CELLS  IN  THE  BUFS  ARRAY  THAT  ARE  TO  Bt 
C  HEMOVtU. 

NtWN*U=  NwU  -  LN 

FFNWU=  FLOAT (NEWNWU) 

•HllE  (UNIT)  HNU1.  FFNWU 
■Kilt  (b. 7006)  LN.  NEWNWU 

700b  FOKMA1  (SSHOLN  IS  THE  IOTAL  NUMBER  OF  POINTS  TO  BE  REMOVED.  LN  = 
1.  14.23H.  NEWNWU  =  NWU  -  LN  =  .  14) 

NVECES  =  HNUT  4  1. 

IF  (NWU. GT. 1000)  GO  TO  40 
UO  200  1  =  1.  NVECES 
KEAU  (MIN. S )  XI. X2 
X2=  XU  -  XX2 

WM lit  (b./012)  XX2.X2 

7012  FOKMAl  ( 1 18H1XX2  IS  THE  TOlAL  NUMOER  OF  IEMPERATURE  SETS  TO  BE  HEM 
10VEU.  X2  IS  THE  NUMBEK  OF  TEMPERA TUNE  SETS  PER  FREOUENCT  GROUP.  / 
H/H  XX2  =  .F12.3.  10X.  bH  X2  =  . F12.3) 

WRITE  (UNIT)  XI • X2 

IF  (MIN  .NE.  S)  GO  TO  401 
KtAU  (MIN'S)  (BUFS ( 1 WU) • 1 WU=1 . NWU) 

GO  (0  402 

401  CONTINUE 

KMAX=  0 

UO  404  K=1.KX 

KM1N=  KMAX  4  1 

KMAX=  KMAX  4  b 

HEAU  (MIN.409)  ( (BUFS( 1WU) . 1W0=KMIN.K4aX • »  IX.  KK) 

409  FORMAT  (6E12.7.  IX.  13.  14) 

404  CONTINUE 

402  CONTINUE 
C 

11=  1 

12=  1 

NOWNWU=  NWU 

IF  (LN  .EQ.  0)  GO  TO  4S0 
C 
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710  CONT ii.ul 

r.  FIND  iFit  T  AK  ( 11 )  «  11=1. 1C1 

c 

WRITE  (b.  7014)  LNTH1K ( 11).  aUFS(12)»  12 
7014  FORMA)  (32H  UlANC 1  IS  COMPARING  LNTMTK  =  .E12.b«  16H  WITH  BUFS 

1(121  =  .  1 12 1 b <  8H.  12  =  .14) 

IF  (ABS(  (LNTHlK ( 1 1) -BUFS ( 12 ) ) /BUFS ( 12 )  )  .LT.  TEST )  GO  TO  720 
I2LASl=  12 

12=  12  ♦  ( IF IX ( bUFS ( I2  +  1 ) ♦ .5 ) )  *3  +  2 

CHtCK  I Ht  VALUt  OF  12.  THE  FOLLOWING  IF  TEST  SHOULD  BE  PASSEU 
ONLY  IF  THETA(Il)  IS  INPUT  INCOHKECTLT .  OH  IF  THt  BUFS  ARRAT 
LAHUS  AMt  our  OF  OHULH. 

IF  (12.GT.(NWU-1)  .OH.  12. LT . ( 12LAST  ♦  S>>  GO  TO  999 
uO  10  710 

720  CONY INUt 

rHLTAK (11)  HAS  BELN  LOCATED  AS  BUFS(I2) 

«H 1 TE  (b. 7011 )  (HETAK(ll).  12 

7011  FORMAT  ( 14H0THL T AK ( 1 1 )  =  «E12.b.39H  HAS  BEEN  LOCATED  AS  BUFS(12>. 

1  12  =  *14) 

IF  (1  HE  T  AMIl)  .GT.  U.)  GO  TO  761 
ISKIP=  IF  IX (UUFS ( 12  +  1 )  ♦  .S)  •  3  ♦  2 

13=  12 

GO  TO  7S1 

7bl  CON f INUt 

THL1AK  .01.  0..  DELETE  HHO  SET  IS).  ONE  AT  A  TINE 

IF  (NUMBER (ID  .GT.  IF  1 X (UUFS ( 12*1)  ♦  .S>)  GO  TO  999 
ISMPS  3 

BUF S(  12*1 )  =  FLOAT  ( IF IX  ( BUF S ( 12  +  D  +  .S)  -  NUMBER  ( 11 D 
WHITE  (b./0I3)  TMLTAK ( ID .  bUFS(I2  ♦  I) 

7013  FORMAT  (14H  FOR  THETAK  =  .  E12.b»  32H.  BUFS(I2*I>  WAS  MOOIFIED  TO 
1UL  .  E12.6) 

7SU  CONTINUE 

13=  ID  D  3*  ( JKHO  ( 1 1 » KOUNT )  -  KOUNT) 

7S1  CONTINUE 


NOWNMU=  NOWNWD  -  ISK1P 

UO  /S2  14=13. NOWNWD 

UUFS ( 14 ) =  BUF SI  14  ♦  I SKIP) 

7S2  CON  I INUt 

IF  (THETAMID  .LT.  0.)  GO  TO  709 
KOUNT=  KOUNT  ♦  I 

IF  (KOUNT  .GT.  NUMBER (ID )  GO  TO  709 
GO  TO  7S0 
709  CONTINUE 

11=  II  ♦  1 

12=  I 

KOUNT=  1 

4S0  CON' INUt 
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1*  111  .LT.  1C)  CO  10  710 
•MUt  (UNI  1  )  (HUFS(Ul)).  lMLCl'NOWNMG) 

LNN1=  I 

4H1  IE  Ib./OUe)  LHN1 »  N06NHU 

7000  FORMAT  4 / /H0LRN1  COUNTS  THt  NUMBER  OF  FREQUENCY  CROUPS  THAT  HAVL  0 
1EEN  6H111EN.  LHNl  =  *  14*  ISM.  AND  NOHNHO  =  »  IS) 

KUO  CONTINUt 

LNU  FILE  UNIT 
HE*INU  UNIT 

IF  (MIN  .Nt.  S)  WHITE  (6.410)  MIN 

410  FORMA (  (40H0D1 ANC1 .  HUN  USING  BCU  INPUT  UPE  MlN  S  .13.  12H.  COMRL 
ltltU.  ) 

NH lit  (6.7001)  UNIT.  1UENT(1B1NU*I> 

return 

40  WH1TL  (6.7002) 

HEMlNU  UNIT 
RETURN 
VVV  CONTINUE 

C  ERROR  EXIT 

c 

■HUE  (6.7007) 

7007  FORMAT  (0SH112  TOO  LARGE.  OR  LESS  THAN  (12LAST*S>.  OR  THETAKUD.E 
10.0..  OR  NUMBER (11)  TOO  LARGE.  ) 

CALL  MERR 

RETURN 

Enu 
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DIANE  TAPE  AND  DIANE  CARD  FORMAT 

The  DIANE  cards,  together  with  the  DLANTC  (tape  to  cards),  DIANC.  T 
(card  to  tape),  and  DYPDIN  (refer  to  later  writeup)  programs  form  an 
effective  mechanism  for  transfer  of  opacity  data  from  one  user  to  another 
or  from  one  computer  to  another.  Data  have  been  transferred  this  way 
between  the  IBM-7044,  the  UNIV AC-1108,  and  the  CDC  3600,6400,6600 
computers.  This  is  possible  because  the  cards  are  in  decimal  format  and 
the  programs  are  all  in  compatible  FORTRAN  IV. 

The  DIANE  cards  punched  by  the  DIANTC  (tape  to  cards)  program 

have  the  following  format: 


CARD 

PUNCHED 

FORMAT 

COLUMNS 

USED 

NAME  IN 
PROGRAM 

DESCRIPTION 

1 

112 

1  -  12 

IDA 

12-digit  identification 
number 

2 

12A6 

1  -  72 

ID 

Heading  from  identification 
(header)  card 

3 

E12.  7 

1  -  12 

HNUT 

Number  of  frequency  groups 

3 

E12.  7 

13  -  24 

FNWD 

Number  of  words /frequency 
grouping 

4 

E12  ,7 

1  -  12 

XI 

If  XI  <  0,  indicates  that  the 
grey  absorption  coefficients 
follow 

If  XI  >  0,  then  XI  is  the 
value  of  the  lower  end  of  a 
frequency  band 

4 

E12.  7 

13-24 

X2 

Number  of  temperatures 

5 

E12.  7 

1  -  12 

BUFS(IWD), 
IWD  =  1 

in 

5 

E12.  7 

13  -  24 

BUFS(IWD), 

IWD=2 

Number  of  t's  at  8^  (t  is 
the  specific  volume  incc/gm) 

5 

6E12.  7 

1st  card: 

25  -  72 

BUFS(IWD), 
IWD  =  3,LAST 

in  Kr,  in  Kp,  in  t,  in  Kr, 
in  Kp,  .  .  • 

succeeding 
cards:  1-72 

LAST=(3!' 

BUFS(2 ))+  2 

in  ©2,  No.  of  t's  at  82, 
in  Kr,  in  Kp,  in  t,  ... 
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SUBRUUllNt  UlANtlM.N) 

C  UlANt  ►  U  M  I  K  A  N 
C 

C  MUUiFltU  bT  blLL  LINULtT  UN  FEb.  27.  1V67.  10  ACCEPI  DATA  FROM 

C  CASL  IANU1MX  lAPtSI  ANU  U1APMANOUS  OH AC  ITT  DATA.  (CODE  HAS 

t  CALLtU  ANUT  F  HUM  Ftb.  27.10b'/  UNTIL  JUNE  12.  10b/.) 

C 

C  MUUlFltU  bT  C.  IMtS  TU  CUMblNt  UlANt  Hi TH  SC ATTtH 1NG  ANU  OlANt  H1IHOUT 

C  SCA I  1 1 H INI.  UN  JANUANT  JU .  lVo/ 

C 

t*  ALL  UlANt  HUNS  USING  CUNUtNSLD  UIAHhANOUS  TAHES  (DENSER  TAKES) 

C«  MUSI  MLAU  TMtSt  lAHtS  IN  EVtN  KAMI  IT  - 

C*  IH1S  IS  UUNt  bT  SPtCIFTING  IME  K  ANU  E  0HT1UNS  ON  1M£  TAPE  ASSIGN  CARD 

Nt AL  LUHL1M 
INItGtN  SCAT 
INItGtR  MUblU 
INItGtR  UtNStR 

DIMENSION  AI2U).  12(10).  CUMK(IU) 

UlMtNSlUN  NUSCAI  (J) 

UA I A  NUSCAT  /  GH  HltH  .  bH  NO  *  6H.JV7)  / 

UAIA  UtNStR  /  bHUtNStN  / 

UA I A  HUUlU/bHANUlMX/ 

UAIA  U 1MHNU/1S. 0/ >  lUMHHU/1 //.  1UMU2/SU0/ .  U1MCMU/2U00. / » 

1  lUMbUK/lUUU/.  1UMIH/2S/ 

C 

CUMMUN/HbL/AMU(lSU) .  Ul(lSU).  U2 I  SOU) •  B*UlbU0)»  TMUISOU). 

1  CMUI2UUU)  .  UNUUUI 

C 

UlMtNSlUN  AM 1S.2S. 17) .  K0(2b.l/I.  AKTllS).  10(14) 

1. KAMAAI2S).  HR  I  lb. 2b. 17).  IHtTAI2S)»  BUFSIlUUO)*  ANDRIS) 

2. ARLMIS).  ARUHIS).  IH(S).  bRLHIS).  BRUP(S)»  KCHAI2U) •  bHNUI 1S2) 

4.PR I ( IS) .  SRPI2S.17).  SRK12S.17).  JDIDI2S.12) 

UlMtNSlUN  HUBMU(JUUU) 
tUUl VALtNCE  (HUbMU.  AMU) 
tUUl V ALtNCt ( 1UX • UA ) 

t GUI VALtNCE  (AI1)>2BAR).  IA(2>.HH0>.  I A ( 4 ) . bIGP ) i  I  Alt) .EPSMAL) » 

1  I A  IS) . ARAHHA) .  I A 1 6) . HAMbDA ) »  (AIT) itlHART) . 

2  I  AID) . GAMNtH) 

C 

C  NO  1 1  1UU4)  IS  UStU  AS  KAMAXIO) 

C 

SC A I  =  M 
LOHLIMr  .2 

1BCUU  =  N 

II-  (SCA I  .tO.  2)  LUHL1M  =  .4V77 
II-  (SCAT  .EU.  1)  L0HL1MS  l.t~  10 
C 

C  10  NUN  UlANt.  TMtSt  UAIA  CAKUS  AKE  HtOUIREUS 

C  (ALL  INPUT  TtMHtRATURtS  ANU  FWEOUENCIES  ARt  IN  UNITS  01-  ELECTRON 

C  VOLTS) 

C 

C  THt  F 1RSI  DATA  CARD  RtOUIRtU  HAS  AN  IDENTIFICATION  NUMBER  IN  COLUMNS 
C  1-12  (FORMAT  (112)1.  IMIS  IS  AN  OPTIONAL  NUMBER*  BUT  IT  IS  HtLPFUL 
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c 

c 

c 

c 

c 

C 

C 

C 

C 

C 


C 

C 

C 

c 

c 

c 

c 

l 

t 

t 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


lu  US t  II  AS  A  SEQUENCING  NUM3EK.  INCREASING  ITS  VALUE  BY  ONE  EACH  TIME 
A  KUN  IS  MAUE. 

I  HE  SECUNU  DATA  CARD  KEWUIKEU  MAS  A  MEADEK  IN  U2A6I  FORMAT  M1TM  ANT 
IDLE  1NFURMAT ION  DESIRED  FOR  THE  RUN.  SUGGESTED  UAT A  INCLUUt  MAlEKIAL* 
KUN  TYPE*  DIAPHANOUS  IAPES  USEU.  DATE.  TEMPERATURE  RANGE.  NUMbEH  OF 
FREQUENCY  SETS*  UOEH/NEUUES I  ER  .  ETC. 

I HE  IH1KU  DATA  CAKD  KEUUIKEU  CONTAINS  THE  FOLLOMING  INFORMATION! 


c 

COLUMNS 

VARIABLE  NAME 

FOKMAI 

UATA 

c 

c 

i-IO 

HNUT 

F10. 4 

NUMBEH  OF  FREQUENCY  GROUPS 

c 

11-20 

TP  1 1 1 

F  10.4 

TPm.EU.2.  -  DESIGNATES  SCRATCH 

TAPE 

2 

c 

2I-J0 

TP  12 1 

F10. 4 

TPI2I.EU.J.  -  DESIGNATES  SCRATCH 

TAPE 

3 

c 

Jl-40 

TP1JI 

F  10.4 

TPIJI.EQ.4.  -  DESIGNATES  SCRATCH 

TAPE 

4 

c 

4I-S0 

TPI4I 

F  10.4 

IP I 4) • EU. 7 .  -  DESIGNATES  SCRATCH 

TAPE 

7 

c 

SI-GO 

TPISI 

F  10.4 

TPISI .EQ.B.  -  DESIGNATES  SCRAICH 

TAPE 

8 

c 

c 

THE  FOUKIH.  ETC..  UAIA 

CAKU(S)  REQUIRED  CONTAIN  THE  FREQUENCY  INPUT 

VALUES 

They  must  be  specifieu  in  uescenuing  order.  fokmat  i7Fio.4i. 

EACH  FKEUUENLT  GIVEN  IS  AT  I  HE  LOMEK  ENU  OF  ITS  GROUP.  AND  THE  LAST 

FREQUENCY  IN  THE  INPUT  MUSI  HE  .001  OK  SOME  OTMEK  SMALL  BUT  FINITE  NUMBER. 

FOLLOMING  THE  FKEUUENLT  INPUT  CANOS  IS  A  UAT  A  CAKU  INEXT-TO-LAST  DATA 

LAKO  IF  UNLT  DIAPHANOUS  (ANU/OH  ANOIMX)  OK  SILVIA  OK  2SA2SU  DATA 

AKE  USEU.  THIKU-FNOM-LAST  CARD*  OTHEKMISE)  CONTAINING  THE 

FOLLOMING  INFOKMATION! 

COLUMNS  VAN I ABLE  NAME  FORM A I  UAIA 

1-1U  THN  Fill. 4  THN.EO.U.IS  THE  NORMAL  CASE!  SIGNALS 

THAT  UAIA  IS  TO  BE  NEAD  FROM  UIAPMA- 
NOUS  ANU/OK  ANU1MX  UATA 
THN. LI. 0.  SIGNALS  THAT  SPECIAL  LOM 
TEMPERA  I URE  UATA  MILL  HE  KEAU  FROM 
TAPE  H.  A  DAI  A  TAPE  MADE  BY  2SAZSU. 
SILVIA.  OK  ALUEIO 
THN.GI.U.  SIGNALS  THAT  CAKU  INPUT 
FOR  LOM  TEMPERATURE  POINTS  mill  BE 
REAU  I  TO  DATE*  CHii  IS  THE  ONLY 
MAIEK1AL  THAI  HAS  BEEN  TREAIEU 
THIS  MAY  I 

U-20  THSK1P  F10.4  THSKIP. EQ.O  IS  THE  NORMAL  CASE! 

IF ( THN.EU.O. I  *  THSKIP  IS  NOI  used 
IF l  THN.NE.O .  •  ANU.  THSKIP. NE.O.M 
THSKIP. GT.O.  MEANS  SKIP  THSKIP 
TEMPERATURES  AT  LOM  END 
THSKIP.LT. 0.  MEANS  PICK  UP  EACH 
THSKIP'TH  TEMPERATURE 

NEXT  UATA  CARO  REGUIREU  ONLY  IF  SILVIA.  2SA2SU.  OK  ALUETO  DATA 

ARE  USEU 
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L 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

L 

C 

C 

c 

c 

c 

C 

c 

c 

c 

c 

c 

L 

C 

C 

C 

C 

c 

C 

L 

L 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C 

C 

L 


COLUMN*  VAN  I  ABLE  NAMt  FORMAT  UAT  A 

I- 10  ANURIA)  PIU.4  THIS  1*  A  HIGHER  FREQUENCY 

THAN  THE  LA* I  ONE  AVAILABLE  ON 
1NPUI  TAKE  OK  LAND*.  IT  IS 
THt  FREQUENCY  UK  AN  ’EDGE*  PON 
WHICH  OPACITY  UATA  AKE  TO  BL 
PROVIDED  A*  INUICA1EU  BELOW. 

II- 20  AKLWIK)  HO. 4  WHEN  KAPPASA»B*NHO*  THI*  1*  A 

FOR  I  HE  LOWEK  KAPPA  VALUE  A I 
THE  INPUT  ANURIK). 

OTHERWISE*  IT  I*  THE  LOWER 
VALUE  OF  RAPPA  AT  THE  INPUT 
ANURIK) . 

21-JU  ARUPIR)  F10.4  WHEN  KAPPA=A»B*NHO*  THIS  I*  A 

FOK  *  HE  UPPEK  KAPPA  VALUE  A I 
THE  INPUT  ANUKIK). 

OTHERWISE*  IT  1*  THE  UPPER 
VALUE  OF  KAPPA  AT  THE  INPUT 
ANUK IK  > . 

Jl-40  BKLWIK)  F10.4  WHEN  KAPPAZA*B*KHO  THIS  IS  B 

FOK  I  HE  LOWEK  KAPPA  VALUE  A I 
THE  INPUT  ANUKIK). 

OTHERWISE  *  IT  I*  ZERO. 

41-SU  BRUPIR)  F 10.4  WHEN  KAPPASA*B*NHO*  THIS  I*  U 

FOK  I HE  UPPEK  KAPPA  VALUE  A I 
THE  INPUT  ANURIK). 

OTHERWISE*  II  I*  ZERO. 


LA* I  DATA  CARO  mu*t  contain  the  following  INFORMATION  iall 
COMMENTS  REFERRING  TO  U1APHANOU*  TAPE*  ARE  APPLICABLE  TO  AND I MX 
I  APES*  AS  WELL) 


COLUMNS  VARIABLE  NAME  FORMAT  UATA 

1-10  TAPE*  F1U. 4  IF  ITAPES.GT.U. ) *  INDICATE*  >HE 

NUMBEK  OF  DIAPHANOUS  (AND/OK 
ANU1MX)  TAPE*  THAT  ARE  TO  Bt 
USED. 

IF  I TAPE*.LE.U« ) *  INDICATE* 

THAT  NO  U1 APHANOU*  OR  ANDIMA 
TAPE*  WILL  BE  U*EU. 


c 

11-20 

THMAA 

F  10.4 

c 

c 

21-JO 

THMIN 

F  10,4 

c 

c 

J1-4U 

THMl 

F1U. 4 

C 

C 


HlGHE*T  IEMPEKAIUKE  to  be  accepted  from 
01 APHANOU* 

LOWE* I  TEMPERATURE  TO  be  ACCtPIED  FROM 
DIAPHANOUS 

HIGHEST  TEMPERATURE  TO  BE  ACCEPTED  FROM 
FIR*)  DIAPHANOUS  TAPE  (0NUN1I  0)* 

IF  MORE  THAN  ONE  SUCH  TAPE  IS  USED* 
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41-SU  IHM2 


Sl-60  THM.J 


61-/0  THM4 


HO.4 


MO. 4 


MO. 4 


THM1.EQ.U.  OTHERWISE 
HIGHEST  TEMKENAIUNE  TO  HE.  ACCEPTED  FROM 
SECOND  DIAPHANOUS  TAKE  (ON  UNIT  E) « 

IK  MOKE  than  two  SUtH  takes  ake  used. 
THM2.EQ.U.  OIKENWlSE 
HIGHEST  TEMKEKA I UNE  TO  BE  ACCEPTED  KNOW 
TH1K0  DIAPHANOUS  TAKE  (ON  UNI  I  F )  • 

IF  MOKE  (HAN  THNEE  SUCH  TAKES  AKE  USED 
THM4.EQ.0.  0 1 HEKWXSE 
HIGHEST  TEMKEKA »UKE  TO  BE  ACCEKTEO  FKOM 
FOUKIH  U1AKHAN0US  TAPE  (ON  UNIT  6)' 

IF  FIVE  SUCH  TAKES  AKE  USEU’ 

THM4.EQ.U.  OTHERWISE 


NOTE:  takes  MUSI  BE  .LE.  4  IF  SILVIA*  2SA2SU*  ALUETO*  OK  ANT  OTHEK 
LOW  TEMPEKA1UKE  UATA  IS  USEU.  •••• 


••»*>  klease  note:  ••••• 

•••  l HE  NUMBEK  OF  SCKAICH  I AKES  WHICH  MUST  BE  ASSIGNED  BY  DRUM  ASM  ••• 
CAKUS  IS  OE IEKM1NEU  BT  THIS  EQUATION: 

INI  (HNUI/ (UIMHNU4.UU1  .EU.  IS. 0011)  ♦  1 
THNEE  SCKAICH  TAKES  MAT  BE  ASSIGNED  F OK  EVERT  HUN*  BUT 

1.  1-JO  FREQUENCY  GROUPS  REQUIRE  1  SCRATCH  TAPE  • 

2.  S1-4S  FKEOUENCT  GROUPS  KEUUIRE  2  SCRATCH  TAKES 
£.  46-60  FKEOUENCT  GROUPS  REQUIRE  3  SCRATCH  TAKES 

PROGRAM  NEEUS  MOKE  SCKAICH  TAPE  ASSIGNMENTS  IF  MOKE  THAN  60  FKEOUENCT 
GROUPS  AKE  SPECIFIED. 

TO  ADD  TWO  MOKE  (MAXIMUM  ALLOWED)  SCRATCH  AKEAS*  ADD  ASG  DRUM/  AND 
ASG  UKUMB  CARDS. 

•  •••• 


.  F  U  K  M  A  T  S 

JUO J  FOKMAI  ( IX. BHT AKES  =  »F10.4.12H  WHEN  THN  =  *F10.4*/120H  THIS  COMBI 
1NAI10N  OF  LOW  IEMKEKA IUKE  INPUT  (USING  TAPE  H)  AND  S  DIAPHANOUS  1A 
2KES  (FIFTH  ONE  ON  TAKE  HI  IS  NOI  POSSIBLE.  I 
/OOU  FOKMAI  ( 1H0  *  42X.  7HDIANE.  •  A6f  JSHSCAT I  EKING*  COMPLETED  SUCCESSF 
1ULLT.  /  1H1 ) 

1  FOKMAI  I1SH  TOO  MUCH  UAIA  FOR  BUFS  STOHAOE.  TILT.) 

2  FOKMAI  (1SH  FOK  I  HE  I A  =  F/.* i  BMf  KHO  S  1KE10.S#  2«H,  DIAPHANOUS  D 
2AIA  ABOVE  U  s  UKF6. 1 *  43H  AKE  BEING  KEJEOED  DUE  TO  LACK  OF  STORAGE 

£  FOKMAI  (/Flu. 4)  00000120 

70U4  FOKMAI  (1A./P1U.4) 

4  FORMAT  (112) 

7004  FOKMAI  (IX* 112) 

5  FOKMAI  ( 1UH1HNU  FROM  *F12.4*  SH  TO  *  F12.4) 

6  FOKMAI  (/VH  THETA  =  (F12.4) 

/  FOKMAI  (1KBE1S.B) 

V  FOKMAI  (12A6)  00000170 


00000170 


/UUV  FOKMAI  ( IX i 12A6 ) 

10  FOKMAI  (41H  DIAPHANOUS  TAKE  SEEMS  TO  HAVE  MORE  THAN  12*  11H  DENS1 
2TIES.) 
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11  Is  OHM  A  I  (1UH  DENSITIES) 

12  FOKMAI  ( 1H1 ) 

13  FOKMAI  (112.  12Ab) 

14  FOKMAI  ( 1SH1 AVtKAGt  KAPPAS) 

15  FOKMA  t  (42H  2ND  St  I  OP  U1APHANOUS  OATA  HAS  MORt  THAN  13*  19H  ENTH 
21tS.  IHtIA  =  P /.2»  BH»  HHO  =  lPt!0.5»2UH.  NO  COOL)  ABOVE  U  =  UPPb. 

31) 

lb  ►  L'KMA I  (23H  NANNING.  ►OH  I  MET  A  =  HO.  4*  UN  ANU  HHO  =  tl0.4*  «P» 

2  GHUUP  12.  24H  HAS  A  U  UlSLHtPANCY  OF  1PL9.3.  BM  VtHSUS  1PE9.3) 

C 

t  GtNtHALLY  FOH  ..ON  TtMPtKATUKtS.  OATA  FHOM  CARD  INPUT.  BUT  FOH  AIK. 

C  UA I A  ►KOM  2SA2SU  *  PIXtU  I  ABLE S  IN  PHEUUtNCT.  DENSITY.  TEHPERATUHt 

C  UP  10  FIVE  DIAPHANOUS  I  APES  (O.E.F.G.H  RESPECTIVELY ) 

C  •••  NOIE!  NUMBER  OF  U1APHANOUS  INPUT  IAPES  MUST  BE  .LE.  4  IF  SILVIA. 

C  2SA2SU.  ALUE10.  OH  ANY  OTHEK  LON  TEMPERA  I URE  DATA  IS  USED.  ••• 

L  DIANE  TAPE  ON  L 

C  INPUT  I  APE  FHOM  2SA2SU  OH  SILVIA  ON  H 

CALL  UVLKON 
LALL  UVCHMKUMY) 

lUMHNU  =  U1MHNU  00000240 

1UMCMU  =  U1MCMU 

C  PKUCESS  INPUT  UU0U02S0 

HE AU  (S.4)  1UA 
NKllE  lb. 7004)  1UA 
HEAU  IS. 9)  (1U(1I.  1  =  1.  12) 

NKllE  (b. 7009)  (lull).  1-1.12) 

HEAU  (b.3)HNUI.  (TP(1I.  1  =  1.  S)  U0000260 

NKllE  (b.7003)  HNUT •  I IP( 1 ) . 1:1 • S) 

NHNU:  HNU I  4  .S 

BHNU(l)  =  l.Eb 

C  FKEUUENCY  KANGt  L1M1TEU  BY  LMU  SlOKAGE 

NP1  :  NHNU  ♦  1 

KEAU  IS. 3)  (BHNU(l).  1=2*  NP1 ) 

NKllE  (b.  /0U3)  (BHNUU).  1=2. NP1 ) 

C 

L  BHNU(l)  .tO.  l.Eb  IS  IHE  PHESENT  UPPER  FHEOUENCY  LIMIT  IN  OIANE 
C 

IF  (BHNU(NPl)  .LI.  .UU1)  BHNU(NPl)  =  .001 

NSCT  :  INI (HNUT/  (U1MHNU4  .001) )  4  1  00000320 

IF  (NSC I  .GT.  b)  CALL  UUMP 
UO  SOI  1=2.  NSC1 
IIP  =  IP(l-l) 

SOI  HENlNU  1  TP 

CAKU  1NPUI  FOH  LON-TtMPtRATUHt  POINTS 
HLAU  (S. 3 )  THN.  IHSK1P 
NKITt  (b. 7003)  THN.IHSKIP 
IF  (THN)  S07 •  SOb.  SUB 
SUb  JA  =  0 

NIHETA  =  0 
GO  10  20 
C 

C  NEGATIVE  THN  SIGNALS  (HAT  UAT A  SHALL  BE  KEAU  FKOM  TAPE  H. 

C  A  UATA  TAPt  MAUE  BY  2SA2SU.  SILVIA.  OK  ALUETO 

C  UA  I A  TAPE  MATEK1ALS  INCLUDE  AIK.  REFKASIL.  CARBON  PHENOLIC. 

C  POLYA  I OM1C  CARBON.  ALUMINUM.  ANU  IKON. 
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C  PUblllVt  IHbKIP  MtANb  bKIP  IHSK1P  TEMPENATUNES  A1  LON  ENO 

C  NtbAUVt  IHbKIP  MtANb  PICK  UP  EACH  THSKIPITM  TEHPENATUNE 

bU7  KtNlNU  lb 

KbAU  (lb)  THbN*TNHNU»  HNUM1N*  OHNU 
CtfIM  =  HNUM1N 

PtJlM  =  HNUM1N  -  U.b  •  UHNU 
HN  =  U.b  •  UHNU 
0  =  UHNU 
II  :  1.  /  OHNU 
HIP  =  UHNU  •  TNHNU  ♦  FHTM 
IP  (IHbKIP  .bT.  U.U)  bO  TO  bOO 
NIHE1A  =  I HbN 
bU  (U  bUid 
bUU  NbK  =  IHbKIP 

NIHL1A  =  I HbN  -  IHbKIP 
UU  bUH  1=1*  NbK 
NtAU  (lb)  XX*  P  HON 
MNP  =  KHUN 
UU  bUb  J  S  If  MNP 
bUb  Nb.AU  (lb) 
bUH  CUNIlNUt 
bUZ  NlHNU  =  INHNU 
NUP  =  C 
ANUK(l)  =  HIP 
tJKUP(l)  =  U. 

UU  blU  K  =  2*  NUP 

NtAU  (b*b)  ANUKIKlf  AKLN(K) *  AKUP(K).  BKLN(K) •  BKUP(K) 
blU  WN1 It  (b * /»  ANUK ( K ) •  AKLN(K),  AKUP(K)t  BKLN(K) *  BKUP(K) 
bU  lu  buy 
bUt)  NIHtIA  =  IHN 

C  b  t  b  1  N  TtMPtNAIUNt  LOOP 
buy  JA  =  U 

UU  bUU  JAU  =  1*  NIHtIA 
IP  (IHN)  lbUUi  lbOH*  IbUid 
lbUH  CALL  UUMP 

IbUU  IP  ( IHbKIP  .bT.  l-.b) )  bU  10  IbOb 

IP  (AMUU(PLOAT(JAU)f  -IHbKIP)  .tU.  O.U)  60  TO  lbOl 
NtAU  (lb)  XX*  NHON 
MNP  =  NHON 

UU  lbUb  J  S  1.  MNP 
lbUJ  NtAU  (lb) 
bU  10  bbU 
lbUl  JA  :  JA  H 
bU  10  lbUb 
lbUb  UA  =  JAU 

lbUb  NtAU  (lb)  THE  I A( JA) f  NHON 
PlHtT  S  THETA(JA) 

MNP  =  NHON 
bU  IU  lbUb 

IbUii  NtAU  (b*J>  PTHtt*  PNM»  PNU*  PA*  PB*  PC*  PU 
NNlIt  (b*7)  PTHtl*  PNM*  PNU*  PA*  PB*  PC*  PU 
IP  (PNM  .UT.  FLU A I ( 1UMNH0) I  CALL  UUMP 
MNP  S  PNM 

NtAU  (b*J)  (R0( JA* J) *  J  S  1*  MNP) 

NNlIt  ( b  *  7 )  (NO(JA.J)*  J  *  1*  MNP) 
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It-  tPNU  .LT.  O.b  .OH.  PNU  .bl  .  b.O)  CALL  OUMP 
NUP  =  PNU 

UO  lbOV  K  =  1#  NUP 

HtAU  tb»J)  ANUKtK).  AKLWtK)  »  AKUPtK).  BKLM  tK )  .  BKUPtK) 
lbOM  MK1IL  16.7)  ANUKtK).  AKLWtK)  ,  AKUPtK)  .  BKLWtK)  *  BKUPtK) 

C  B  t  b  1  N  U  t  N  S  1  I  T  LOOP 
lb US  UO  b/b  KA  =  1.  MHP 

It-  (IHN)  lblb.  lbOHr  lbll 
lblO  HtAU  (lb)  KO t JA.KA ) *  tUHtN).  N=1»NTHNU) 

AKUPI1)  =  AMAXl (UH(NTHNU) .  l.£-10) 
bO  10  lbll! 

lbll  AKLPNU  =  PA  ♦  PB  •  SOHI IHUl JA.KA) )  ♦  PC  •  RUt JA.KA)  ♦  PO  • 

2  KUI JA.KA) **2 
Ibl 2  ANUISI  =  ANUK11) 

CONbIHUL I  tAULt  OP  Abb  COtFFStCNU)  FOH  H16H  FRtOUtNCIES  FROM  EDGE  OATA 
IX  s  1 

CMUtl)  =  AKUP(l)  ♦  BKUPil)  •  ROt JA.KA) 

UO  S20  K  =  2#  NUP 

LKUP  =  AKUPtK-1)  ♦  BKUPtK-1)  •  HOtJA.KA) 

CKLN  =  AKLMtK)  ♦  bKLM(K)  •  HOtJA.KA) 
bl /  IX  =  IX  ♦  1 

IF  tlX  -  200)  lblbr  lblb.  Ibl7 
lblb  UNU  S  O.b 
bb  10  lblb 
Ibl 7  UNU  =  b.U 
lblb  ANUfbl  =  ANUTSI  ♦  UNU 

IP  < ANUIbl  -  ANUKIK) )  bib.  S19.  51V 
bib  CMUtlX)  =  EXPi ALUbtCKUP)  ♦  ALOblCKLM/  CKUP)  /  ALOCtANUKfK)  / 
lNUKtK-1))  •  ALU? t ANUISI/  ANUKtK-1))) 

IF  tlX  -  10MCMU)  bl7»  S21*  b21 
S19  IX  S  IX  -  1 

ANUIbl  =  ANUISI  “  UNU 
b20  CON  I INUt 

CKUP  =  AKUPtNUP)  ♦  bKUPINUP)  •  HOtJA.KA) 

C  KAPPA  GUtb  Ab  MNU**-J  btTONU  LAST  LUGE 
bib  ix  =  ix  ♦  1 

IF  tlx  -  200)  lblb.  Ibl J.  lblb 
lblb  UNU  =  o.b 
bo  lu  lblb 
lblb  UNU  =  b.O 
lblb  ANUIbl  =  ANUISI  ♦  UNU 

CMUtlX)  =  AMAXltCKUP  •  tANUKINUP)  /  ANUTST )**3>L0ML1M) 

IF  tlX  -  1UMCMU)  S14.  b21.  b21 
b21  CALL  UVCHK  tKOOOFX) 

bO  lot 1S22.S22) .KOCOFX 
lb22  CALL  UUMP 
b22  SKPtJA.KA)  =  o.O 
SKHtJA.KA)  =  0.0 
UO  b/0  1=1.  NSCT 

IIP  =  IPti-l) 

IF  tl  -  NSCT)  S24.  b2b.  bOb 
bOb  CALL  UUMP 
b24  HHNU  S  1UMMNU 
bO  10  S30 

b2b  MHNU  =  NMNU  -  1UMHNU  *11-1) 


0UT00 /40 

00000760 

00000770 

00000760 

00000740 


00000610 

A00000620 

00000630 

000006b0 

00000670 


00000660 

00000690 

00000900 


00000920 

00000V30 

00000940 

000009S0 

00000960 
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00001100 


C  b  L  6  1  N  FREQUENCY  LOOP 

b30  UO  bbb  1A  =  1#  MHNU  OOOOOV70 

1AI  =  AA  ♦  AUMHNU  •  (1  -  H  00000V80 

HNUL  =  bHNUUAIFl) 

UIL  =  HNUL  t  PIHLl 
UtU  =  bMNUUAT)  /  PIHLl 

IF  ItJHNUl 1 A1 *1 >  .6E.  ANUK(l))  60  10  5b4 
IF  (bHNUUAT)  .LL.  ANUM1))  60  10  b44 
HNUU  -  ANUM1) 

60  10  b4b 
b44  HNUU  =  bHNUUAI) 

C  bUM  OVtK  FKLQUtNLALb  btLOH  F1RSI  EU6E 

b4b  IF  (IHNI  lb44 *  bllb>  lb4U 
C  6LNLRAL  LUK-F  KtOULNL T  1NTE6KAT 1 ON (CONST ANT  KAPPA) 

1S40  ULL  =  HNUL  /  PIHtl 
ULU  S  HNUU  /  PIHLl 
ULM  =  U.b  •  (ULU  ♦  ULU) 
tLM  =  1.0  -  LXP(-ULM) 

IF  (ULL  .61.  lb.)  60  10  lb42 
PLN  =  PLNKU  MULL#  ULU) 

LLL  =  LAP ( -ULL) 

LLU  =  LXP(-ULU) 

bUMKAP  =  (PLN  ♦  •U3b4¥/433  *  (ULL**4  *  ELL  /  (1.0  -  ELL)  -  ULU**4 
2  *  LLU  /  (1.0  -  LLU)))  /  LLM  /  AKLHNU 
60  10  lb43 

CAbL  O)-  LAK6L  U.  ULL  HLKL  lb  UIL.  SO  NORMALIZATION  lb  SIMPLER. 

1542  LLU  S  LAP ( -ULU) 

PLN  =  .  lb3U8V733  •  (((ULL  ♦  3.)  •  ULL  ♦  b.)  •  ULL  ♦  6.  -  ELU  • 

2  (((ULU  ♦  3.)  •  ULU  4b.)*  ULU  ♦6.)) 

bUMKAP  S  (PLN  ♦  .03640/433  *  (ULL**4  -  ULU**4  •  ELU))  /  ELM  / 

2  AKLHNU 

1543  bUMPKA  S  AKLHNU  •  ELM  •  PLN 
60  10  bbl 

C  LOK-FRLQUtNtY  1NIL6NAI10N  FOR  MA1EK1ALS  MHObE  KAPPAS  COME  PROM  A  UA1 A  TAPE 
lb44  1L  S  MAXKWi  •  (HNUL  -  PbTM)  ♦  1.0*  1.0) 

AU  S  MAXI ( Ml  •  (HNUU  -  PblM)  ♦  1.0.  1.0) 
bUMKAP  S  0.0 
bUMPKA  S  0.0 
UO  bbO  L  =  IL#  1U 

C  ZERO  1NPUI  OPACllltb  NO*  PObSIbLL 

UK ( L )  =  AMAX1 (UH)L) *  l.L-20) 

HNULL  S  AMAX1 (HNUL*  FLOAT (L-l )  *  «♦  FBTM) 

HNULU  =  AM  INI  (HNUU*  FLOAT  (L)  *  «*♦  PBTM) 

ULL  S  HNULL  /  PIHLT 
ULLP  =  HNULU  /  P1HL1 
ULM  =  U.b  *  (ULL  ♦  ULLP) 

LLM  =  1.0  -  LXP(-ULM) 

IF  (>TL  .Lt.  lb.)  60  10  b4b 
CAbL  OF  LAK6E  U  FOK  UA1A  1APL  MA1LHI ALb 
LLLP  =  LXP(-ULLP  ♦  UTL) 

ELL  =  LXP(-ULL  ♦  UTL) 

PLN  =  . 163080733  *  ((((ULL  ♦  3.*  •  ULL  ♦  b.)  •  ULL  ♦  6.)  *  ELL  - 
2  LLLP  *  (((ULLP  ♦  3.)  *  ULLP  ♦  b.)  •  ULLP  ♦  6.)) 

bUMKAP  =  bUMKAP  ♦  (PLN  ♦  .038407433  •  (ULL**4  •  LLL  -  ULLP**4  • 

2  LLLP))  t  ELM  /  UR(L) 


00001100 

00001200 

00U01220 

00001230 

00001240 

00001260 

00001260 


C 
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go  lo  bnv 

568  tLL  =  tXP(-ULL) 
tLLP  =  tXP(-ULLP) 

PLN  =  PLNKUT (ULL*  ULLP) 

bUMKAP  =  bUMKAP  ♦  (PLN  ♦  .038697633  •  (ULL**6  *  tLL  / 

2  -  ULLP**6  *  ELLP  /  U.U  -  tLLP)))  /  ELM  /  OM(LI 

569  bUMPKA  =  UK(L)  •  tLM  •  PLN  ♦  SUMKKA 
CALL  UVCHX  (KOOOKX) 

00  10<  567*550)* KOOOKX 
567  CALL  JUMP 
bbu  CONIlNUt 

bbl  II-  (UHNU(IAT)  .Lt.  ANUK (111  GO  10  560 
HNUL  S  ANUK(l) 

GO  10  bbb 
bbl  bUMKAP  S  U.U 
bUMPKA  S  U.U 
bbb  HNUU  =  BMNUUAII 

C  bUM  OVtK  KKEGUtNCltb  ABOVE  I- IRS  I  EUGE 

II-  (HNUL  -  ANUKtll  .G1.  100.1  GO  10  5b7 
1L  =  2.0*  (HNUL  -  ANUKtll I  ♦  1.0 
GO  10  bbB 

bb/  1L  =  201.  ♦  0.2  *  (HNUL  -  ANUKtll  -  100.1 
GO  10  5S9 

bbB  II-  (HNUU  -  ANUKtll  .01.  100.1  GO  TO  550 
1U  =  2.0*  (HNUU  -  ANUKtll I 
GO  10  1568 

559  1U  =  200.  ♦  0.2  •  (HNUU  -  ANUKtll  -  100.) 

IK  (1U  .LI.  10MCMU)  GO  TO  1568 
IK  (1L  .LI.  10MCMU)  GU  TO  1565 
AKI(IA)  =  L0HL1M 
PKI(IA)  =  L0HL1M 
GO  10  b 6/ 

1565  1U  =  1UMCMU 

UIUP  S  ( (KLOAT ( 1UMCMU)  -  200.  )  *  5.0  ♦  100.  ♦  ANUK  tll) 
IK  (UIUP  .LT.  1000.1  UNITE  (6*16)  PTHE I  *  RO(UA.KA). 
1568  UO  bbl  IX  S  1L*  1U 

IK  (IX  .Gl.  200)  GO  TO  lbb2 
UNU  S  O.b 
HUNU  S  0.2b 
GO  10  1553 
lbb2  UNU  s  5.0 
HUNU  =  2.b 

1553  IK  (IX  .Gl.  ID  GO  TO  1556 
HNULL  =  HNUL 
GU  10  lbbO 

1556  HNULL  =  HNULL  ♦  UNU 
1560  ULL  =  HNULL  /  PTHtT 

ULLP  S  (HNULL  ♦  UNUI  /  PIHtl 

tLM  SI,-  EXP( (-HNULL  -  HUNU)  /  PTHET I 

IK  (UIL  .Lt.  15.0)  GU  TO  lbb5 

tLLP  S  LXP (-ULLP  ♦  UTLI 

tLL  S  LXP ( -ULL  ♦  UTLI 

PLN  s  .153989733  *  ((((ULL  ♦  3. )  •  ULL  ♦  6.)  •  ULL  ♦  « 
2  tLLP  •  (((ULLP  ♦  3.)  *  ULLP  >6.)  *  ULLP  ♦  6,1) 

SUMKAP  S  5UMKAP  ♦  (PLN  ♦  .038607633  •  (ULL**6  •  tLL  - 


00001270 

00001280 

(1.0  -  tLL) 

00001320 

00001610 


/  PTHET 
IAT  *UTU*UTUP 


00001560 

>.)  *  ELL  - 
ULLP**6  • 
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2  tLLP>)  /  ELM  /  CMUUX  J 
bU  IU  lbbb 

lbbb  tLL  =  tXP(-ULL)  ’ 

tLLP  =  tXP(-ULLP)  1 

PLN  r  PLNKUI (ULLiULLP) 

bUMKAP  =  bUMKAP  ♦  (PLN  ♦  .036497433  *  (ULL**4  • 

1  tLL  /  (l.U-  ELL)  -  ULLP**4  *  ELLP  /  (1 < 0-  ELLP ) ) )  /  CMU(IX)  /  tLM 
lbbb  bUMPKA  =  SUMPKA  ♦  PLN  »  CMUUX)  *  ELM 

CALL  UVCHK  IKQUUFX)  1 

iiU  T0USblib61)*KUUUFX 
Ibbl  CALL  DUMP 

CALLULArt  NOKMALI21NU  FACTOR.  FOKN  AVENAGE  ABS  COfcFF •  ANU  00  BOOKKEEPiNb 
SbO  IF  (UlL  -  lb.O)  lbbb*  lbbb*  lbb 7 
lbb7  tiu  =  tXPC-UlU  ♦  UTL) 

FK  =  tXP(-UlL) 

PLN  =  .lb3VbS733  •  (((UTL  ♦  3.)  •  UTL  ♦  b.)  •  UTL  ♦  6*  -  ETU  • 

2  (((UIU  ♦  3.)  •  U(U  ♦  b.)  •  UTU  ♦  b«)> 

UtNUM  =  PLN  ♦  .U364S7433  •  (UTL**4  -  UTU**4  •  ETU) 
bU  (0  lbbS 
lbbb  tIL  =  tXP(-UTL) 
ttu  =  tXPl-UTU) 

FK  =  1. 

PLN  =  PLNKUT(UTL*  UTU) 

IF  (PLN)  bb2*  bb2*  bb3 

bb3  UtNUM  =  PLN  ♦  .030497433  •  tUTL**4  •  ETL  /  tl.U  - 

1  tIL)  -  U IU**4  *  tTU  /  (l.U-  ETU)) 
lbbS  IF  (bUMKAP)  bb2*  bb2*  bbb 
bb2  CALL  UUMP 

bbb  AMU  A)  r  UtNUM  /  SUNK  AP 

PKIUA)  =  SUMPKA  /  PLN 
bb /  CALL  UWCMK  (KOUUFX) 

bU  1U (lbbb*  bfc4) iKUUUFX 
lbbb  CALL  UUMP 
bb4  PKIUA)  =  ALOGtPKI  UA) ) 

bKP(JAiKA)  S  SKP(JA«KAI  ♦  bUNPKA  •  FK 
bKK(JA.KA)  3  SKK(JAIKA)  ♦  bUMKAP  •  FK 
bbb  AKIUA)  =  ALUG(AKIUA)) 

IF  (1-1)  bbb*  bbb.  b71 
bbb  UU  bbS  1A  3  1*  MHNU 
AKUA*  JA.KA)  =  AKI  UA) 
bbS  PKUA.JA.KA)  =  PKIUA) 


OUOOlbbO 

UUOOlbVO 


UU001b30 

UUI)01b40 

UUOOlbSO 

UOOOlbbO 


UUOOlbSO 

UOOOl/OO 


00001720 

00001730 

00001740 


U00017b0 

00001760 


bbS  PKUA.JAiKA)  =  PKIUA) 
bU  tO  b7U 

S71  MKltt  (UP)  (AKtUA).  PKTUA)  *  1A  =  1*  MMNU) 
b  70  LUNUNUt 

SKK ( JA  *  K A  )  =  -ALOb(SKK ( JAiKA ) ) 
bKP(JA.KA)  s  ALOb(SKP( JA.KA) ) 
b7b  KO(JA.KA)  =  “AL0b(K0( JA.KA) ) 

I  Fit  T  A  ( JA )  =  ALUb(PTHET) 

KAMAX(UA)  =  MRP 
bbU  LUNUNUt 

IF  (THN  ,LT.  0.0  .AND.  1MSK1P  .LI.  0.0)  NTHETA  3  JA 
JA  ”  NtHtTA 
KA  =  KAMAXl JA) 


00001620 


00001640 
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L  DIAPHANOUS  SECTION 
20  CONIlNUt 

KtAU  (S»3)  TAPtS t  IHMAA.  TMMlN*  IHM1*  THM2*  1MM3*  1HM4 
■Kilt  lb*T003)  lAPtS*  IHMAX*  TMMlN*  THM1 *  TMM2*  IMM3*  TMM4 


IF 

(lAPtS  .LI.  .001) 

GO 

10 

lbU 

IF 

(IHMAX  .LI.  .U01) 

THMAX 

=  i.i 

IF 

(IHM1  .LI.  .001) 

thmi 

S 

l.ts 

IF 

(IHM2  .LT.  .001) 

T  MM2 

s 

l.ts 

IF 

(IHM3  .LI.  .001) 

TMM3 

s 

l.ts 

IF 

( 1 HM4  .LI.  .001) 

TMM4 

z 

l.ts 

C  *****  NOttS  TAPtS  MUSI  BE  .Lt.  4  IF  SILVIA*  2SA2SU*  ALUETO*  OK  ANt  OTHEK 
t  LOW  lEMPtKAlUKt  DATA  IS  USED.  mm* 

IF  (IHN.L1.0.  .AND.  1 APtS.GT .4  •  S)  60  10  3002 
MtUlA  =  12 

ItSII  -  0*0  00001V20 

lAPtN  s  1*0  00001V30 

AA  s  U  00001V40 

MID  =  1 
00  10  22 


3002  CONIlNUt 

■  Hilt  (b*  3003)  TAPES*  IHN 

WV  CALL  UUMP  00001V70 


22  CONIlNUt 

IF  (1UCU0  .tO.  U)  GO  10  3SU 
KtAU  (MtUlA)  UX 
IF  (1UX  .tO.  HUB 1U)  60  10  3U0 
IlUXSUX-.S 

IF  1 1 1UX  .tO.  Cl))  60  10  3U 
■Ml  Itlto*  TWV)  UX*  I1UX*  1UX*  1UX 

1HHH  FOKMAI  (2bH  PROBLtM  Ml  IH  F1KST  KtCORO  /5X* lPtlS.B* 2X * 14*2X * A6*  2X0 
1121 

CALL  MtKK 

c 


3S0  CONIlNUt 
LHUHS1 

KtAU  (MtUlA*  73SU )  1UX.  1 1U 1 1 ) . 1  =  1 . 12 )  ,  N2*  (COMPI I ) . 12 1 1 ) * I=1*N2) 

7350  FOKMAI  ( 13Ab/ 12 *  (Fb. 4.12)1 

IF  (1UX  .Nt.  UtNStK)  CALL  MtKH 
■Kilt  (b*  73S1 ) 

7351  FOKMAI  (47H  ME  AKt  PKOCtSSINO  A  CONOtNSEU  DIAPHANOUS  TAPE.) 

MKITt  (b* 1001 )  1UX*  ( 1U ( 1  )  *  1  =  1  *  12 ) 

1001  FOKMAI  (1H0*  13Ab) 

MKITt  (6*1002)  N2*  ( 1  .COMP ( 1)>/12(1)*I-1*N2) 

1002  FOKMAI  (1H0.SHN2  =  *12*/(IH  * 12*2X*FS.4*2X* 12/) ) 

C 


3SS  CONIlNUt 

KtAU  (MtUlA*  73S2)  JJ*  11*  ULAS1 *  AKLAST *  TK*  GAMMA*  ( AIK) *KS1*2U) * 

1  (U1(K) *K=b*ll)*  (AMU(K)*K=b*Il)*  (U2(K) *K=2* JJ) * 

2  (BMU(K).  K-2* JJ) .  (TMU(K) *  K=2* JJ) 

73S2  FOKMAI  (214*  13tV.4*  /  (14tV.4)) 

IF  (JJ  .tJ.  (-S))  GO  TO  7V 

IF  ((11  ,6T«  ISO) .OK. ( JJ  .61.  1UMU2) )  GO  TO  353 
IF  (11  .LT.  6)  MKITt  (b*B)  TK*  GAMMA 
IF  (ULAS1  .61.  0.)  GO  10  3S1 
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C  ULAbT  .01.  U.  IMPLltb  IKANbl I IONS  LXHAUS I EU  AT  ULAbT  .  LT.  (U=lb.) 

It-  (U2(2)  .£U.  U.)  GO  TO  3bb 
3b4  CONUNUt 

U^lll  =  Ul(  ID 

I  MU  lit  S  AMU l II) 

ULAbl  =  U2(JJ) 

AKLAbl  =  IMU(JJ) 

AbH  CONllNUb 

IMUU)  S  AMAXKTMU(l).  LOWLlMtKHU) 

1 MAX  =  11 
JMAX  =  JJ 
JLbbb  =  JJ-1 
NbNU  =  4 

oo  lo  ao 

3bb  CONllNUb 

ULAb1=  UK  11 ) 

AKLAbl  =  AMU 1 1 1 1 
3b 1  CUNTINUb 

U2(l)  =  lb. 

IMU(11  =  AKLAbl  *  (ULAbT  /  lb.)**3 
C  U2(2)  ,bU.  U.  IMPLlbb  IHEHb  lb  NO  EDGE  DATA 
IF  (U2(2>  ,EU.  0.1  00  10  3b2 
00  10  3b4 
3b3  CONllNUb 

WKlIb  (b* HbAl  Ilf  JJf  1UMU2 i  TK.  GAMMA 
73b3  FOKMAI  (OH  lbU  .LI.  f  13f  OH  .OH.  t  13.  OH  ,GT.  #  14.  9H  FOR  IK  S* 

1  lPblb.B.  12H  ANO  GAMMA  =  .  lPElb.8) 

CALL  MbHK 

CALL  UUMP 

C  KLAU  blAHI  OF  ANU1MX  I APE 

300  MIP  =  M1U  ♦  4 

OKI  lb  Ibi  /700)  UX 

/700  FOKMAI  (22M  WE  AHb  PKOCbbblNO  AN  . A6f 7H  lAPb.  ) 

KbAU  (MbUlA)  KJUlU(MXfJ).  JS1.12).  MX=MIU»MTPJ 
M1U  =  M1U  ♦  b 
KbAU  (MbUlA)  UX 

IF  (AUblUX  ♦  2.01  .LT.  l.b-4)  GO  TO  32 
IF  ( ABb(UX  ♦  7.01  .LT.  l.fc-4)  00  TO  310 
CALL  JUMP 

C  PKOCbbb  MUEBNEK  UATA  bbT  FOH  GIVEN  T.  HHO 

310  KbAU  (MbUlA)  XX.  XX.  IK.  HHO.  (XX. 1=1.24).  UlbTH.  UUI. 

2  (XX. 1=1. t) 

KbAU  (MbUlA)  NMAX.  (HUUMU(l).  1=1>NMAX) 

LHUH  =  2 

IF  (NMAX  ,0T .  20  71)  CALL  UUMP 
COUb  AbbUMbb  blAHT  A I  .3.  ULL I A  U  =  .01 

IF  (AUMU1STK  -  0.3)  .GT.  l.b-4  .OH.  AbS(UUI  -  0.01)  . 6T,  l.E-5) 

2  CALL  UUMP 
UO  31b  1=1.  2071 

lbK=  2072-1 

31b  HUUMU ( I BK+20 )  =  HUBMU(IBK) 

UO  320  1  =  1.  20 

HUBMU ( 1 )  SK'JPMU  ( 30 )  *  ( 30  .  /FLO A T  ( 1 ) )  •  *3 
320  CONllNUb 
00  10  70 
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00  NtAU  (MtUlA)  ( OU1D (M1U*  II*  1  =  1*12) 

M1U  =  M1U  ♦  1 
NtAU  (MtUlA)UX 

IF  tux  ♦  2.0)  9VV*  02*  9V* 

C  Ktxu  IN  MU  VtNSUb  U  FUN  (ilVtN  T*  GXKMA 

C  IHlb  lb  A  UIAPHANUUb  UAIA  bt f  ON  E1THEN  A  DIAPHANOUS  OR  AN  ANU1MX 

02  KtAU  (MtUl A  I TR ' GAMMA 
LHUb  =  1 
J  =  2 

LAVtAI.  iHlb  AbbUMEb  ► INST  MU  ALMATS  WIVtN  AT  .b 
1  =  b 


00002000 

OOUO2UH0 

UUU02US0 

TAPt. 

00002060 


00002920 


Mb  =  1 

C  Nk.AU  FINS  I  btT  Ot-  DATA 


OH 

NtAU 

(MtUlA>UX*UT 

IF 

(UX 

*  0.0) 

OS* 

bo* 

OS 

OS 

IF 

(UX 

♦  H.OI 

HO* 

so* 

HO 

HO 

IF 

(UX 

♦  b.OI 

SS* 

HS* 

SS 

HS 

NtAU  (MtUlA) 

UX* 

UT 

IF 

(UX 

•  Lt.  0 

.0) 

CALL 

UUMH 

ULAbt  =  UX 
ARLAbl  =  UT 
Mb  S  2 
bU  10  OH 

C  HMtN  t-H.)  F0UNU*  TLbl  IF  ULAST *  ARLAST  ALREADY  SET 
bU  1*0  10  (SI*  S2I*  Mb 

51  ULAS1  =  UK  1-1) 

ARLAbl  =  AMU ( l-l ) 

52  U2U)  S  lb. 

IMU(l)  =  ARLAbl  •  (ULAST  /lb.)«*0 
toU  10  7 S 
SS  Ullll  =  UX 
AMU ( 1 )  =  UT 
1  =  1*1 
1*0  10  OH 

bU  IF  (1  -  b)  61*  bl*  6H 
CASE  OF  NO  FlNbl  FHAMt 
bl  LONIlNUt 

HN1IL  tb*b)  TR*  GAMMA 

«  FORMAT  (SUX*28H** ••••••••  LAVE A I  ••••••••••  /HOX*SbH  U1ANC  FOUNU  N 

10  UAIA  ON  IHt  UlAHHANOUb  TAPE  FON  U.LT.1S  /S0X*2»H**«********«***» 

. .  I 


U0002090 
UU0021 10 
UU0C2120 
UU0U2100 


UUU021 70 


U0002190 

UUU022UU 

UUUU2210 

UU0U2220 

00002200 


LALL  UUMH 

C  NtAU  btLONU  bt I  OF  UAIA 
bH  U2 1 1 1  =  Ulll-1) 

I  MU ( 1 )  =  AMUtl-1) 

bb  NtAU  (MtUlA)UX*UT#U2  U0002260 

IF  (UX  *  H.OI  70*  71*  70  00002270 

70  U21JI  =  UX  00002200 

HMU(J)  =  UT  00002290 

IMU(J)  =  U2  OU002000 

U=U*1  00002010 


IF  (0  -  1UMU2I  bb*  bb*  72 
72  HNltt  tb*lb»  1UMU2 *  TR*  NHO*  U210-1) 
70  NEAU  (MtUlA)  UX*  UT*  U2 
IF  tUX  ♦  H.OI  70*  7 H*  70 
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iH 

CMtLK 

BU 


ULASI  =  Uj'IJ-ll 
AKLASI  r  IMU(J-X) 

KtAU  ( MtOl A ) IbAN  r RHO'bXbP t tPSMAL  i  AKAPPA*  BAMBDAt  EIPART  « 6AMNEV 

IMUill  =  AMAXI ! IMU(1> '  LONLiM  •  KHOI 

XMAX  S  i  -  X 

JMAX  S  J  »  1 

JLtSS  =  JMAX  -  X 

KtAU  (MtUlA)UX 

Xh  (AbSlUX  ♦  2.1  .LI.  i.E-HI  6U  TO  70 

Xh  (AbSlUX  ♦  5.1  .LI.  X.t-M)  60  TO  79 

ih  (AbSlUX  ♦  7.1  .LI.  l.E-HJ  60  TO  77 

CALL  UUMP 

NtNU  S  J 

bO  10  BU 

NtNU  =  X 

00  10  BU 

NtNU  =  £ 

SlAIUS  Oh  TEMPtNAIUHE-Ut'XSilY  TABLE  BEXNb  BUILT  hROM  DIAPHANOUS 
Xh  (IK  .Ll.  ll'MXNI  bO  TO  X33 
ih  (IK  .bl.  I  ESI  I  )  bO  10  BBS 
KA  S  KA  ♦  X 

lh  (KA  ,Lt.  XOMKHUI  bO  10  XSO 
HKXlt  (b» XOI  XUMNhO 
bO  10  iJJ 

Xh  (NTHtIA  ,LE«  U I  60  TO  SBB 

KtJttI  DIAPHANOUS  TtMPtKATUKtS  WHICH  OVEKLAP  THE  LOB-THETA  RAN6E 

HHtNt  DAI A  AKE  PKOVXUtU  UT  *SA2SA(F0H  AIHI  OK  CARO  INPUIIFOR  ALL 

Xh  (IK  .LI.  X.UUX  •  iHtl A(NlHETA) I  60  TO  X33 

KEJtCI  HXbHEN  ItMPtKA I UKtS  XT  ST0KA6C  FULL 

Xh  ( JA  .Lt.  NTHtlAI  bO  TO  SB9 

KAMAXUAI  Z  KA 

JA.tU.U  INITIALLY  ANU  KAMAXIUI  USES  IDUOI 
ih  (JA  -  XOMIMI  XHi.  lbU »  1*0 

ih  UK  -  IHMAXI  XHUt  1**U*  XbO 

CALL  DUMP 
NIP  =  lAPtN 

bO  10  (  XHii*  1HH«  30U0 # 3UU1  •  XH  /  )  .  NIP 

IHM  =  IHMX 

bO  TO  XHb 

IHM  =  I  MM2 

bO  10  XHb 

CONIlNUt 

IHM  =  I MM3 

bO  10  XHb 

LON I XNUt 

IMMS  IhMH 

bO  10  XHb 

IHM  Z  X.tT 

XF  (IK  .LE.  1HMI  60  10  XHb 

NtNU  Z  2 

bO  10  X33 

JA  :  JA  M 

I LSI  I  =  TK 

IHt IA( JAI  Z  AL06IIKI 

KA  *  X 


UU002JJ0 

UU002JH0 

UO002JS0 

UU0023b0 

UU002J70 

00002000 

UU0U2390 


U0002H20 

U0U02H3O 

OU002HH0 

DATA 


ELSE) 


UU002S30 


0U002SS0 


UU002S70 

UOOO2S0O 


O0002BU0 

900026X0 

00002620 
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IUU.I  •  0.2*  UlMCMUl 


150  OU  I U  (IS1#  b4UI»  LMUtJ 

C  FILL  IN  MU  VS  U  FUK  U  =  U.  —  .to  •“  UStD  LATER  ONLT  IF  UTU  .GT.  .to 

151  UO  14V  IX  Z  l*  S 

14V  AMUllXI  z  AMU (to )  •  21b. U/  FLOAT(lXI**3  00002640 

FLlNI  =  U.l 
UIF  ;  UHNUUI  /  IK 

It-  (ULAST. GT. 14. V  .ANU.  ULtSS.Ot.il  GO  TO  1S4 
CUNSIMULl  lAtoLt  OF  MU  Z  U**-3  AS  FAN  AS  NttDtU  FOM  ULAST  LESS  THAN  14. V 
11  z  IU.U*  (ULASI  -  .USI  ♦  l.U 
UO  IS*  IX  Z  U*  1SU 

UGH  z  (FLOAT (1X1  -  l.UI  •  U.l  ♦  .OS  00002680 

IS*  AMU 1 1X1  Z  AMAX1 1 (ULASI  /  UOHI**3  •  AKLASt  *  LOML1M  •  RHOI 
IF  (UlP  -  14. VI  640*  to4U*  b*8 
6*6  IIL  :  1 

6*/  IF  (UIF  -  IUU.I  to*l*  b*l •  022 
6*1  1IU  Z  (UTP  -  IS. I  •  2.  ♦  1. 

(*U  TU  to*  3 

to**  1IU  z  MINI ( 171  •  ♦  (UTF  •  10U.I  •  0.2*  UlMCMUl 
6*3  UU  to*6  IX  Z  IIL*  ITU 

IF  (IX  -  17UI  6*4.  624*  b*S 
0*4  UGH  Z  (FLOAT (1X1  -  1.1  •  U.S  ♦  1S.2S 
00  10  6*6 

b*S  UGH  Z  (FLOAT (1X1  -  171.1  •  S.  ♦  102. S 

6*0  LMUdXI  Z  AMAX1M ULAST  /  UGHI»*3  •  AKLAST  /  MHO*  L0OL1MI 
OU  10  640 

CONS IMUL I  TABLE  OF  MU  VS  U  AbOVt  0  S  IS*  USING  AVAILABLE  DIAPHANOUS  DATA 
COMKtLIlON  FON  INUUCtU  tMISSlON  UNNCCtSSAHT  FOM  LANGE  U 

1S4  UIST  Z  U2 1 1 1  °°202I?2 

H  S  i  00002710 

INOI1I  S  T MU (II  /  MHO 

UU  636  JX  -  1*  ULtSS  00002730 

03*  IX  Z  IX  ♦  1  00002740 

It-  (UISI  -  UTPI  633.  633*  040 

633  IF  (IX  -  1701  63S*  63S*  031 

b3s  uu  z  u.s 

OU  lu  631 
637  UU  =  S.U 
631  UIS(  =  UIST  ♦  UU 

It-  (UISI  -  U* ( JAFl 1 1  634*  636*  636  00002760 

634  CMUUXI  Z  tXPIALOGI IMUIJXI I  ♦  ALOGIBMUI JX+1 I  t  TMU(JXI)  /  AL06(U2(00002770 
1 J A* 1 1 /U* ( JX I  I  •  ALOG(UIST/U*(JXl I  I  /  HMO 

IF  (IX  -  1UMCMUI  632*  63V*  63V 

636  IX  T  IX  *  1  00002600 

UISI  Z  UIST  -  UU 

636  LUNllNUt  00002620 

IIL  =  IX 
00  IU  6*7 

63V  OKI  It  (6**1  TK*  MHO*  UTSI 
640  SKPIJA.KAI  Z  0.0 
SKKIJA.KAi  Z  0.0 

C  btOlN  DIAPHANOUS  FNtUUtNLT  LOOP 
UO  13*  I  :  I'  NSCT 


00002620 


TK*  MHO*  UTSI 


IIP  Z  TPIl-ll 

IF  (1  -  NSCT I  61*  62.  143 
61  MHNU  Z  1UMHNU 


00002640 

000026S0 
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00  10  84 

02  MHNU  =  NHNU  -  1UMHNU  •  11  -  1) 

04  00  140  1A  =  1*  MHNU 

1AI  =  1A  ♦  IUMHNU  •  U  -  11 
UtL  =  tJHNU  1 1  AT ♦  1 1  /  TK 
UIU  S  bHNUUAT)  /  TK 
00  10  I 00 f  42b)  •  LHUtJ 
C  PHOttbb  HUtUNEM  UAT  A 

42b  1L  =  AHA A 1 i 100 •  •  IUTL  -  .UUb)  ♦  1.,  1.) 

1U  =  AMIN1I100.  •  (UTU  -  .UUb)  4  l.«  4000.) 

I- L1NI  -  U.U1 
hN  =  1. 
bUMKAH  =  U.U 
bUMHKA  =  U.U 
UIL1  =  UIL 
UIU1  =  UIU 

LlL  =  tXHI-UH.1) 

LIU  =  LXHt-UlUD 

IK  IUIU  .LT.  4U.U1)  00  10  10b 

II-  (UtL  .LT.  0U.)  00  10  44U 

AKI  I  1A)  =  L0NL1M 

MKI 1 1 A )  =  L0«L1M 
00  10  12b 

C  4lb  /  •  /22  /  lb  4U««4  •  lb  /  Hl«*4 

44U  bUMMKA  =  HU0MU14UOO)  /  MHO  •  41b). 7227  4  (LlL  -  tTU) 

ItMML  =  tIL  •  U.  ♦  UIL  •  12.  ♦  UtL  •  14.  ♦  UTL  •  <4.  ♦  UTL  •  lb. 
2  ♦  UtL  •  (0.  ♦  UTL  •  I).  ♦  UTL))))))) 

II-  IUIU  .LT.  60.)  00  10  44b 

ILNMU  =  U.O 
00  10  44U 

44b  I LNMU  S  tlu  •  U.  ♦  UtU  4(2.  4  UIU  4  14.4  UTU  4  (4#  ♦  UTU  •  lb.  ♦ 
2UIU  Alb.  ♦  UTU  •  U.  ♦  UTU  !>)>))) 

C  b./044244L-b  lb  lb  /  H14A4  /  I404AJ) 

440  bUMKAH  s  b.7044244E-b  /  MU0MUI4OOO)  4  MHO  4  ITERML  -  TERNU) 

II-  I1L  .Ot.  4000)  00  10  11/ 

OO  10  lUb 

00  II-  IUIL  -  14.9)  VO#  VI#  VI 

VU  1L  =  AM AX 1 110*0  4  (UTL  «  .Ob)  4  1.0#  1.0) 

O0  10  V4 
VI  UIL2  =  UtL 
U  f U2  =  UtU 

C  UO  KObbtLANU  ANU  HLANCK  AVLMAGEb  FOR  U  OVER  15 
V4  bUMKAH  S  0. 
bUMHKA  :  0. 

II-  tUIL2*»  U2I1D  bbO#  bbO*  bb2 
bbO  1L  S  1 

00  10  bb4 

bb2  11-  IU1L2  -  U2I1)  -  0b.  I  bb4»  bb4#  bbb 
bb4  1L  :  2.  •  IUTL2A  .b  -  U2I1)) 

00  10  bb4 

bbb  1L  s  1/1.  ♦  U.2  •  (UTL2  -  U2I1)  -  6b.) 
bb4  IK  IUfU2“  U2 ill)  bbb#  bbb#  bbb 
bbb  1U  -  1 

00  10  bbU 

bbb  IF  IUTU2  -  U2tl)  -  bb.l  bb/»  bb7,  659 


00002000 

00002670 

00002060 

00002690 


00002V60 
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6S/  10  =  2.  *  (0102*  .b  -  02(1)1 
00  10  bbU 

bSV  10  =  170.  ♦  0.2  •  (0T02  -  0211)  -  8b.) 

6bO  It-  (10  .LI.  10MCMO)  (ill  10  bb7 
1)-  (1L  .LI.  10MCM0)  60  TO  bbl 
AKI(IA)  S  LOHLIM 
FK  I ( 1 A )  2  LODLIM 
60  TO  12b 
bbl  10  2  10MCM0 

OIOF  2  l FLOAT ( 10MCMO)  -  170.)  •  b.  ♦  8b.  ♦  02(1) 

II-  (OIOF  ,LT.  1000.)  HHITt  (6>  lb)  TK»  RHO.  1A T.  OTO.  OTOF 
bbT  00  b7b  IX  =  1L»  10 

It-  (IX  .61.  170)  60  TO  bbJ 

OOX  =  O.b 
AOO  =  0. 

1 AOO  =  0 
60  10  bbb 

bbb  oox  s  b.o 
AOO  2  bb.o 
1 AOO  2  1 70 

bbb  1)-  (IX  .61.  1L!  60  TO  bbb 

OXL  =  0IL2 
60  10  bbb 

bb*»  OXL  -  (FLOAT (IX  -  1AU0)  -  1.0)  •  DOX  ♦  AOO  ♦  02(1) 

bbb  1)-  (lx  -  10)  bbb.  b70 «  b70 

bbb  0X0  2  (FLOAT (IX  -  1 AOO) ) •  OOX  ♦  AOO  ♦  02(1) 

60  (0  b  72 
b  70  0X0  2  0102 

b/2  tXL  S  tXFl-OXL  ♦  0TL2) 

tXO  2  EAFl-OXO  ♦  0TL2) 

FLN  2  . Ibb9b97bb  •  (tXL  •  (((OXL  ♦  5. )  •  OXL  ♦  b.)  •  OXL  ♦  b. )  * 

2  tXO  •  (((0X0  ♦  J.)  •  0X0  ♦  b.)  •  0X0  ♦  b.)> 

C  NO •  E  -  .lbbVb97bb=  lb.  /  FI 


bONFXA  S  bOMFKA  ♦  CMO(IX)  •  FLN 
b/b  bO»«  AF  =  bOMKAF  ♦  (FLN  ♦  .OJbbVTbJJ  •  (OXL**b  •  tXL 
2))  f  CMO(IX) 

C  NO  IF.  -  .OdbbV7bJJ2  lb.  /  (H  •  Fl*»b) 


OXO**b  •  tXO 


II-  (bOMKAF)  120.  120>  b // 
b //  tlL  =  1. 

tIO  S  tXFl-0T02  ♦  0IL2) 

FLN2S  ,lbbVb97Jb  •  It IL  •  ( ( (0TL2+  S. )  •  UTL2*  6.)  •  0TL2*  b.)  - 
2  tIO  •  ( ( (0T02+  J.)  •  0T02F  b.)  •  0T02F  b.)) 

0tN0M2=  FLN2F  .0bbHV76bb  •  (0TL2*M  •  tTL  -  0T02**H  •  ETO) 

IK  (OIL  -  lb. 9)  b/b.  bbO.  bbO 
b/b  tlb  2  tXFl-oTL2) 

OtNOM  2  0EN0M1  ♦  0EN0M2  •  tlb 
FLN  2  FLN1  ♦  PLN2  •  tlb 
bOMKAF  2  bOMKAF  •  ETS  ♦  S0MKF1 
bOMFKA  2  bOMFKA  •  tlb  ♦  bOMFl 
60  TO  12b 

bbO  KM  s  tXF(-0TL2) 

OtNOM  2  0tN0M2 
FLN  S  FLN2 
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bU  lu  14b 

C  UU  KUbbtLANU  ANU  HLANCK  AVtKAGEb  FOR  U  UNDER  lb 

LUKKEtllUN  F UK  INUUCtU  EMlbblON  HUbTHONEl)  TO  WITHIN  INTEGRATION  LOOK (NEAR  11(1 
V4  UIL1  =  U 1 L 


C 

C 

c 


c 


F  H  —  1  • 

IF  (UIU  -  .11  Vb*  Vb.  4b 
4b  1U  =  1 

UIU1  =  UIU 
bU  IU  1U4 

Vb  IF  (UIU  -  lb. 01  10U.  100*  1U2 

1UU  IU  =  1U.U*  (UTU  -  .Ub>  ♦  l.U 
UTU1  =  UIU 
bU  IU  1U4 
1U4  UlUl  =  Ib.u 
U1L4  =  Ib.U 
u  r  u4  =  uiu 
lu  =  lbu 

1U4  bUMKAH  =  U.U 
bUMHKA  =  U.U 
tIL  =  tXH  I  -UTLl  • 
tIU  Z  tAFM-UlUl) 

if  (uiu  .le.  u.bi  uo  ru  IU 7 

lUb  UU  lib  IX  S  IL*  IU 

IF  (IX  -  111  lUb*  lUb  *  lUb 
lUb  UXL  Z  UlLl 

uu  ru  nu 

lUb  UXL  Z  (FLUAT(IX)  -  U.bl  •  FLINT 
UU  CUNIlNUt 

IF  (IX  .bt.  lUi  bU  IU  114 
UXU  Z  (FLUA 1(1X1  ♦  U.bi  •  FLINT 
bU  IU  11b 
114  UXU  Z  UlUl 

IK  UbAK  S  U.b  •  (UXL  ♦  UXU) 
tXL  =  EXH(-UXL) 

L XU  Z  EXH(-UXU) 

Lit  =  1.  -  EXH(-UbAK) 

IHL  HUtUNLK  ANU  U 1 AHHANUUb  UATA  ARE  STOHEU  IN  THE  SAME  PLACE. 
Lit  lb  I Ht  CCRHEtllUN  FUR  INUUCtU  EMiSilUN 


UU003Ub0 

00003060 

U0003UH0 

OU003UV0 


UU0U3110 


U0003120 

UU003130 

UU0U3140 

UUOUSlbU 


U00031V0 

U00032U0 

U0003410 

UUU03220 

UU0U3230 


AKNH  s  AMU (IX)  /  KHU  •  LIE 
HLN  Z  F'LNKU  I  (UXL  ►  UXU) 
hUMHuA  Z  bUMHKA  ♦  HLN  •  AKNH 

Ub  bUMKAH  Z  bUMKAH  ♦  (HLN  ♦  .U38**V7433  •  (UXL**4  •  00003250 

1  t XL  /  (1.0-  EXL)  •  UXU«»4  •  EXU  /  (l.U-  EXU)  M  /  AKNH  00003460 

bU  IU  11/ 

ANALTI1L  FIT  FUR  UHl’bt  bANU  UNDER  Uz.b 
IU/  bUMKAH  z  HHO  /  AHU(b)  •  .U4b4P**  •  (UTU**b  •  (1.  •  .416660067  • 

4  UIU)  -  UIL**b  •  (1.  -  .41bbbb  u7  •  UTL)) 
bUMHKA  z  AMU ( 6 >  •  .Ulb4b4b  /  RHU  •  (UTU  -  UTU 
11/  HLN  Z  HLNKUT (U I Ll *  UTU1 ) 

IF  (HLN)  12U .  140*  11V 

11V  UtNUM  "  HLN  ♦  .U384V7433  •  (UTL1*«4  •  CTL  /  (1.0- 

1  E ID  -  UIU1««4  •  EIU  /  (l.U-  ETUI > 

141  IF  (bUMKAH)  14U.  140.  122 

14U  CALL  UUMH  00003320 
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122  It-  IUIU  .Lt.  19.0  .OH.  LHUtt  .EG.  2)  GO  TO  126 
UtNUMl  S  UtNOM 
SUMKPi  =  SUMKAP 
SUMP1  S  bUMPKA 
PLN1  =  PLN 


vjO  IU 


lib  AKII1A)  =  UtNOM  /  bUMKAP 

PK I  1 1A)  =  SUMPKA  /  PLN 
129  CALL  UVCMK  (KUOUM) 

jKPIJA.KA)  =  SUMPKA  •  t-H  ♦  bKPlJA.KA) 
bKK l JA * KA I  =  bUMKAP  •  t-H  ♦  SKHIJA.KA) 

CO  IU  (1140*  11411*  KOUUFX 

1140  CALL  UUMP  U00044V0 

1141  It-  ( AM  INI  I  PK  T  1 1 A )  *  AMI  1  At  )  )  1140*  1140*  12V 

12V  PKIIIA)  s  ALOGIPKI  HA) ) 

140  AKIIIA)  =  ALOGIAKTt 1A) ) 

C  b  I  U  H  1  N  0  LOG  KAPPA  00004V10 

It-  11  -  It  141*  141*  14V 

141  UO  127  1A  =  1*  MMNU 
PK  I  1A*  JA  *  KA  )  =  PM  1 1 A I 

12/  AM  IA* JA*KA)  =  AKIUAt 
GO  10  142 

14V  MM  lit  (IIP)  lAKIIlA)*  PK  T 1 1 A) •  1A  =  1*  MMNU) 

142  CUNIlNUt 

It-  I  AM  INI  lbKP( JA*KAI  •  bKHIJA.KAI  )  i  1420*  1420*  1421 

1420  CALL  UUMP 

1421  bKP l JA*KA I  =  ALOGlbKPl JA*KAI) 
bKK I JA*K A)  S  “ALOGIbKH I JA*KA 1 1 

HU I JA* K A )  S  -ALOGIHHOI  00004V60 


144  GO  IU  142*  199*  410*  499)*  NtNO 
199  It-  llAPtN  -  TAPE9I  ISO*  160*  160 
196  lAPtN  =  IAPLN  ♦  1.0 

■Hllt(6* 7U12I  MtUlA.  THM 

7012  t-OHMAf  (99H0UlANt  HAb  UNlSMtO  HEAU1NG  FHOM  THE  INPUT  TARE  ON  UNI  I 

1  .  14*  1H./9UM  IME  MIVMESI  lEMPtHATURE  I AREN  FHOM  THIS  TARE  MAS  * 

2  ► 12. V) 

MtUlA  =  MEDIA  ♦  1 
GO  10  22 
160  UAMAX  :  JA 

KAMAAIJAI  S  KA 


00D04VB0 
00004V VO 


00004900 

00004940 

000049VO 


•Milt  16*7012)  MtUlA*  TMMAX 

■  Kilt  D  1  A  N  t  tape  AND  EU1T  RESULTS  00004980 


HtalNU  11 

UO  9V6  1  s  2*  NbCI 

1TP  =  I P l 1-11 
9V6  Mt«lNU  UP 
nhu  =  0 

UO  166  JA  S  1*  JAMAX 
166  NMU  =  N»U  ♦  4  •  KAMAXIJA)  ♦  2 
►N6U  -  Nau 

■HI  It  111)  10A*  IIUIU*  1  =  1*12) 

■HITt  111)  HNU1*  FNMU 
■Hilt  16*121 

■HITE  16. 700V)  (10(11*  1=1*12) 

■Hilt  (6*11) 


00004760 

00004770 
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i  «u  =  1 

UO  IttU  JA  =  1*  JAMA* 

KAM  =  KAMA* I JA) 

MKIHLI  =  t  XP I TMt I  A ( JA I I 
*HHL  (b*b  I  PMlHtl 

UO  1 /</  KA:  1.  KAM 
HH  PCMAIKAI  =  EXP  I ~MU I JA*  KA I 1 
1B0  HMlIt  (b*7l  (PCMAIKAI •  KA  =  1,  KAMI 
► JAMAX  =  JAMAX 
UO  1/b  1=1*  N6CI 

‘1  “  NbCT I  lbl*  162*  143 
lbl  MHNU  =  1UMHNU 
00  1u  163 

IW  MMNU  =  NHNU  -  1UMHNU  •  <J  “  1) 
lbJ  IP  U  -  1)  172  *  172.  164 

164  IIP  =  IKU-n 

UO  16b  JA  S  1*  JAMAX 
KAM  =  KAMAX(JA) 

UO  16S  KA  =  1.  KAM 

}“  •*  *  ••  ■*«<> 
1AI  :  IA  ♦  1UMMN0  •  (1  -  1) 

•  Hilt  111)  HHNU 1 1 A  T  ♦  1 1  •  F JAMAX 
•Milt  (b.  bl  bHNUt 1A 141 ) *  UHNUI1A1I 
1HU  =  1 

UO  170  JA  =  1.  JAMAX 

PKIMtl  =  tXPITHt I A ( JAi  I 
•Milt  Ib.blPMlHtl 
KAM  =  KAMAX(JA) 

BUPbllBUI  =  iHtl A (JAi 
bUPbl 1»U  ♦  II  =  KAM 
1 HU  =  1  HU  ♦  2 
UO  lb/  KA  S  1*  KAM 

bUPSIlHUI  =  AK ( 1 A  *  JA*  KAi 
UUPbllHUtl)  =  PK 1 1 A  * JA  *  KA I 

uupsuhuh^i  r  mu(ja*kai 

1HU  =  1HU  ♦  J 

IP  UHU  »Lt •  XUMbUFI  00  TO  167 
•Milt  (b* 1 I 
CALL  JUMP 
lb/  CONllNUt 

UO  lbb  KA  S  1*  KAM 
Ibb  PCM A (KAI  =  EXP  I PK 1 1A • JA  *  KA 1 1 

•Milt  lb*7l (PCMAIKAI *  KA  =  1*  KAMI 
UO  IbV  KA  S  1*  KAM 
lb*/  PCMAIKAI  =  tXPI  AK  ( 1A*  JAiKA  1 1 
I/O  MMUt  lb*  71  (PCMAIKAI  *KA  =  1,  KAMI 
1/1  HMltt  I 11 I (UUFbl 1HUI •  IkU  =  1*  NMD I 
1/8  CONTlNUt 
1  HU  =  1 

blLLY  =  -bMNUIll 

■Milt  (111  blLLT*  F JAMAX 

■Milt  (b* 14) 

UO  1/6  JA  S  1*  JAMAX 
PMIMtl  =  tXPITHt TAI JAI I 


00003640 

00003660 

00003670 

00003680 

00003600 


00003/10 

00003/20 

00003/40 

00003/60 


00003820 

00003830 

00003840 

00003860 

00003860 


00003880 

000Q3V00 


00003V30 

00003V80 

00003*60 

00003*70 

00003*80 

00003*90 

00004000 
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•  Milt  l  b  •  b )  PM  THt  I 
AAM  S  AAMAXIJA* 
bUPSUHU)  :  THtlAUA) 

UUPbUHU  ♦  1)  =  A  AM 
1HU  =  i«U  ♦  i 

UU  17/  AA  Sit  A AM 

mjt-siiMu;=  sarija«aai 

UUPbimU*!)  =  bAPlJAtAA) 

UUPbl  lkU+2 )  =  MUIJAtAAl 

m  mu  s  mu  ♦  i 

UU  1  It  A A  :  1  *  AAM 

17b  PCMAIAA)  =  tXPlhAPt  JAtAA)  » 

AM1 1 L  Ibt  It  (PCMAIAA)  i  AA  =  1#  AAM) 

UU  174  AA  S  1«  AAM 

174  PCMAIAA)  r  tXPlhAMl JAtAA)  I 
1 IU  HM  lit.  Ibt  7)  (PCHA(AA)  tAA  Z  It  KAMI 

MKirt  (HMuuFbiiMO)t  mu  =  it  nwdi 

LNU  Fltt  11 
MbHlNU  11 

•Mirt  Ibt 7UUU )  NUbCATIbCAT^l) 

KtIUHN 

LNU  U0004U20 
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(continued) 

CARD 

PUNCHED  FORMAT 

COLUMNS 

USED 

NAME  IN 

PROGRAM 

DESCRIPTION 

1st  card  of  12 

each  set 

75  -  76 

IX 

2 -digit  sequencing  number; 
indicates  the  order  number 
of  each  frequency  grouping 
set 

1st  card  of  13 

each  set 

78  -  80 

KK 

3-digil  sequencing  number; 
indicates  card  number  with¬ 
in  a  particular  frequency 
grouping 

1.  Lot  there  be  M  9  values:  8.  ,  8-,  ....  0% , 

12  M 

2.  Let  there  be  N  t  values  (N=n  r  values  at  8^  +  n^  r  values  at 

8  +  .  .  .  +  n  t  value s  at  9,  ) 

2  M  M 

3.  Then  FNWD  =  3N+2M 

Thus  FNWD  counts  all  the  words  on  records  of  card  type  5 
only 

The  total  number  of  groups  of  cards  that  will  be  punched  by  the 
DIANTC  program  is  HNUT  (the  number  of  frequency  groups)  plus  the  group 
of  grey  absorption  coefficients.  This  number  is  indicated  in  the  routine  by 
this  arithmetic  statement: 

NVECES  =  HNUT  +  1. 

Each  set  of  cards  punched  for  a  frequency  group  consists  of  XI,  X2, 
and  (BUFS  (IWD),  IWD  =  3,  LAST). 

The  cards  are  sequenced  numerically  in  two  ways:  (1)  by  the  order 
number  of  the  frequency  group  set,  and  (2)  within  each  frequency  group  set. 

A  number  (IX  in  the  program)  is  punched  in  columns  75  and  76;  this 
is  the  order  lumber  of  the  frequency  grouping.  It  ranges  in  value  from  1 
to  NVECES,  as  there  are  NVECES  groups  punched. 

Another  number  (KK  in  the  program)  is  punched  in  columns  78  through 
80,  and  this  indicates  the  card  number  within  the  frequency  group  set.  The 
card  numbers  within  each  particular  frequency  grouping  range  from  0  to  KX, 
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where  KX  is  determined  this  way: 

KX  =  NWD/6,  NWD  is  a  multiple  of  6 
or 

KX  =  (NWD/6)+l;  NWD  is  not  a  multiple  of  6 

There  is  also  a  counter  (NOC  in  the  program)  that  indicates  the 
number  of  cards  punched  by  the  routine;  it  calculates  that  number  in  this 
way: 

NOC  =  NVECES  *  (KX+1)  +  3 

Before  using  the  DIANE  cards -to -tape  program,  remove  the  run  card; 
then,  the  output  cards  punched  by  DIANE  tape -to-cards  may  be  read  in  by 
the  cards-to-tape  program. 

NOTE:  The  run  card  must  be  removed  before  using  the 
DIANE  cards-to-tape  program. 

The  DLANCT  (card-to-tape)  program  can  read  the  DIANE  cards  and 
recreate  a  binary  DIANE  tape.  Cards  1  and  2  form  the  first  tape  record. 
Card  3  forms  the  second  tape  record.  Card  4  forms  the  third  tape  record. 
The  fourth  tape  record  contains  BUFS  (IWD),  IWD  =  1,  LAST,  Records  of 
type  3  and  4  are  repeated  until  the  tape  is  complete 

GREYS:  A  GREY  OPACITY  TAPE  FROM  DIANE  DATA 

Grey  opacities  are  defined  to  be  those  Rosseland  and  Planck  means 
over  the  entire  frequency  spectrum:  0  <  hv  <  ®.  The  DIANE  code  calculates 
an  approximation  to  these  (as  well  as  to  the  Rosseland  and  Planck 
means  over  specific  frequency  bands  as  determined  by  input  parameters) 
from  data  produced  by  the  GA  DIAPHANOUS  code  or  the  LASL  ANN  code. 
(The  grey  frequency  bund  is  taken  to  be  10  eV  <  hv  <  10  eV.  ) 
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bUBHUUT  1NE  bHEtb 
C 

C  COUEU  bT  LAURA  K.  NOKKlb  JANUAMY*  1967 

C 

C  UbEM  MUbl  MKllL  UN  A  TARE  UN  LOblCAL  UNIT  11 

C  I H lb  PMUbMAM  HILL  AUD  A  bt I  OF  bR£Yb  TO  I  HE  bRET  OPACITY  DIANE 

C  IAFE  F  MUM  1NPU I  LAMUb 

L 

COMMON/bHETAP/AMKATdUSbl  »  I  11 LE  Ob )  •  1 U  ( 12  I 
L 

C  FORMA  lb 

L 

1  F  UHMA  I  (112/12Abl 

i  F  UMMm  t  IOE12. n 

i  FOMMAI  (01*0 
4  F UHMA I  dSAbl 
b  F  UHMA  I  (1J#9X#E1«!.7J 
b  F UHMA I  (lH0’12Abl 

/  F UHMA I  (1H0»27H  I  HE  NUMBER  UF  6MEY  SETb  IbdJ) 


L  =  11 
HENlNU  L 

KbE  I  lb  I  HE  NUMBER  UF  bETb  OF  6KEYS  TO  BE  AUDED  TO  THE  TAPE 
HEAU  IbOl  KbE  I  *  NEH  I  AH 

INITIALISE  IbON  ANU  HEAU  ANU  HKHE  A  TITLE 
IF  (NEHlAP.EU. Ul  bO  TU  10 
IbbN  =  -1 

HEAU  (b*4l  (Til LE (11* 1=1 » Jb) 

WHITE  ID  ITlILEllJ*I=l*Jb» 
bU  TU  1UU 


bPACE  TAF>E  IU  PROPER  POINT 
10  CONTINUE 

HEAU  ID  (TlILEdldSlObl 
20  CONTINUE 

HEAU  (LI  lDNU'(lU(l)'l=lfl2)'IbGN 

IF  UbbN.bT.U)  bU  TO  bU 

HEAU  (LI  HNU*  XNHU 

HEAU  (LI  XMATNU#  TEMPNU 

NHU  =  XNHU 

HEAU  (LI  (AHKAT(l) » 1  =  1  *  NHU  I 
bU  TO  2U 

bU  CONTINUE 
BACKbPACE  L 
1UU  CUNI1NUE 

HEAU  U1ANE  INPUT  CAKOb 
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UO  ibO  U=i*Kbtl 

Kt.AU  lb*il  iUNO*  liUlil  *  l  =  i*  i2» 

Nt.AU  lb»*>  HNU*  AN>U  • 

N«U  =  XNnU 
L 

t  HNU  ib  IHt  NUKbtK  Of  fNtQULNCT  OHOUPb  ON  THt  ONiOINAL  OlANt  TAPt 

t  XN«U  ib  IHt  NUKbtH  Ov  ■UNUb  iN  A  FHtQUtNCY  OKOUP 

t 

KtAU  tb*2>  AHAINO* ILHPNU 
C 

t  AHAINO  ib  IHt  bPUl ItH-tiONf 3  HAItHiAL  NUNbtH 

t  JAMAK  ib  fHt  NUHtJtN  Of  TtNPtRAlUHtb  IN  THt  FNtOUfcNCY  6K0UP 

t 

KtAU  i b • ^ >  (AKKAT(I)f iSlfNKUl 
■Kilt  ID  1UN0» tlU(i) • i~l*l^l » Ibl»N 
•Hilt  ID  HNU*  XNBU 
■  Kilt  ID  XHATNO* ItNPNU 
•  Kilt  ID  I  AKKAt I i ) # {Si tNMUi 
ibON  -  ibl»N  ”  i 
ibO  LONIiNUt 

tb I AULibH  A  blONAL  =  PUbillVt  NUHfltN  Of  UKtYb  ON  THt  TAPt 
ibON  =  -IbON  -  1 
KtAU  lb*l»  I UNO*  I IUI i I « isi *  121 
■Kilt  ID  IUNO*  IIUIII*i*l»i2i*  ibliN 
tNU  fiLt  L 
KtViNU  L 

■Kilt  !■*■)  ITiTLt l i I » iSl* Obi 
■Kilt  !■•/)  Ibt»N 
KtIUHN 
tNU 
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DIANE  results  are  available  as  magnetic  tape  files  .md  as  card  decks. 
The  FORTRAN  IV  GREYS  program  c  m  read  these  card  decks,  select  the 
grey  opacities  from  each  given  (input)  DIANE  card  deck,  and  produce  a 
data  tape  (called  the  GREY  tape)  which  contains  only  the  grey  opacity  set 
for  each  material  present. 

The  GREY  tape  has  an  initial  heading  record.  Then,  for  each  set  of 
grey  opacities,  the  heading  record  of  the  DIANE  input  card  deck  is  written 
and  is  followed  by  its  concomitant  grey  opacities.  The  set  of  grey  opacities 
for  each  material  is  in  standard  DLANE  tape  format. 

The  GREYS  program  either  writes  a  new  tape  or  adds  grey  sets  to 
an  old  tape.  This  feature  of  the  program  allows  grey  sets  from  later  DIANE 
runs  on  new  materials  to  be  added  to  the  GREY  tape  without  completely 
rewriting  the  tape. 

A  program, EGREY,  has  been  written  in  FORTRAN  IV  language  to 
edit  the  GREY  tape,  and  may  be  used  as  a  subroutine  of  GREYS. 

Input  for  GREYS 


CARD 

NO. 

1 


2-4 


INPUT  VARIABLE 

COLUMNS 

FORMAT 

KSET 

1-4 

14 

NEWTAP 

5-8 

14 

TITLE  Ar.ay 

1  -72 

12A6 

KSET 

NEWTAP 


TITLE 


The  number  of  grey  sets  to  be  added  to  the  tape 

If  NEWTAP  t  0,  the  program  writes  a  new  tape;  if  NEWTAP  = 
0,  the  program  adds  new  grey  sets  to  the  previous  GREY  tape, 
and  cards  2  through  4  are  not  read 

An  array  of  36  alphanumeric  words  that  are  written  on  the 
GREY  tape  as  a  header  record 


The  DIANE  tape  format  is  specified  in  a  separate  writeup. 
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EGREY:  AN  EDITING  CODE  FOR  THE  GREY  OPACITY  TAPE 


The  program  EGREY  was  written  in  FORTRAN  IV  language  to  edit 
the  GREY  tape.  EGREY  is  an  adaptation  of  EDIANE,  a  routine  that  edits 
a  DIANE  tape. 

EGREY  reads  the  GREY  tape  and  edits  either  the  entire  tape  or  only 
specified  grey  sets,  as  determined  by  input.  Also  refer  to  the  GREYS  code 
writeup. 

Input  for  EGREY 


CARD 

NO. 

INPUT  VARIABLE 

COLUMNS 

FORMAT 

1 

NSET 

1-5 

15 

2 

XMAT(!) 

1-15 

El 5.  8 

XMAT(2) 

16-30 

El 5.  8 

subsequent 

up  to  NSET 

etc. 

cards 

NSET  The  number  of  grey  sets  to  be  edited;  if  NSET  =  0,  the  whole 

tape  is  to  be  edited 

XMAT  The  array  of  material  numbers  corresponding  to  the  grey 

sets  to  be  edited;  this  array  must  be  in  the  same  order  as 
the  grey  sets  on  the  tape;  if  NSET  =  0,  the  XMAT  array  is 
not  used.  (Only  the  first  input  card  is  required  in  this  case.) 


REDGRE:  TRANSFER  OF  GREY  OPACITY  DATA 

REDGRE  is  a  FORTRAN  IV  program  written  to  obtain  opacity  data 
from  the  GRFY  tape  for  use  in  other  programs  (refer  to  GREYS  writeup). 

The  GREY  tape  contains  opacity  data  for  many  materials.  For  each 
material,  there  is  a  set  of  data  containing  temperatures  and  densities,  and 
Rosseland  and  Planck  opacities  at  these  temperatures.  (The  Rosseland 
and  Planck  opacities  are  computed  at  the  given  temperature  and  at  the 
specified  densities.  )  REDGRE  reads  desired  opacity  sets  for  desired 
materials  from  the  GREY  tape  as  determined  by  input.  REDGRE  either 
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c 

c 

c 

c 

L 

C 

C 

C 

C 

C 

C 

C 

C 

C 

t 

c 

C 

C 


C 

C 

c 


c 


c 


SUUKOUllNt  tONtT 

CUUtU  UT  L ALIMA  M.  NUKK1S  JAnUAKT *  1967 
UStK  HUSl  HtAU  KKUN  A  I  AML  UN  LUOICAL  UNIT  lU 

IMIS  HKUOKAM  KtAUS  ANT  NUMBtK  01-  StTS  UK  OKtTS  ACCUKOlNto  TO  THE 
MAItKlAL  NUMbtM 

tUllS  IHt  TAKE  MAUL  UT  OMtTS  IN  I  Ht  KOLLUNlNO  HANNtK 
IHtTA  KATHtM  THAN  LN  IHEIA 
HHU  KATHtM  THAN  LN  !AU 


1NMUI  VAK1ABLES 

NStl  IS  IHt  NUMBER  UK  St  IS  OK  OHcTS  TO  Ut  Kt AO 

XMAT  IS  AN  AKKAT  OK  MATtKlAL  NUMBERS  WHICH  INDICATE  WHICH 

MAftKIALS  AKt  TO  Bt  HEAD  KKUM  THE  TAPt 

UlMtNSIWN  KENT  (4UI  *KKAHKl<4UI  # KKAPPI 60)  *OtNS(40l 
UlMtNSlUN  XMATUUU! 

CUMMON/OKtT AK/BUK  S ( 1UUU I  •  T 1  T  L£  (  36)  *  10  ( 121 

11  =  1  \ 

KtAlNU  11 

NtAU  (S* 1U2UI  NStl 

HtAU  (S*113UI  (XMAKIIiUIiNSETI 

J  =  1 

KStl  =  1 

MLINt  =3 

HtAU  (111  l  I  ITLt( 1 1 * 1  =  1*361 

HK 1  1 1  (to* 1UUU)  (TIT Lt (11*1  =  1* 36 1 
IK  (NStl  .EU.  U I  00  TU  Vl) 

1U  CONIlNUt 

HtAU  (111  1UA*(1U(1)*1=1*12I* ISBN 

HtAU  (111  HNU*  XNWU 

Kt AU  (111  XNO*  KJAMAX 

IK  (XNU.tU.XMAI  (Ul  I  OU  TU  1(IU 

NX  =  XNWU 

J  =  U  ♦  1 

HtAU  (111 

KEAU  (111  ( BUFS ( 11*1=1* NX I 
OU  TU  1U 
VU  CUNIlNUt 

Kt AU  (111  1UA*(1U(1I* 1=1*121* ISON 
OS  CUNTINUt 

Kt AU  (111  HNU* XNWU 
KEAU  (111  XNU*KUAMAX 
1UU  CUNTINUt 


0(130 

0UM0 


ouao 


0160 
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112 


11b 


120 


122 


12b 


NX=XN»U 

MAItHt  =  XNU 

0130 

JAMAXSFJAMAX 

0170 

!»■  IMtlNt  .tl).  Ui  HNlIt  lb.1090) 

■Hilt  Ib.lUlU)  1UA *  HUIlli  in. 12).  MATEKt'NX 

0180 

NtlNtSMtlNt*b 

0190 

MLINt-U 

0200 

■Hilt  tb.lU3U)  JAMAX 

Ht»u  ill)  (bUfbiu.in.NX) 

0220 

RCNI  li)*U 

02b0 

NCNIS1 

0270 

1)0  13U  JA  =  1. JAMAX 

0260 

IMt  1  AStXH IBUFblNtNT ) ) 

02MC 

A  AHAX^UOf- b  INtN  T  ♦  1 ) 

0300 

1)-  INtlNt  .Lt.  bU)  00  10  112 
■Hilt  lb. 1110) 

0310 

NtlNt=b 

0340 

■Hilt  Ib.lObO)  THtTA.  XANAX 

03b0 

NtlNtSNtlNtO 

03b0 

uo  lib  isi.2b 

03/0 

UtNbll)=U.O 

0360 

►KAHHIIISU.U 

03')0 

FKAMHIDSu.U 

0400 

tONIlNUt 

0410 

UO  120  KA=1. KAMAX 

0420 

lAAPH-NON I ”1AJ*A A 

0430 

1  RAFF'S  IKAHK  +  l 

0440 

lUtNb-lKAHH A2 

04b0 

►KAHHIKA)=tXHlBUfbllKAKH) ) 

04b0 

FKAFP | K A ) St XP  IBUF b  1  IK AFP )  ) 

0470 

UtNb  1 K A  )  St  XH 1 DUF  b  1 1  DtNb ) ) 

04H0 

CONI  IN* It 

0490 

UO  12b  ISl.j 

ObOO 

KMttSbM 

OblO 

KL=KM»- / 

0b20 

11-  IKL  .bl.  KAMAX)  bO  10  127 

ObJO 

KMSRAMAX 

0b40 

IF  IKMb  .LT.  KAMAX)  KMSRMb 

ObbO 

IF  INtlNt  .tt.  b3)  bO  10  122 
■Hilt  lb. 1110) 

ObbO 

■Hilt  lb. 1120)  THtTA 

0b90 

NLlNt=9 

ObOO 

■HUt  Ib.lObO)  lUtNbIK) .  RSRt.KM) 

OblO 

■Hitt  lb. 1070)  IPRAPPIK).  RSRt.KM) 

0b20 

■HI  It  Ib.lObO)  IFRAFKIR).  RSRt.KM) 

0b30 

NtlNtSNtlNtFH 

ObbO 

CONTINUt 

ObbO 

RtNT I JA+1 ) SRCN I I JA ) 0*RAMAXA2 

ObbO 

NCNTSNtNT +3*KAMAX+2 

Ob70 
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1JU  CONIlNUt 

c 

INStl  .CO.  U»  00  TO  mu 
it-  IKStl  .CO.  NStT)  bC  10  lbU 
KStl  =  KStT  ♦  1 
J  =  J  ♦  1 
bO  10  1U 

c 

1HU  LONIlNUt 

NtAO  111)  IUA'  lll)(l>.l  =  1.12l,lbbN 
1)-  IlSbh.LT.U)  bO  TO  lbU 
C 

lbU  (.ONI  1  NUt 

•Kilt  Ib.lUJb) 

«Hlltlb.lU4U)  ISbN.NStl 
HLWlNJ  11 
HtIUNN 
t 

lbU  LONIlNUt 
bO  10  Vb 
t 

10UU  POKMAI  I1H 
•  101U  FOKMAI 

1020  l-OKMAI  lib) 

1UJU  l-OMMAI  1 1  HU 
1  29M 

lUbb  t-OKMAI  12/H 
1040  l-OKMAI  IMH 
1)-  bKtT  it  lb 
lUbU  ► OHM A  I  l/VM 
lUbU  l-OKMAI  l  9M 
10  /U  l-OKMAI  19M  KAPPA  IK).  lPBtlb.BI 
1U«U  t-OKMAl  l VM  KAPPA IM) .  IPBtlb.B/) 

1UVU  ► OHM A I  I1MI) 

UUU  l-OKMAI  I1M1///1JM  MNU  FXOM.  F13.4.  7M  TO.  F1J.4. 

1  IBM  CONTINUEO//) 

1110  l-OMMAI  I1MI///42H  6RCT  ABSORPTION  COEFFICIENTS  CONTINUED//) 
11^0  FOMMAT  I  /VM  TMfcIA  =  »H2.b»  12M  CONTINUED/) 

11JU  l-OKMAI  I IPElb.B) 
tNU 


12Ab) 

IU.).4X.12Ab.9X.9MMAfEHL  =  .14.bX.bHNX  r  .14) 


bHtT  ABS0HPI10N  COEFF  ICItNTS.  1 lb. IbM  TENPENATUHtS  ) 

TAKt  tUltlNb  IS  SUCCESSFUL ) 

iMt  NUMbtH  OF  bHtT  StTS  tOITtU  IS  .Ib.jBM  TMt  NUMBER  O 
MEOOtSTtU  IS  .IS) 

THtIA  r  .  ► 12. b.  20X.  lb.  12m  DENSITIES/) 

DENS 1 1 T .  lPBtlb.B) 


OBBO 


07S0 


o  /no 
0/90 
OBOO 
0B10 
0B20 
OBJO 
0*40 
0*50 
OBBO 

0*70 


215 


r  r  r  f  a 


AFWL-TR- 67-131 ,  Vol  IV 


t 

t 

L 

l 

i 

L 

t 

C 

c 

c 

L 

L 

c 

L 

L 

C 

c 


bUBHUUI INt  HtUONt 

LUUtU  BT  LAURA  H.  NOHNlb  uANUAHT.  lVb7 

UbtK  MUbT  HtAO  FROM  A  I  AHt  ON  LOGICAL  UNIT  1U 
UbtN  MUb f  UMilt  UN  A  1  AML  UN  LOGICAL  UNI  I  U 

HAIM  OKI  ION  lb  UtblONAItU  BT  LHN  ANU  LHN  lb  AN  INPUT  VARIABLE 
IK  LNN  -  U.  UA I A  lb  MH1ITLN  UN  IHE  MOTtT  PROGRAM  TAKE 
IK  LHN  S  1»  UA I A  blAltMtNIb  ARE  KUNCMEU 
IbGN  lb  THt  NUMBtH  UK  LALH  bET  UN  THt  TAKE 

1 1  ILL  lb.lHt  HtAUlNb  «Hl!ltN  ON  TKtt  lAPt 

1UNU  lb  I  Ht  lUtNTIK 1LAT ION  NUMBER  FROM  THE  HEADING  ON  THE 

UlANt  TAKt 

lU  lb  THt  IlILt  KRUM  THE  HtAUlNG  ON  THE  U1ANE  TAKE 

HNU  lb  I HE  NUMBER  UK  KREOUENClEb  ON  THE  OlANt  TAM 

XNAU  lb  I  HE  NUMBER  OK  ELEMENTS  IN  THt  BUKS  ARRAT 

XMAINO  lb  I  HE  tiONX-bKUTItN  MATERIAL  NUMBER 

lEHKNO  lb  THE  NUMBtR  UK  TEMKERATURbb 

UlMENblUN  BUKSilUUOl.l  llLt(4bl  *10(12)  » XMA  I  UOO) 
uiMENbiON  theta T(2bi  »x am ax (2b i  >iu 2b i 


KORMAlb 


2 

kohmai 

4 

KUHMAI 

4 

KOHMAI 

b 

KUHMAI 

b 

KOHMAI 

/ 

KOHMAI 

8 

KOHMAI 

V 

KOHMAI 

11 

KUMMAl 

12 

FORMAT 

14 

FORM At 

14 

; 

KUHMAI 

t 

lb 

FORMAT 

lb 

KUHMAI 

1« 

FORMA  1 

IV 

KOHMAI 

21 

KUMMAl 

22 

KOHMAI 

24 

KOHMAI 

24 

FORMAT 

2b 

FORMAT 

2b 

KOHMAI 

2/ 

FORMAT 

( 12t IKbtlb.BI 

(bXllHOAlA  JAMAX/.lb.bH/.NMU/. Ib.lH/i 
(bXUHOAIA  KAMAX/.4U12. 1H# I) 

(bXll»b(tl2./flH.II 
(bXll.E12.  /*4(lM.»tl2.7l*lM/l 
(bXVHUAIA  BUKb.12.lH/) 

( bX lbHCOMMON/LRN/UUK b ( . l 4. 1H ) ) 

(bXINHOlMENblON  BUFb»12»lHI . 12.1H) » 

(bXIBHEUUl VALtNLt  (BUf b( • 1 4*bHl »BUFS» 12.4HI 1 ) » ) 

(bX 12H0* I «  THtlAT/*4(tl2«/*lH»IJ 
(bX.lUHUAlA  KCNI/.4U12.1H.  I  ) 

(bXlVHCOMMUN/LHNA/ IHt  TAT  1 • 12. 6H) t A AM AX I . 12. 7H I .AC  NT 1  * 
12. 1H)  I 

(bX.U.b(U2.1H.II 
(bXtllf 112*4 <1H. .1121. 1H/I 
(111 

(bX.ll  .t!2.7.1H/l 
(bX.ll.tl2.7.lH..E12*7.1H/l 
(bX»ll.tl2.7»2UH.  *tl2.7)  *1H/I 
(bX. 11.E12.  T»4(1H. *tl2. 71 »1H/) 

(bx.U.112.1H/J 

(bX.11.112*lM»»112»lH/) 

(bX.U.U2.2(lH..U2)  *1H/I 
(bX.U.112.4(lH»»112)  »1H/I 


KAIH  lb  UtTENMINtU  BT  1NKUI  VARIABLE 

REAU  (b. IB) LHN 
L 

11  *  10 
L  S  11 
L 
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C  INKlALUfc  CUUNTfcK 

C 

J  =  1 
C 

C  Hfc.AU  NUMttLR  OF  MAlfcKi ALb  ANU  MAltRlAL  ATOMIC  NUMbEKb 

HfcAU  (b*2)  Nht-I  •  »XMAT»  1  I  #|  =  i.NSt1  » 

KfcAU  F  1Kb I  HMYblCAC  KbtUHU  UN  GKfcT  TAPE. 

1  CUNIiNUt 
KtMlNU  11 

KfcAU  ( 1 1 J  (UILt«I)*l  =  l#Abl 

bfcAKCH  F UK  KtOUlKtU  OPACITY  bCTb 
1U  CUN  I INUfc 

KfcAU  till  1UA.(  lU(ll'l=l’12)fIbGN 
IF  (IbGN  .fcO.  20)  OU  TO  20 
KfcAU  (111  HNU’FNMU 
KfcAU  (11 J  XNO’FJAMAX 
NX  =  FNMU 

IF  (1NKXN0F.1J  .tO.  1NT  (XMAT  ( J)*. 1) )  GO  TO  bO 
KfcAU  (11)  (bUFb( 1 ) *  1  =  1. NX) 

OU  ro  10 
20  CUN I INUfc 
GO  IU  1 

KfcAU  GKfcT AH  ANU  blOKfc  IMt  bUFS  AMRAT  IN  A  bMALLEH  ARRAY  FOR  MOTfcT 
bU  CUNT INUfc 

KfcAU  (11)  (UUFb( 1 ) • 1-1* NX) 

A  =  1 
A1  =  1 
bUM  S  o. 

JAMAX  =  FJAMAX 
UU  00  JA  S  1. JAMAX 
DUFb(Kl)  =  UUFb(K) 

UUFb(KlFl)  =  t)Ufb  l  A*1 ) 

AA  =  bUFb(A«l) 

UU  bo  1  =  1*AA 
12-2*  (1*1) 

11  !  U  ♦  I  •  l 
bUF  b  l  A1  *2*12 )  =  bUFb(A*2FU) 

UUFb(Al*AFI2)  S  bUFb(AFHFU) 
bO  CONTINUE 

bUM  =  bUM  ♦  AA 
A2  •  AA  ♦  AA  ♦  2 
A1  =  A1  ♦  A2 
ASA  FAR  ♦  A2 
00  CUNT INUfc 

fcbl AbLlbFt  THfcTA  1  •  AAMAX.  ANU  ACNT  ARRAYS 
NMU  S  FNMU  -  SUM 
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KNau  =  Nau 
KD1I  =  U 
IK  =  1 

UO  120  JA  S  1 .JAMAX 
IHtlAI(JA)  r  UUKb(NC  I 
KAMAX  ( JA)  =  bUKS(NL*l> 

*2*2*  KAMAX(JA)  ♦  2 
it  (JA  -  JAMA XI  100.110.110 
100  KDJAUI  r  KL(JA)  ♦  Kit 
11U  NL  -  NL  ♦  K2 
120  LUNIlNUt 

IK  (LMN  .tO.  If  00  10  200 
■  Mi  It  UN  MOItT  KKOCKAM  TAHt 
■Milt  (LI  JAMAX.  NMU.XNO 

IMAA ) ^  *U  *  ‘MMAXCD.iri,  JAMAX) » (KC ( I ) . |r 1 . JA 

■Milt  (LI  (bUFSUI.iri.NaUI 
IK  (J  .  Nt.  NStTI  00  TU  ISO 
tNU  ULt  L 
MtlUMN 
IbO  LUNMNUt 
J  -  J  ♦  1 

IK  ((-Jl  . LE.  (-2011  00  fU  1 
UU  10  1U 

2UU  LUNIlNUt 

■Milt  (0.0)  Nau 
■Milt  (b.4)  JAMAX.  NaU 
■Milt  (o.4)  (kamaxU)  .iri.ai 
■Milt  (b.141  (RCUl.iri.m 
■Milt  (0.121  (IHtlATdl.iri.it) 

N  r  1 

JA  r  JAMAX  /  b 
JMAX  J.  (JA  -11  •  b 

IK  ( ( JMAX+b)  .tu.  JAMAX)  JMAX  Z  JMAX  -  S 
IK  (JAMAX  .LI.  1(1 1  (.0  10  22U 
UO  210  M  r  b.JMAX.b 
MM  r  M  ♦  4 

■Milt  (O.b)  N.  (lHtTATUl.irM.MM) 

•Ml  It  (0.  lb)  N.  (KAMAXU). irM. MM) 

■  Milt(O.lb)  N.(KLUI.irM.MM) 

N  r  N  ♦  1 
210  LUNIlNUt 
220  LUNIlNUt 

jm  r  jmax  ♦  b 

■Milt  (0.14)  JAMAX. JAMAX. JAMAX 
NU  =  JAMAX  -  JM  ♦  1 

00  T0(22b. 226. 22/. 22b. 220) .NU 
22b  LUNIlNUt 

■Milt  (0.1VIN. ( THt TAT (l).lSJM. JAMAX) 

■Kilt  (0.24)  N’lKAMAXID.irjM. JAMAX) 

■Kilt  (0.24)  N.(KC(1). irjM. JAMAX I 
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/ 


00  10  240 
22b  CONIiNOt 

•  Hi  It  lb# 21 IN#  I IHtTATI  II  #  l-OM  >  JAMAX I 
•Hi ’t  lb»2b>  N# IKAMAX lit* i=JM> JAMA XI 

•  Hilt  I b»  2b)  N#  UCI  i  )  •  i=JM.  JAMAX) 

00  fO  24U 

227  CONIiNOt 

•  Hilt  (b#22)N» IlHt TATI  ill 1=JM. JAMAX) 
•Hilt  I b# 2b i  N# IKAMAX I II* i=JM#  JAMAX ) 
•Hilt  lb#2b)  N»IKCti)#i=JM«JAMAA) 

00  10  241) 

220  CONIiNOt 

•Hilt  lb#24)N#l IMtTAft 1 ) . i=JM, JAMAX) 
•Hilt  lt*27»  N#  IXAMAXI l > » i=JM# JAMAX) 

•  HiTt  I b#  27  I  N»  IXCU  )  *  l=JM»JAMAX) 

OO  10  2 JO 

22V  CONIiNOt 

•Hilt  lb#b)  N  * I IHtTATIl) li-JMiJAMAX) 
•Hilt  lb#lb)  N» IKAMAXIi ) * i=JM# JAMAX) 
•Hilt  lb# lb)  N» IKClil »i=JM» JAMAX) 

C 

240  CONIiNUt 

NX  =  N«U  /  b 
N2  S  NX  •  b 
Nl  :  NX  /  I 
N1  S  NT  •  O 
LH  :  1 
it  =  4b 
ix  =  1 
NV  S  V 

il-  IN2  .Nt.  NMUi  00  TO  24b 
N2  S  N2  •  b 

il-  I  NX  .tO. Nil  NT  *  NT  •  1 
Nl  S  NT  •  0 
C 

24b  CONIiNOt 

00  2bU  1J  -  1 » NT 
■Hilt  lb#  1)  iX 
00  240  JJ  =  l#tt 

LN  S  LH  ♦  4 

•Hilt  lb#bl  JJ#  IHOI-Slil  #  I=LK#LNI 
CH  S  CK  ♦  b 
240  CONIiNOt 

CN  =  CH  ♦  4 

■Hilt  lb#bl  NV.  lbOI-bli)*l=LK.LN) 

LH  S  LH  ♦  b 

Lb  =  LH  -  44 

■  Hilt  (b# VI  IK#  IL 
■Hilt  lb#UILS*i* 

IX  x  ill  M 
2b0  CONIiNOt 
C 

N  =  i 

Nb  =  Ni  •  b 
NO  =  NMO  -  Nb 
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■Niit  it >»n  iK 

it-  UNX  -  Nit  .CO.  It  00  TO  2flU 
Nib  =  NS  ♦  i 
UO  2/U  JJ  =  NIS.N2  «  S 
J4  =  JJ  ♦  <4 

■  Milt  1 1>*  SI  N>  iMOf-Sli  I  .  I=JJ.  JH» 
N  =  N  ♦  1 

2/U  tONIlNUt 
20U  LON  I INOt 

fO  =  N2  ♦  i 

NK  =  NKU  -  NJ  ♦  1 

00  10  1201.262»20J.20<*>26S)  »NK 

261  LONIiNUt 

•  Milt  »t>#IVI  N>  IHUtSlil  •  i=NJ.N«OI 
00  10  JUU 

262  CONI INOt 

■  Milt  lb.2i I  N»  IbUf  Ml  I  *  i=NS>NMO) 
00  10  JUU 

26S  CONI iNOt 

■Milt  (t>  >22)  N>  IbUfSl  i  )  »  i=NS>NMO) 
00  10  4UU 
200  LON  I INOt 

■Milt  lb»2J)  N< IbOFSI i I » 1=NJ>N«0) 
00  10  3UU 
20S  LONIlNUt 

■Milt  IO*bl  N> IbOFSI i I > 1~NJ>N«0) 
JUU  LONtiNUt 

IK  :  IK  M 

■Milt  lb* V)  IK. NO 

■Milt  lb.illN5.lK 

It-  U-J)  .Lt.  I “2 VI  I  00  TO  i 

It  »J  .t«.  Nb£ 1 1  HtTUMN 

J  •  J  ♦  I 

00  TO  10 

tNO 
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punches  the  opacity  data  in  the  form  of  DATA  statements  for  use  in  a 
FORTRAN  IV  program  or  writes  the  data  on  a  binary  tape. 

All  of  the  data  in  each  material  opacity  set  are  read  by  REDGRE. 
However,  the  information  punched  on  DATA  statements  or  written  on  a  tape 
by  REDGRE  contains  all  of  the  data  from  the  opacity  sets  except  the  Planck 
opacities. 


Input  for  REDGRE 


CARD 

NO.  INPUT  VARIABLE  COLUMNS  FORMAT 


1  LRN 


1 


II 


2 

and  ethers 
needed 


NSET  (1) 
XMAT 
XMAT  (2) 
up  to  NSET 


1  -2  12 
3-18  El 5.  8 

19-32  El 5.  8 


LRN  If  LRN  =  0,  sets  of  grey  opacities,  temperatures,  and 

densities  are  written  on  a  tape;  if  LRN  =  1,  similar 
sets  are  punched  in  the  form  of  DATA  statements  for 
use  in  a  FORTRAN  program 

XMAT  An  array  of  material  numbers  corresponding  to  the  grey 

sets  to  be  obtained  from  the  GREY  tape 

To  use  the  REDGRE  program,  the  following  tapes  must  be  mounted: 

1.  The  GREY  tape  must  be  mounted  on  unit  10 

2.  The  output  tape  must  be  mounted  on  unit  11  unless  the  user 
intends  to  punch  DATA  statements  rather  than  write  a  tape. 


TEDIUS:  A  GOLEM  ADJUNCT 

TEDIUS  is  a  FORTRAN  IV  program,  which  converts  weight  fractions 
to  number  fractions.  One  input  card  is  read  (for  each  compound  present)  by: 
READ  (5,201)  (KAi  nIO(N),  ISTOIC  (N),  N  =  1,  10),  WTFRCT 
201  FORMAT  (20  (12,  IX),  F10.  5) 
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PHUGHAM  ItUlUSl 1NHUI .UUlPUl . I APEb  = 1 NRUT *  1 APEbSOU l PU I  » 

C 

C 

t  IEU1US  HH1TTEN  /JULYlGt>7  UT  A.KNUPP 

L 

L  TEUlUb  INPUTS  LUMPOUNU  F 0HMUL AS  ANU  HEIGHT  FRACTIONS  FOR  MATERIALS 

t  ANU  CUMPUIES  HEIGHT  ANU  NUMdEH  FRACTIONS  F UN  THE  ELEMENIS  PRESENT. 

C 

C  A  bLANK  UATA  CAHU  lb  UbE 0  10  COMPLETE  ANU  TERMINATE  CALCULAT lONb. 

C 

L  ItUlUb  CUMPUIES  ONLY  ONE  MAItKIAL  PER  HUN. 

L 

L 

L  ALPHAbt  I  It AL  OIL  1 10NAHY  OF  lEHMSi 

L 

C  AINU  IKAINOI  IMt  AI0M1C  NUMbEH  (AlNO  lb  UbEU  FUH  PRInIOUT) 

L  Aim:  THt  ATOMIC  HEIGHT 

C  CUE!-  Ilbluio:  IHE  SUdSLHIPl  SPEC  II- TING  THE  NUMdEH  OF  MOLEb  OF  AN 

C  ELEMENT  IN  A  LUMPOUNU  (LOEF  lb  UbEU  FOH  PNINIUUI). 

C  CUEMUL  lb  THE  NUMdEH  OF  MOLEb  OF  THE  COMPOUND, 

L  FHAL I i  lb  THE  HEIGH  I  FHALllUU  OF  AN  ELEMENT. 

C  FHLIN  lb  I HE  NUMbEH  FHAL T ION  OF  AN  ELEMENT. 

L  IblOlL  UUEFi:  IHE  SUMSLH1P I  SPECIFYING  THE  NUMbEH  OF  MOLES  OF  AN 

C  ELEMt.NI  IN  A  LUMPOUNU. 

L  KAINO  lb  THE  AI0M1C  NUMbEH  (1NPUI  UATA) 

L  AN  I H  LOUNIb  IHE  NUMbEH  OF  COMPOUNDS  IN  A  ''A  TEH  1  AL • 

L  NOLMNI  •COUNTS'  IHE  NUMbEH  OF  ELEMENTS  HEM  LUMPOUNU. 

L  SUMMOL  IS  IHE  SUM  OF  IHE  MULLS  OF  ALL  ELEMENIS  COMPUTED. 

L  bUMUL  lb  IHE  SUM  OF  THE  MOLEb  OF  AN  ELEMENT. 

L  bUMHl  lb  IHE  SUM  OF  THE  GHAM  MOLECULAR  ML 1 GH I S  FOR  ALL  ELEMENIS. 

C  HE  1  GH  I  lb  THi.  GHAM  MOLELULAH  HEIGHT  OF  AN  ELEMENI  . 

L  HIFHLI  lb  THE  HEIGH I  FRACTION  OF  A  COMPOUND  IN  THE  MATER 1 AL I INPUT ) 

C  HTMOL  lb  IHE  GHAM  MOLELULAH  HEIGHT  OF  A  LOMPOUNU. 

C 

C 

L 

UlMENblON  bUMOLUUO).  FHACUUOUI.  FRCTNilOU).  HE1GHTU00) 

UA I  A  bUMUL/ 1U0*U . / 

UA I A  SUMMUL/U./ 

UA I  A  bUMHl/U./ 

COMMON  /LMSb/UU) 

UlMENblON  ATHTUUU) 

UA I  A  A I H I  /100«0./ 

UlMENblON  KATNOUO),  IblOlL(lO) 

KNIHSU 

L  KNIH  COUNTb  THE  NUMbEH  OF  UATA  CARUS 

C 

C 

10b  LUNI1NUE 

KNlHSANIR+l 

HEAU  (b’lUl )  (AATNOIN) .lSTOlC(N) .N-1.1U) .HTFKCT 
201  FOHMAI  U0IU.1K)  »F10.SI 

C  HE1GHI  FHACT lONb  ARE  HEAU  FROM  COLUMNS  bl  THRU  70 

HK1 IE16»2U2) 
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tUt  ►  UHMA  I  (///lUllAXtHATNUf  1 X  t  <*HCOtK  )  •  6X «  6HH  I FHCT ) 

HK1  ft  tb»2U3)  UKAINUIN)  •  IS  1 0 1C  I N >  tU- 1  *  1U  )  *  HTKHCT ) 

MJrlMAl  I1UI2X.  12»<*X.  121  ..JAtKIU.S/) 

IK  IKAINUU)  .tQ.U)  GO  10  JUUU 

C  IK  KAINUU) .tQ.U*  ALL  UATA  CARDS  ARC  Rt  AU*  btGIN  FINAL  CALCULATION 

HlMOL=U. 

C  HlMUL  IS  1 ML  GRAM  MOLtCULAK  HEIGHT  OF  A  COMHUUNO. 

UU  1UUU  N  =  l*lll 

IK  IKAlNUtN) .tU.U)  GO  IU  IUUI 
K  =  1 

c 

c 

1U1  LUNI1NUL 

IK  I 1K1XIUIK)*.S) • tU • K A I NU IN ) )  GU  TO  102 
K=K*IK1XIU(K)*.S)*2 
GU  IU  1U1 
L 
C 

1U2  A I  H  I  IN)=UIKU) 

HlMUL=AlHI  (N ) AKLUAT 1  IS  I U1C  111) ) ♦ W I  MOL 
hH  1  It  lb*  SUt)  I  Alai  INIUSTOICIN)  *HTMOL> 

JU2  KUKMAf  !2bH  USING  AN  AIUMIC  HEIGHT  OF*F1U.S*20H  HITH  THE  SUflSLRlFI 
1  #12#S0H*  THE  CUHNtNT  MOLtCULAK  HEIGHT  OK  THIS  COMPOUND  IS  *F13.b) 
C 
L 

1UUU  CUNIlNUt 
N=ll 
L 
C 

1UU1  CUNIlNUt 

NULMNISN-1 
CUtHULSH I KKC 1 /* I  MOL 

C  CUtMOL  IS  THt  NUMbtH  OK  MOLtS  OK  THE  COMPOUND. 

C 

c 

HNlIt  IbOUll 
3UJ  KUKMAI  I 1M  ) 

UU  2UUU  N=1*NULMNI 
C  12  IS  IHt  ATOMIC  NUMdtK. 

12-KA I NUIN) 

C  SUMUL  IS  IHt  TUI AL  MQLtS  hUM  EACH  ELtMtNI . 

SUMOL 112) =SUMOL I  It  I ♦CUtMUL*KLOA  T I ISTOICIN) ) 

C  Ht 1GH 1(12)  C0NIA1NS  HEIGHT  KKACI10NS  OK  tLLMtNTS 

HtlGHI (121 sSUMULI 12) *A IH  T IN) 

HKlIt  lb»102)  1 12* SUMUL II2)*ATHTIN)»HEIGHTII2>) 

HU2  KUKMAI  UJH  KOK  tLEMtNI  *I2*13H*  SUMOL  s  *F13.b*12H*  AT*T  = 
1*K1U.&#3TH*  ANU  IHt  GHAM  MOLLCULAR  HEIGHT  S  *K13.b) 

2UUU  CUNI INUt 

c 

c 

c 

GU  IU  1US 
3UUU  CUNIlNUt 

KNIHSKNTK-l 

C 
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00  JOUl  1=1.100 
SUMMOL=SOMOLl i  » fSUMMOL 

L  SUMMOL  IS  THE  IOIAL  NUMtJtM  Of  MOLES  Of  ALL  ELEMENTS 

SOMMT  =aE10HT I 1 I ♦SUMal 
JUOi  LONllNUt 

C  f ML  I Nidi  LON t  A INS  NOMbEM  ►HALT IONS  Of  ELEMENTS 

L 

L 

00  <*000  d=l»100 
if  ISOMOLldI.EO.O.)  00  TO  4000 
►  ML  I N l d I =SOMOL I d I / SOMMUL 

► M «  Uldl=ME10HI Id) /SUM* | 

MM.ic  lb. SUli)  Id.fMLTNIdl  #  fMACTlId)) 

SO*  fOMMAI  ISM02  :  .U.IOXUVM  NOMbEM  f  MAC  T  ION  =  »f iJ.b.  XOX.  X9H  NEIOHI 
1  fMAU  ION  =  »f  iJ.b) 

HOMO  L0NI1NUE 
HOOO  LONIiNOE 

•  Hi IE Ib.bOZ)  KNtM#  SOMMOL 

bO*  fOMMAI  I//HSHOIHE  NOMbEM  Of  COMHOUNOS  iN  THIS  MAIEMiAL  IS  »I3»<t*H 
1  ANO  THE  IOTAL  MOLES  Of  THIS  MAIEMiAL  iS  *flJ.6> 

•Mi  IE  lb. 702) 

702  fOMMAI  IH7H0TE0IUS  COMMLE I EO  SULLESSf OLLT  (ANO  TEDIOOSLT).) 

CALL  EXIT 
CALL  MAMIE 
MEIOMN 
ENO 
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i 


where  KATNO  (N)  is  the  atomic  number  for  the  Nth  element,  ISTOIC  (N) 
is  the  smallest  integer  subscript  tfor  the  Nth  element)  when  the  compound 
is  written  as 


A 

or 


C 


Dt  E 
6  € 


and  WTFRCT  is  the  number  of  grams  of  this  compound.  (WTFRCT  can 
thus  be  the  weight-percent  if  100  grams  are  considered  present.  ) 

TEDIUS  uses  the  MARIE  subprogram  (previously  described)  as  its 
data  source  for  atomic  weights  for  all  the  elements.  The  compound 
molecular  weight  is  calculated  as 


_  „N=M<10  o 

A  '  L.  (Mn)(in)* 

N  =  1  1 


where  is  the  atomic  weight  of  the  Nth  element  in  the  compound  and  I 
ISTOIC(N)  as  defined  above.  The  number  of  moles  of  the  compound  is 
then  calculated  as 


N 


B  =  WTFRCT/ A 


In  addition,  a  cumulative  summation  is  made  of  the  number  of  moles  and 
of  the  weight  of  each  element  present. 

When  all  compound  cards  have  been  read,  a  blank  final  card  signals 
the  final  computation  phase.  The  total  number  of  moles  (of  all  elements) 
and  the  total  weight  (of  all  compounds  pre-ent)  is  calculated.  The  total 
weight  will  ordinarily  equal  100  gm  if  the  several  variables  WTFRCT  were 
the  weight-percents  of  the  compounds  read  in.  However,  this  calculation 
allows  the  variables  WTFRCT  to  sum  to  any  number  since  the  renormaliz¬ 
ation  is  then  done.  Finally,  the  number  fraction  and  weight  fraction  are 
calculated  for  each  element  present  in  the  total  mixture. 
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EUS1LV :  A  SILVIA  TAPE  EDIT  PROGRAM 

EDSILV  can  edit  tapes  written  in  SILVIA  format.  SILVIA,  ZSASIL 
and  ALOUETTE  tapes  are  assumed  to  have  the  following  SILVIA-tape 
format: 

1.  A  first  binary  record  containing: 

a.  FNTH,  the  number  of  temperatures 

b.  FIH,  the  number  of  absorption  coefficients  for  each  temperatur 
density  point 

c.  HNUMIN,  a  number  specifying  the  middle  of  the  first  frequency 
band,  in  eV 

d.  DHNV,  a  Ahv  in  eV  used  as  a  frequency  increment 
Z.  A  second  binary  record  containing: 

a.  DLANET,  the  temperature  in  eV 

b.  FNRHO,  the  number  of  densities  at  that  temperature 

3.  Third,  fourth . FNRHO-th  binary  records  confaining,  per 

record, 

a.  RHO,  the  density  in  gm/cc 

b.  SMU(k).  the  array  of  absorption  coefficients  for  the  Ith  tem¬ 
perature  and  Jth  density  point 

1  <  K  <  FIH 

4.  Binary  records  of  types  2  and  3  follow  until  all  temperature- 
density  points  have  been  completed 

EDSILV  was  used  to  prepare  the  SILVIA,  ZSAZSA,  and  ALOUETTE 
data  for  the  DASIAC.  The  EDSILV  output  tapes  are  written  in  IBM  com¬ 
patible  BCD  format  in  even  parity  at  556  BPI.  As  each  binary  record  is 
read  from  the  SILVLA-type  data  tape,  the  data  are  written  with  the  formats 
specified  below  onto  a  new  data  tape.  All  of  the  data  are  preserved  in  the 


AFWL-TR-67-131,  Vol  IV 


/ 


OOld 

*  • 

S0ERO0TI..L  EoSILV 

Odd 

C  • 

C 

PruGRAV  TO  Rc-AP  *1.0  cDIT  SlLVIA-TYpE-FORMAT  TAPE  MADE  .7  ZSASIL 

OOlul 

w>. 

c 

1  CM  jIl«2A  gH  ALCtTU 

ooid 

*  • 

c 

ooid 

J  • 

c 

Tnl  i  PROGRAM  HA»  OiE.i  OCJIF  lEO  TO  .RITE  *  SlLVl*  BCD  TAPE 

ooid 

o  • 

c 

BY  L.  «.  <  .OR  ft  I  S 

OOIO  l 

T. 

c 

Odd 

0« 

c 

The  aoo  TAPE  HOST  fat  «RlTT£N  IN  EVEN  P*RITT  *T  SS6  BP1  -  THIS  IS 

OOlOt 

y  • 

c 

accomplished  by  spiCipying  the  k.e.  and  h  options  on  the  assign- 

Odd 

lw. 

c 

Hi„T  C*Ru 

Odd 

ll. 

c 

0C1O1 

u. 

* 

Odd 

10. 

c 

Co.cD  RT  CnRli  I fc'LS  APPIt  }t,  1967 

Odd 

lw. 

c 

Odd 

1  w. 

c 

ZiASl..  SIlVIA.  At,;,  aloeto  write  data  tapes  IN  The  FOLLOWING 

Ooid 

lw. 

c 

FQM.«AT 

ooid 

17. 

c 

Odd 

*  J* 

c 

1)  A  FIRST  .(ECO,:'u  CCnTaIi  Ir.G 

ooid 

1*6 

c 

A)  r\TH.  NjNp.R  of  thetas 

Odd 

cu  • 

c 

j)  F.„.  nu-aRlR  op  AjSoRPTION  COEFFICIENTS  POR  Each  TmETA-RHO 

00101 

2i. 

c 

PulUT 

001  o  1 

c 

Cl  n-,.jA IN.  VAtUc.  IN  Tl.E  MIDDLE  OF  THE  PlRST  PREOUEnCY  BAND 

ooid 

2  w. 

c 

(.av*;s/cm  wOnverted  to  ev> 

ooid 

Oi 

c 

ji  wh.u.  a  Constant  used  to  Increment  The  freouency 

ooid 

i  J. 

UAVwS/CT  cowcrted  to  EV) 

ooid 

c  „  % 

c 

ooid 

il. 

c 

il  A  ScCONo  RcCurO  CONTAINING 

ooid 

til 

c 

a)  oWNuT.  TtvPLRATwRf  IN  EV 

ooid 

*  1 . 

c 

o)  FnRHO.  THo  NoHHER  oF  DENSITIES  POR  ThAT  TEMPERATURE 

OOld 

3w. 

c 

OOld 

» 

-66 

c 

0)  THIft.,  FOURTH,..., F-.fl*0-TH  RECORDS  CONTAINING,  PER  RECORD* 

odd 

0*. 

c 

A) 

ouiol 

0.. 

c 

Hi  St <o ( A 1  *  The  ARRAY  0*  ADSORPTION  COEFFICIENTS  FOR  THE 

Odd 

0<4  . 

c 

.-TH  1 HLT . ,  o-TH  PhO  POINT.  THt  V*lUE  OP  A  RANGES  FROM 

OOld 

3i. 

c 

1  TO  C IrCIFl a(FIh) >  *  THE  NuMBLR  OP  AbS0»PTI0N  COEFFICIENTS 

C,id 

3d 

c 

ooid 

01. 

c 

Ll  R  EC  Or  D  S  OF  TYpEs  2  AND  3  FOLLOW  UNTIL  ALL  TmCTA-RMO  POINTS 

U0101 

3u. 

c 

.RE  CuMroETEO 

00101 

3». 

c 

ooid 

**W  • 

c 

00100 

*  A  • 

OIMtNwIO.  THETA (le)>  RHO(2g>.  SMUijOO) 

001&L 

*•*. 

WTtioR  SILOUT 

OOld 

*  W. 

SILOuT:  lb 

OOld 

*«•, 

Ht.INO  SlcOUT 

ooiot 

J* 

c 

ooid 

*  J* 

Rc.AU  (b.OJI  WOITo,  lUCDl 

0011 J 

ol. 

00  F oft HA i  (212) 

oono 

•♦a. 

c 

loCUl  IS  Ihv  UNIT  ON  WHICH  THE  BCD  TAPE  IS  MOUNTED.  UNLESS 

OdiO 

•*Vi 

c 

I0CD;  :  o 

OCllO 

Sd 

c 

If  IB. 01  IS  d  THLN  SILVIA  DATA  CARDS  ARE  PUNCHED 

OOj  lO 

3*. 

c 

Ir  ISoUl  IS  o  AND  UolTO  IS  .NE.  0,  THEN  IPCD  IS  SET  TO  15 

oou« 

Si. 

IF  ((IJCol  .CO.  6)  .AND.  (lEoiTO  .f(E.  G>)  IRCD  =  13 

0011L 

Sd 

c 

If  IEjITO  IS  0.  Tf.CN  .  SloVlA.  /SASIL .  OR  ALUETO  TAPE  IS  CD1TEO 

Owl  *L 

b*. 

c 

IS  .LT.  0.  THEN  A  SlLvlA.  ZSASIl.  OR  ALUETO  TAPE  IS 

OOllL 

b  j  • 

c 

•RITTEN  In  ucn  ONLY 

ooii<> 

to* 

c 

IS  .UT.  0.  THEN  A  SILVIA.  ZSASIL.  OR  ALUCTO  TAPE  IS 

0011L 

a. 

c 

.ritten  in  acn  and  the  bcd  tape  is  edited 

00110 

Sd 

c 

RMO  IN  G"/CM3 

00ll« 

b>. 

c 

TnoTA  in  EV 

001  io 

by  * 

c 

0OUL 

61. 

c 

ooiio 

62  a 

c 

READ  RtCoRC/  1  Or  T  (E  iS*ilL  (OR  SILVIA)  TAPE 

00116 

fco. 

read  (SiwOoT)  pnTh.pih.  hnukin.ohnu 

00*16 

6-*  a 

c 

00116 

bo. 

c 

P.r H  iS  -.OR 0  1  OP  REiORD  l,  NUMBER  OF  TEMPERATURES 

0011b 

bo. 

c 

P iH  lw  fcoK)  /.  OP  RfCoRO  1.  The  number  OP  ABSORPTION  coefficients 

00116 

6/. 

c 

HNUMI,.  IS  ,  On  J  0  OF  RECORD  1.  THE  PREGLEnCT  vALOE  AT  THE  MlOOLt 

OOlle 

tjl 

c 

of  IHE  FIRiT  ilAl.j  (wAVtS/CR  CONVE*TEC  TO  EV) 

OOllo 

by. 

c 

Uhi.U  IS  lord  l  or  record  1.  ThE  PREOuENCT  INCREMENT  (WAVES/CM 

00116 

7d 

c 

CON.ERT.J  TO  EV) 

00116 

7l, 

c 

Oouo 

7.. 

In;  IPUlFlH  ♦  .5) 

00125 

7j. 

(.Futhi  lPIAlFNTH  ♦  ,5) 

OOliB 

7*1 

c 

001*6 

7w. 

Ir  (ItDIfC  .Nl.  01 

OC  1..6 

7w. 

Write  (WCo.oi  pnth.  vih,  mnumin.  dhnu 

00135 

77. 

IP  (IjCOl  .Ne.  6)  GO  TO  77 

00137 

7o. 

Xa  z  FIH  /  9, 

OOloo 

7». 

KA  :  IH  /  9 

OOld 

do. 

AA  =  A  X 

001L2 

bt. 

Ir  ( Xa  ,«T .  AA)  K»  s  KX  ♦  1 

227 


AFWL-TR-67-131 ,  Vcl  IV 


Oul-x 

0*  • 

77  cur.T  .  .ul 

OOi*s 

Cl. 

If  (IwCDl  .to.  c>  PUNCH  FnTm.FImi  hMJ*IN»  DHflU 

0015* 

1.1 

If  llt'JtT.  .*u.  01 

001  a* 

111 

loHlIC  U> '5  ,0*1  FI.Tm.  FIH,  hNuMINi  OMMd 

OCltS 

01. 

3  lOfOi;  l*f o.**2L15.AI 

OOlw* 

c  /  . 

6302  FwRAAJ  (*lf.lTM£  0ATA  MAS  B£AC  FROM  SlLOuT  /2lM  RECORD  t 

0016* 

J-J. 

1  contain;'. i  .aiWi'NIH  : . F 1 0 . 0 •  6H  FlH  SiFio.O.GH  HNUMtN  *»F10.*> 

0016* 

c  *. 

27n  Jn.U  -.Flo.*l 

OOlei 

Gw. 

IF  (120110  .c3.  0) 

OOlti 

l.xITt  <6«6j0‘-> 

0017k 

G*. 

•  005  FuRMAf  U1MO»cCO«OS  . . .  CONTAINING  > 

00170 

Gd. 

C 

001 7u 

c 

00170 

lii 

c 

•UAO  stCo.Ui  CON  l  a  I N  X  7.0  TEMPERATURE.  NUMBER  OF  RMO'S.  AND 

00170 

Vu. 

c 

AuSOMp^Iof.  CocFF  1c JCnTS 

00170 

G/. 

00170 

Gd. 

+ 

00171 

V*. 

3u  10  U1.  |FN7M 

0017* 

ICO. 

hcAO  (SIlGuTI  OIA.iLT,  FN„hc 

0017* 

tv.. 

c 

00)7* 

1'*. 

c 

fi.HnO  JS  Tilt  .oumULk  uF  DcNSlTIES  At  EACH  ThCTA 

00*  lO 

1  0  1 . 

...hOa  IFIXipukmO  ♦  .51 

00*01 

10*. 

TncTAUI-  JlANl.r 

0C.u2 

lOj. 

u  UcOKn  .i.c.  oi 

OC*b* 

10.1. 

l»f  ITCdeCw.ll  LIAr.LT.  F!Ji>”0 

Oo*C  7 

107. 

1  f w**AT  (f  10. *•  F6.^l 

00210 

lOl. 

IF  (USltO  .cu.  0) 

00<10 

lul, 

laHlTC  <6«o00d>  OlAr.tr.  F  , ft  1.0 

00*17 

111. 

If  doCDi  .*0.  61  punch  6,  jianet,  fmrmu.  t 

00*2) 

111. 

6  Fwf.nAi  1  f  1 3 . *  .  Ffc.i.  57*.  13.  *H  01 

0022* 

11*. 

•00 3  fvM*Af  dill  jIAMct  I  .  F10.5.SX.  7HFNHM0  S  tlPClO.*) 

002*0 

lid. 

00  20  J=l.‘ji<fiO 

00230 

11*. 

RcAO  iSUCjT)  HnO(j),  (S*U<KI.  K=l.lH> 

00*37 

11  9. 

IF  (UOITO  .NE.  01 

00237 

11*. 

lkHlTE  ( I  uC  0 . 2 1  NHU,J),  (iPu(A) iKIliIhl 

002*7 

117. 

IF  (IjCDl  ,NL.  6 1  GO  TO  ?5 

228 


AFV'L-TF  -67-1  31  ,  Vol  IV 


OOkbl 

00tb2 

OOtbO 
OO&ol 
OOtc  1 

00it>« 

OUtt.0 

OOtto 

OUtuT 
00*77 
000GU 
OOOi* 
00.  ii 
000o< 
00Oc» 
0001* 
Oi/Ulb 
OCoi7 
00bl7 
000*1 
ooo.-: 

(.(Jo** 
00  o*o 
OOOou 
00. io 
004«» 
00. Vo 
00  J**7 
00050 
00  Jb-" 
00  i~../ 
OOOFi 
0  0  Jo* 

00io7 

00.70 

OOHCO 

00hc7 

oo«n 

OOoiS 

00<«l3 

00<t!« 

00<*15 
Oucio 
00*20 
00»i  * 
00  *23 
OOojH 
00*23 
00*  Ju 
00*  30 
00*ol 
00*32 


1  j  ,  A  X  -  C 

lit.  m  :  I 

P.'i.M  7  •  Prt0(.)  •  ..  fcX 

1*;*,  7  F.KMAJ  (LraJi  eb*.  10*  I.) 

1«.„.  JO  70  Ll..*A 

12..  M  :  i.  •  1 

U».  xhIN  :  Mu  ♦  I 

1?3.  *.yk*  I  Kf  Ax  *  9 

lIO,  p.r.Cn  5.  (S*ulX)  .KzXFlr.McMAX) .  J»  A* 

'.  t/.  b  F.JOA1  (VLP.O*  IX.  l0»  I») 

lia.  70  COr,Tl..uC 

Ik,  7b  C.itT  1 N  JC 

lJj.  2  (c.  ...  15-s.J*  /  (16S8.S1) 

1.. .  IF  (Uullo  .c.0.  0) 

,Jt.  l.nltL  (6.*00‘.l  FMo(J).  K  =  l»IHl 

I,",..  too*  F.,vur  (U-,0  Fo«  .ho  si  iPrlo.Oi  1*H«  SFU  ARRAY  IS  / (S6X* 15. •>  > 

15..  *0  COriT  1  .,£ 

IS..  10  cor.TI.4UC 

15..  C 

1ST,  IF  (Ittne  .'.C.oi  cNj  Flwf  IBCO 

10..  n<_ * i silout 

i:<.  if  (Um;t.  ...... oi  nc.ir.o  iiico 

1-.,  Ir  llirnc  .wL.  01  00  TO  Sl 

ICi.  Fie.AU  (Ifacj.J)  F’lTn,  FIH.  M.UM1N.  DhNu 

lx*.  .Hilt  (fcMOOcI  FUTh.  FIH,  hMJNIN.  OHM 

1h.  .  »nllt  (6.rt,0b) 

1<,..  :.rl,TH.  IFlXtFf.TM  ♦  ,«|) 

l.i*  IFIXifIm  ♦  .5) 

10..  jo  50  Irl.NFr.TH 

10/,  J.AO  il0Cj.il  DIAi.lT.  FMHO 

10..  irtITc  (6«o000)  uI-t.CT#  F..RM0 

l<t*.  .Hud  iFIX.FNnhO  ♦  ,S) 

lb..  .o  <t.  Jiii  MhO 

lb*.  ,TcAJ  tlfcC.'^J  wnO(u).  (S  •U(KI  >K  =  1.1H) 

lb*.  .HITS  (fr.eoOxl  (JMudU.  XII. 1M) 

lb..  *0  c.  .11,.  jC 

15..  bo  ;omi,.ut 

lb.,  »<ITC  (6 >*2> 

lb..  *2  r.-iHT  (. 7U  -  JC.  cat*  T*pC  HAS  BEE).  .BITTEN  AND  EDITED  SUCCESSFU 

15 /•  lccT.l 

ltu.  iclU,*.. 

11*.  01  Cor.1 1,.‘<E 

ltv.  IF  (IwOl.v  -.0.  01  GO  TO  7700 

10..  .JITt  (6.*1) 

ltt.  *1  p'O.iMAI  (CbHO  A  BC.  0«TA  TAPE  HAS  CJECN  »R1TTEn  SUCCESSFULLY.) 

leo. 

16..  7700  CONTINUE 

16b.  .HUE  (6.7777)  SILOUT 

16a.  7777  r‘0(AAT  (o6Hl  EDSIl  AON  CO“PLETE0  SUCCESSFULLY.  SlLOUT  DATA  TAPE  M 

167.  11]  011  UNIT  .  IS.  lrl.) 

16o.  ALT URN 

lb*.  cnu 

EM  OF  LIST  1NG.  3  •DIAGNOSTIC*  *CSSA6t(S>. 


229 


AEWL-TR-67-1  31 ,  Vol  IV 


EDSILV  contains  three  write  statements.  These  statements  and 
their  respective  formats  are: 

WRITE(IBCD,  3)  FNTH,  FIH,  HNUMIN,  DHNU 
3  FORMAT(2F6.  2,  2E15.8) 

WRITE(IBCD,  1)  DLANET,  FNRHO 

1  FORMAT(F10.  4,  F6.  2) 

WRITE(IBCD,  2)  RHO(J).  (SMU(K),  K=l,  IH) 

2  EORMAT(El 0.  5,  15E8.3.  /  (16E8.  3)) 

The  first  write  statement  is  used  once  to  write  the  number  of  temperatures, 
the  number  of  absorption  coefficients  for  each  temperature  and  density,  the 
frequency  value  at  the  center  of  the  first  band,  and  the  frequency  increment 
used.  The  second  write  statement  writes  the  temperature  and  the  number 
of  densities  before  a  given  set  of  densities  and  opacity  values  at  that  tem¬ 
perature.  The  last  write  statement  writes  the  density  and  all  of  the  absorp¬ 
tion  coefficient  data  at  that  density  for  each  of  the  densities  for  a  given 
temperature. 

LEVELS:  PARTIAL  SUMS  OF  IONIZATION  POTENTIALS 

LEVELS  is  a  FORTRAN  IV  subroutine  used  by  AUGEAS  in  the  pre¬ 
paration  of  tables  of  the  possible  states  of  a  group  of  elements  and  tables 
of  the  transitions  between  the  allowed  states  for  each  element.  These 
tables  are  used  by  DIAPHANOUS  (Ref.  3).  LEVELS  uses  the  MARI  block 
data  program  as  the  source  of  the  required  ionization  potentials.  These 
are  assembled  into  partial  sums  of  the  form: 

.  n 

sl  *l:  n  =  l,  1  + 1,  £  +  2 . zl  , 

n  jLj  j 

j  =  £ 

where  l  -  max  (1,  Zl  -  14),  Zl  is  the  atomic  number  of  the  ith  element  in 
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bUONOUTINt  LE VELb  (  NLL  I  *N2*HI  »E1NI 

C  I H lb  PKOOKAM  SUMb  THE  10N12A110N  POTENT  I  ALb  FOH  ONE  ELEMENT  IN 

L  iHfc  MAKi  UECA  E'CM  1 1  ml  THib  ROUUNE  lb  CALLED  UNTIL  THE  ELEMENIS 

L  IN  I HE  MAN I  UECA  HAVE  BEEN  EXHAUbTEO 

COMMON  /  LMbd  /  POTENLtbJbU) 

COMMON/LKNA/A.L 

UlMtNblON  SUMI1UUI  .bUMPIlbl  *E INI  lb I  »Z(10UI 
C 

C  1NIUAL12E  VARI  ABLEb 

UO  b  I  =  1.1b 
bUMPdl  S  U. 

E1NI1I  =  0. 
b  CONI INUE 
C 

C  lEbl  10  bEE  IF  FlKbl  TIME  IMR0U6H  ROUTINE.  IF  SO. SKIP  10  10 

IF  (N2  .01.  U)  00  TO  1U 
C 

L  S  1 
A  =  1 

2(11  s  POlENLdl 
n 2  ~  2(1)  ♦  .b 
12  =  N2 
00  to  ou 

1U  CONI INUE 
C 

C  lEbl  10  bEE  IF  ARE  AT  ENU  OF  MAKI  OCCK 

IF  (A  .NE.  (-NEL1  ♦  111  60  10  JO 
HE  I URN 
JU  CONI INUE 

C  F1NU  I ME  NEX1  ELEMENT 

2(AI  =  HOIENLILI 
N2  =  2 (A  I  ♦  .5 
12  =  N2 
J  =  A  -  1 

uo  bu  I  :  l.J 

It-  ( 1M1I2I1  M.bl  .NE.  121  00  TO  4(1 
L  s  L  ♦  12  ♦  2 
00  10  1U 
HU  CONI INUE 
bU  CONI INUE 
OU  CONI INUE 

HI  =  HUIENLlL+l I 
C 

C  CHECA  HlOHEbT  1  ONI 2 AT 1 ON  POIENTXAL  TO  MAAL  SURE  THIS  ELEMENT  HAS  A 

C  COMPEL  IE  bET  OF  10NI2AII0N  P01ENTIALS 

IF  (P0lENL(L*I2dl  .61.  0.1  60  10  7U 
L  -  L  ♦  12  F  2 
60  10  1U 
C 

tO  CONI  INUE 

C  bUM  UP  1HE  POTEN 1 1 ALb  10  OBTAIN  THE  DESIRED  SUMS 
Ml  X  MAXUI1.I2-1H) 
bUM ( 1 I  =  U. 

UO  20U  1  =  1.M1 
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bUMtm)  =  bUMll)  ♦  HOItNLIL*l*l) 

200  CONllNUt 

bUMHll)  =  bUMIMIfl) 

L*  S  MINU(U'IH) 

If  (  U  .EG.  It  GO  TO  3b0 
UO  3UU  1  =  l#L* 

bUMHtlfl)  S  bUHfMl)  ♦  HOTtNL<Ml*m*D 
300  CONllNUt 
JbU  CONllNUt 
C 

C  blUMt  bUMb  IN  tlN  AMKAT 

M  =  1 

if  IN*  .ot.  lb)  L*  =  lb 
UO  HUU  11  :  l.L* 

1  •  U  *  1  •  11 
t  IN  1 1 )  S  bUNIMMI 
M  =  M  ♦  1 
HOU  CONllNUt 

L  =  L  ♦  U  ♦  2 
A  =  K  ♦  1 

•  Milt  lb* 1 1 U I  N*  *  »T  * t IN 

110  fUMMAl  I 17H1AT0M1C  NUMBER  =  *I3«3X»22H  GRAM  ATONIC  WEIGHT  =  iflU.b 
1  »  //  31 IA* lPbtlbtB/  >) 

HtIUNN 

C 

CALL  NANI 
Kt I UMN 
tNU 

bUBMOUT INt  MtHM 

Mt I UMN 

tNU 
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k=l 


and  V1  is  the  mth  ionization  potential  of  the  ith  element  where  1  <  m  <  Z  . 
m 

AUGEAS  was  modified  to  call  LEVELS  if  a  blank  card  replaces  the 
former  input  set  of  data  cards,  on  which  these  partial  sums  were  entered 
for  the  several  elements  (Ref.  3).  (AUGEAS  can  thus  be  run  in  either  mode.) 

DLISTR:  A  DIAPHANOUS  CARD  EDIT  CODE 

The  FORTRAN  IV  program  DLISTR  was  written  to  prepare  edits  of 
DIAPHANOUS  data  from  DYPER4  output  cards.  These  cards  contain 
summaries  of  the  DIAPHANOUS  thermodynamic  data  and  approximations 
to  the  grey  Rosseland  and  Planck  opacities. 

Tabular  data  prepared  by  DLISTR  for  most  of  the  presently  available 
DIAPHANOUS  tapes  are  presented  in  reference  1.  The  table  captions  are 
self-explanatory. 

DYPDIN:  A  RAPID  TECHNIQUE  FOR  MAKING  PSEUDO-DIANE  TAPES 

The  DYPDIN  program  was  written  to  provide  extremely  rapid  response 
to  the  need  for  grey  opacities  for  hydro  code  usage.  DIAPHANOUS  or 
ANN- ANHIST - ANDIMX  code  summary  output  is  available  in  card  form. 

These  cards  are  read  by  DYPDIN  and  a  pseudo-DIANE  tape  file  is  created 
in  DIANE-tape  format.  At  the  same  time,  a  set  of  DIANE  cards  can  be 
punched  (refer  to  DIANE  card  writeup). 
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00101  i 

00101  t 

00101  s 

ooioi  * 

00101  9 

oo«oi  * 

00101  T 

00101  • 

■•111  • 


SJBBOpTlNC  0UST« 

Owl  STB  IS  *  PBOOBAM  THAT  *DS  AND  LISTS  OIAPHANOUS  OUTPUT  CABOS. 
Copco  BT  Cm* Is  I MLS  BCOB  *V» 190T 

this  paoobam  assumes  oiaphanous  caros  occur  in  sets.  one  sct  kb 

DIAPHANOUS  BUN, 

THIS  PBOOBAM  ASSUMCS  At  LCAST  ONC  SUCH  SCT  IS  input. 

THC  BIBST  TtfO  CABOS  OB  A  BIVCN  SCT  CONTAIN  COMMENTS  ABOUT  THAT  SCT, 


00101 

10. 

00101 

11. 

00101 

12. 

00101 

13. 

00101 

1«. 

00101 

19. 

00101 

10. 

ooioi 

IT. 

00101 

I*. 

OOIOI 

19. 

OOIOI 

20. 

OOIOI 

21. 

OOIOI 

22. 

OOIOI 

23. 

OOIOI 

2b. 

OOIOI 

29. 

OOIOI 

2b. 

OOIOI 

2T, 

OOIOI 

20. 

OOIOI 

29. 

OOIOI 

30. 

OOIOI 

31. 

ooioi 

32. 

OOIOI 

33. 

OOIOI 

3*. 

OOIOI 

39. 

OOIOI 

30. 

OOIOI 

ST. 

OOIOI 

30. 

OOIOI 

3V, 

OOIOI 

**0. 

00101 

Ml. 

OOIOI 

Ml. 

OOIOI 

•*3. 

OOIOI 

00. 

ooioi 

09. 

OOIOI 

00. 

OOIOI 

OT, 

ooioi 

00. 

ooioi 

09. 

OOIOI 

90. 

ooioi 

91. 

OOIOI 

92. 

OOIOI 

93. 

ooioi 

90. 

OOIOI 

99. 

OOIOI 

90. 

OOIOI 

9T, 

OOIOI 

90. 

OOIOI 

99. 

OOIOI 

OO. 

OOIOI 

01. 

OOIOI 

02. 

oom 

03. 

ThCSC  CABOS  mat  SPCCIBY  ant  MCSSABC  THC  BBOOBAMMCB  OCSIbCSi  OB 
THEY  MAT  SC  LCFT  BLANK. 

THC  THIBO  CABO  OB  A  OiyCN  SCT  IS  A  TITLE  CABO  »HICH  IS  IOCNTICAL  TO 
THL  titlc  on  the  corrcsponoin#  OIABhANOUS  output  tabc.  the  oiaphanous 
Output  pbintout,  ano  thc  oiaphanous  output  plots  fbom  the  bun  wiICh 

PBOOUCCO  THIS  CABO  SET. 

THt  FOUBTH  CABO  OF  A  SIvEN  SCT  IS  A  •TmCTAi  CABO.  IT  CONTAINS  ONLY 

A  yALUC  FOB  THCTA,  IT  IS  FOLlOpCO  BY  ONE  OB  MOBC  *RHO*  CABOS,  EACH  OB 
BHICH  contains  THE  bollovino  oata 

1.  bho 

2.  PBCSSUBC  iPBCSHB ) 

3.  CNCPSY 
*.  CION 

9.  HBOS  (CAPABI 
B.  BPLA  (CAPACI 
T.  ZOAB 
B.  C6AM 

THCSC  CABOS  CONTINUE  UNTIL  THC  Nf FT  THCTA  CABO  BOB  THAT  MATERIAL, 

OB  UNTIL  A  NCR  OLISTB  CoNTBOL  CARj  IS  CNCOUNTCBCO. 


0  k  I  t  T  B  CONTBOL  CABOS 
THEBE  ABC  TrO  TYPES  CB  QL1STB  CONTBOL  CABOS 


vabiablE  name  columns  bobmat  meaning 

00  ME  1*0  AB  00  MC  has  ONLY  THBCC  VALUES 

1,  IFnfl  MF.lo.SYAhTI  THL  BUN  BCBINS, 
OLI'-Y  mHITIS  MtSSAOLi  ANU  CIPCCTS 
YO  BEAU  AhOTHLH  CONTBOL  CABO, 

S.  IB ( 00  NE.lO.NlBSETl  COOC  CIPCCTS  TO 
BC6IN  BE Ay I NO  AnO  LlSTlNS  OIAPHANOUS 
OUTPUT  CABOS. 

3.  IBISJ  MC.CO.CNCBUN)  COOC  CALLS  HIT, 
ICHCCK  bt-72  BB.3  IChccb  has  only  thbcc  values 

1.  IBIIChCCK.lt. 01  OLISTB  CIPCCTS 
BCA3  ANOThCB  >00  MC*  CARO, 
t.  IBlICHECK.CO.OI  COOC  ASSUMCS  IT 
IS  BCAOINB  A  THETA  CARO 
3.  !B(!CHCCK.9T.0>  COOC  ASSUMES  IT 
IS  BCAOINB  A  BHO  CARO 


TU  Bun  OLISTB,  THE  CONTBOL  CABPS  MUST  OC  PLACED  COBBCCTLY. 

THE  BIBST  OATA  CABO  OB  ANY  BUN  MUST  CONTAIN  THC  RORO  ‘START*  AS 

THE  VALUe  OB  THC  VARIAOLC  *00  ME*.  IT  ALSO  CONTAINS  THE  NAME  OB  THE 
PERSON  001NS  THE  BUN  ANO  THC  OATC  OB  THE  BUN 


VABIABLE  NAMC  COLUMNS  BOBMAT  VALUE 


00  ME 
LISTCB 


1-0  AS  STABT 

T-2*  3A»  (NAME  Ot-  REASON  OOINB  BUN) 
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00101 

64. 

C 

MONTH 

25-30 

*6 

(Current  month) 

00101 

6S. 

c 

DAT 

31-33 

A3 

(CURRENT  DAY) 

00101 

6b , 

c 

TEAR 

36-37 

JU 

UURRENT  TEAR) 

00101 

67. 

c 

Type 

61-47 

A6 

TYPE. CO. NORMAL  IP  STANDARD  IAMMA  SCT 1 

00101 

66. 

c 

TYPE. El. 0  IP  NON-STANDARD  IAMMA  SCT 

T  H£  SECOND  DATA  CARD  Of  ANT  A  UN  MUST  CONTAIN  THE  MOAD  'NEMSET' 

AS  THE  VALUE  0^  THE  VARIABLE  >00  ME*.  'NEhSET'  MEANS  A  SET 
of  DIAPHANOUS  OUTPUT  CARDS  MILL  IE  READ  IN  NEXT. 

pollom ing  the  second  data  card  is  the  set  of  diaphanous  output  capos. 

•••••  NOTE  -  TVO  HEADER  CARDSi  f ORMAT ( l*A6/9Afc) , MUST  PRECEDE 

EACH  COMPLETE  OIAPHANOUS  OUTPUT  CARD  SET  ••••• 

POwwOmING  the  LAST  OATA  CARD  op  ant  PARTICULAR  DIAPHANOUS  OUTPUT  CARO 
SET  IS  A  CONTROL  CARD  MlTH  A  NESATIVf  NUMBER  IN  COLUMNS  67-71. 

AS  THE  VALUE  Of  .lCHCC*1. 

«HEN  THIS  CARD  IS  READ.  CODE  EXPECTS  THE  NEXT  CARD  READ  TO  IE  A 
OLISTR  CONTROL  CARO  MlTH  A  VALUE  POR  *D0  ME*. 

IP  THE  POLLOMING  CARO  contains  *N£mSET'  as  The  VALUE  OP  'DO  ME*.  The 
program  mill  EXPECT  TO  HEAD  ANOTHER  DIAPHANOUS  OUTPUT  CARO  SET. 

IP  THAT  card,  HOmEvER,  CONTAINS  • ENORUN'  AS  THE  V»LUC  OP  *00  ME',  THE 
PROGRAM  mill  exit  NORMALLY. 

CODE  MILL  EXPECT  TO  READ  A  CONTROL  CARD  HAVING  'START'  AS  THE  VALUE 
OP  'DO  ME'  ONLT  ONCE)  AS  THE  PIRST  OaTA  CARD  OP  ANT  OLISTR  RUN. 

CODE  MILL  EXPECT  TO  REaO  A  CONTROL  CARD  HAVING  'ENORUN*  AS  ThE  VALUE 
OP  '00  MC>  ONLY  ONCE;  AS  THE  LAST  OATA  CARO  DP  ANT  OLISTR  RUN. 

EACH  DIAPHANOUS  output  CARO  SET  MUST  IE  PRECEOCD  IT  A  OLISTR  CONTROL  CARO 
having  'NEmSET'  as  The  VALUE  op  *00  ME'. 

EACH  DIAPHANOUS  OUTPUT  CARD  SET  must  IE  POLLDNEO  IT  A  OLISTR  CONTRX  CARO 
HAVING  a  negative  NUMBER  AS  THE  value  DP  ' ICHECR* . 

integer  oo  me,  endrun.  start,  type 

INTEGER  HEADER. REMARK 

dimension  lISTERU) 

DIMENSION  REMARK  ( 24 ) ,  h'A0ER<1I>,  VDROID 
DIMENSION  TEMSTO(SOO) 
dimension  GAMMA  I  ED ) 

0-ISTR  CONTROL  CARDS 
OATA  EN0RUN/6HEN0RUN/ 

DATA  NE»Sf T /GHNCmSET/ 
data  STANK  (."START  / 

OATA  formal  uHNORMAL/ 

OATA  G'«"A  JO.  i  100* ,  500.,  1,90,  I.tSC*,  6.2SC4,  S.6C9,  I. EG, 

I  I. SET,  l.CI,  I. SCI,  I, Cl,  I.SClo/ 

P  0  R  M  A  T  S 


00121  111.  C 

00113  II 7.  7000  PORMAT  (126H 


CURRCNT  OIAPHA 
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0123 

11* 

0123 

II* 

012* 

120 

0123 

121 

0123 

122 

012S 

123 

0126 

12* 

0127 

12S 

0130 

126 

0131 

127 

0132 

12B 

0133 

129 

013* 

130 

0133 

131 

0133 

132 

0135 

133 

0136 

13* 

0136 

135 

0137 

136 

0137 

137 

0137 

138 

01*0 

139 

01*0 

1*0 

01*0 

1*1 

OKI 

1*4 

01*1 

1*3 

01*1 

l*n 

01*2 

1*3 

01*2 

1*6 

01*2 

1*7 

01*3 

1*6 

01*3 

1*9 

01*3 

130 

01*« 

131 

01** 

152 

01** 

153 

01»* 

15* 

01** 

153 

01*5 

15b 

01*6 

157 

01*7 

138 

0150 

159 

0163 

160 

0165 

161 

0167 

162 

0171 

163 

0171 

16* 

0172 

163 

0173 

166 

0173 

167 

0177 

166 

0210 

169 

0210 

170 

BUI 

171 

INUjS  0»T»  VALUES  FOA  SELECTED  MATERIALS  •••••••••••••••••••••••••• 

2 . . 

70*2  Fjrmat  (1H1.12A6.9A6I 

70*3  Format  (  122H  TmET*  SETS  OONC  FOR  SAmma  VALUES  OF  20. >100. 

1.300.,2.S.OS«1.23«0*.6,25«0*,3.**OS«2.*06,1.3*07.1.*00>0.5«00>0.*0 
29.6.3*10  ) 

70**  FORMAT  I1X.12A6) 

75*0  FORMAT  (3A6.A3.»».**.»6» 

73*1  FORMAT  (*2X » 1 3ml IsT  MAgE  BY  .3*6»3mON  * A6 > A 3 , 1 X . Ab ) 

73*2  FORMAT  (1M1) 

75*3  FORMAT  ( 12*6/9*6/ 12*6 * 

75*3  FORMAT  (/8H  TMETA  z  > 1PE10.*>  I5m  ELECTION  VOLTS) 

75*6  FORMAT  (1P6E10.*.0»2F6.3I 

75*7  FORMAT  (13H  AMOIO/CRJ)  .9X.TR'  | BAAS ) > 10X . 1 1MENGIEA6S/6) >6X.  IIhC 
110  4(EAsS/il.6X.llH<A0SlC*2/S).7X.l|>*XALX(C»l2/6)  .10X.6M26AA.  SX. 
2*Ri«AM/(6(lPEl2.*>6X| >2(2X>0AX8.3i2X) )  i 
76*0  Format  (SOHOOlISTA  CONtAOL  CAAO  EAADA.  CHECK  FOA  MlSSPtLLCO  bOAD  0 
lA  MISPLACED  CAAO  IS  NSETX  .13. IM.) 

76*1  FORMAT  (88M)DI APmanOuS  CAAO  ERROR.  DL1STA  «AS  ExPECTINS  TD  AEAD  A 
1 TheTA  c* ad.  But  IT  FOUnO  bORD(2)x  .E12.*  /  *6M0CM£CK  FOR  MISPLACED 
2  *4  MISSIS*  CARD  IS  NSETs  .13.1*.) 

7602  FORMAT  ( IOOHIDIaPMASOUS  CAAO  EAAOA.  DlISTA  BAS  EXPECTING  TO  AEAD  * 
1  TmETa  CAAO.  BUT  IT  FOUNO  *  CAAO  Bit*  TMETAio./SAMOCMECK  POA  AN  IN 
2VAl!0  CAAO  IN  NSETx  .13.1*. I 

76*3  format  (H9midi*pmanous  caao  Input  eaaoa.  olista  mas  expectino  to 
1ALAD  the  FI  AST  AMD  CAAO.  BUY  TME  CAAO  IT  AE*D  MAS  A  VALUE  OF  2ERD/ 
255mOFqA  THE  PAESSUAE.  CHECK  FOA  AN  INVALID  CAAD  IN  NSETx  .13.1*.) 
76**  Format  (12IM10IAPMANOUS  CAAO  input  EAAD*.  DLISTA  bAS  EXPECTINO  TD 
IALAD  THE  FI  AST  AMO  CAAO.  BUT  TME  CAAO  IT  A£A0  HAS  A  VALUE  LESS  ThA 
2N/«6M01  FOA  K.  CHECK  FOA  AN  INVALID  CAAO  IN  NSETx  .13. IN.) 

76*5  FOANAT  1 1 1 1  HI  DIAPHANOUS  CAAO  INPUT  ERROR ■  DLISTA  BAS  ExPECTInB  TO 
IAlAD  A  AMO  CAAO.  BUT  TmC  CAAD  IT  AEAD  HAS  A  VALUE  OF  2EAD/*TH0F0A 
2AHU.  CHECK  FOA  AN  INVALID  CAAO  IN  NSETX  ,13. IN. I 
7900  format  I1M1,*JX.*BHLIStIN6  OF  0I»PHAN0US  DuTPuT  CAADS  IS  COMPLETED 
1.) 


C 

C 

C  BtSIN  TME  RUN 

NiETl  -1 

soo  continue 

NSETx  NSET*1 

READ  (5.7300)  DO  ME*  (LISTERIL I .Lit . 3) .  NONTN.  DAT,  YEAA,  TTPE 
IF  | DO  ME  .EO.  ENDAUN)  SO  TO  530 
IF  (DO  ME  ,EO.  START)  BO  TD  510 
IF  (DO  me  .EQ.  NEBSET)  BO  TO  510 
•0  TO  600 

C  DO  ME  .EO.  START 

Sio  Continue 

BAITE  (6.7502) 

•RITE  (6,7000) 

•RITE  (6.73011 (LISTEAIL).LXI. 3).  MONTH,  OAT,  TEAR 
80  TD  500 

C  09  ME  .EO,  NE«SET.  START  REAOINB  DIAPHANOUS  OUTPUT  CARO  SET 

s«o  continue 
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00212 

00214 

00215 

00227 

00227 

00227 

00227 

00205 

0020o 

00240 

00240 

00240 

00241 

00242 

00242 

00244 

00245 

00253 

00250 

00233 

00254 

00255 

00263 

00263 

00263 

00263 

00265 

00*65 

00265 

00265 

00265 

00265 

00267 

00267 

00271 

00271 

00273 

00275 

00300 

00301 

00302 

00303 

00303 

00303 

00303 

00304 

00305 

00307 

00310 

00312 

00312 

00312 

00362 

00312 


172. 

173. 

174. 
17>. 

176. 

177. 

178. 
170, 
180. 
181. 
182. 

183. 

184. 

185. 

186. 
187. 
186. 
180. 
1VU. 

191. 

192. 

193. 

194. 

195. 
19c. 
197. 

196. 

199. 

200. 
201. 
202. 
203. 


If  (NSET  .EQ.  0>  60  TO  600 

BIAO  (5.75031  (BEmabaUI  1 .11*1.211  •  (HEADEB(JJ)  .JJzl.12) 

•KITE  (6.70021  (BEm*BA (Ill •11=1*211 

2  COUNTS  ThE  NUNBE6  0*  6*0  CABDS  *08  *  0!v£N  THCT8,  6*0  *08  THt 
THETA  CABO.  6 NO  K:i>2.....N  *08  THE  NTH  6H0  CABO. 

«:  -1 

If  (TTPE  .EO.  NDBNALI  80  TO  1 
30  TO  550 


c  TTPE  .EO.  NOBMAL.  PBInT  OUT  STANOABO  BANNA  SET 
1  Continue 

■BITE  (6.70031 

c 

550  Continue 

b*1TE  (6. 70.4)  (HEA0E6(JJ).  JJ*l»l2t 

C  BtAO^OATA  CABO  ANO  CHECK  TO  SEE  BHEThEB  IT  IS  A  CONTBOL  CABO.  OB  A 
C  DIAPHANOUS  THETA  OB  BHO  CABO 
AS  *  ♦  1 

BiAO  (5.7506)  (6OB01N),  N*1.8> 

IP  (bORD(6>  .LT.  0.)  SO  TO  521  _  ,  _ 

BOBO  (8)  .LT.  0.  MEANS  A  CONTBOL  CABO  SIBNAlINS  THE  tNO  Of  THAT 
OIAPhANOUS  OUTPUT  CABO  SET  BA,  BE AO 


•OIASNOSTIC* 

204. 

•OIASNOSTIC* 

205. 

206. 

207. 

20(1. 

209. 

210. 

211. 

212. 

213. 

214. 

215. 

216. 

217. 

216. 

•OIASNOSTIC* 

219. 


4U0 


52* 

529 


220. 

221. 

222. 


IP  (bOP.'MS)  .67.  o.l  60  TO  524 
BUrtO(6)  .Of.  0.  MEANS  A  BHO  CABD  BAS  JUST  BEAO 

PAST  THIS  POINT  *E  ShOolO  HAVE  ONLY  THETA  CABOS.  bOBD 1 1 1 .LE.O.  .08. 
•OBu (2 1 . NE . 0 .  IS  AN  E«*OB  ON  *  THETA  CABO. 

The  TEST  fOB  EQUALITY  bETbEEN  nON-INTESEBS  NAT  NOT  OE  NtANINBf*. 

Tn^TeST^POb'eOUALITy'bETbEEn^ON-INTEBEBS  NAY  NOT  OE  NEANlNBf*. 

If  (bOBOID  .EE ■  0.1  80  TO  522 
IP  (K  . 6E •  1>  60  TO  528 
•HITE  (6.7505)  BOBD(l) 

60  TO  540 
CONTINUE 
N  t  1 

SO  TO  529 

IchECa.CT.O. .  CHECK  VALUES  Of  K.  BOBD(l).  ANO  BOBD(2) 

EXPECT  THAT  A  BHO  CABO  IS  BEInB  BEAD 
CONTINUE 

If  (A  .EO.  1)  60  TO  400 

Continue 

THE  TEST  fOB  EQUALITY  BETbEEN  n0N-INTE6EB$  NAY  NOT  BC  NEANINBflA. 

If  (BOBDI2I  >E8.  0,1  80  TO  525 

PUT  THE  VALUES  fBON  THt  BhO  CABO  INTO  TENPOBABY  STOBA8C 
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0031*  223.  3<6  CONTINUE 

00315  M«.  00  52 T  msl.l 

00320  225.  Tt«ST0(N):  kORO(Nn) 

•0221  22k.  «♦! 

00122  227.  527  CONTINUE 

0032k  22*.  00  TO  340 

00324  220.  C 

0032*  230.  C  KRITE  DIAPHANOUS  OUTPUT  CARO  SET 

•0325  231.  92*  CONTINUE 

0032k  232.  701  CONTlNUt 

•0327  233.  «»:  •  •  (K«l) 

00330  234.  kRITE  (6>75o7)  (TE«ST0(L>.  LH.HO 

0033k  235.  Ks  0 

0033k  23k.  C  K  COUNTS  THE  NU*6ER  Of  RHO  CMOS  POP  •  OlVEN  THETA.  Kit  POP  THE 

0033k  237.  C  THETA  CARD.  AND  . . .  fOP  THE  NTH  MHO  CAPO. 

•0337  23*.  If  (aOAO(8l  ,LT .  0.1  «0  TO  S00 

00341  23k.  KOUNTT  :  KOJNTT.l 

003k2  240.  If  (HOuNTT.OT.3l  MITE  (k.7S02> 

003*5  2*1.  If  (KOUNTT. 07, 31  K0UNTT*1 

•03*7  2*2.  KRITE  16. 75051  MOP9IH 

00392  2*3.  00  TO  5*0 

00392  24*.  C 

00392  2*5.  C  NORMAL  EXIT  POINT 

00393  24*.  530  continue 

0039*  2*7.  If  (NSET  ,E0.  01  *0  TO  kOO 

•039k  2*0.  PP1TE  (6.79021 

00360  2«k.  KRITE  (k.TtOOl 

•03k*  250.  RETURN 

••3k2  251.  C 

00363  252.  521  CONTINUE 

003k*  253.  If  (K  .LC.  II  60  TO  600 

003kk  25*.  «0  TO  701 

003kfe  255.  C 

0036k  25k.  C  ERROR  EXITS 

003k»  257 .  C 

00366  250.  C  ERROR  POUND  In  CHECKIN#  THE  VALUES  OP  A  ThETA  CARO)  THETA. £#,0. 

00367  25V.  522  CunTInUE 

00370  2fc0.  KRITE  (6.75021 

00372  261.  kRITI  (6.76021  NSET 

00375  262.  RETURN 

00375  203.  C 

00375  2fc«.  C  ERROR  POUND  In  CHECKIN#  THE  VALUES  OP  A  THETA  CAPO)  »OPO(|l  ,NE,  0 

00376  265.  523  CONTINUE 

00377  206.  KRITE  (6.75021 

••*•1  267.  KRITE  (6.76011  kORO(2l.  NSET 

••*05  26«,  RETURN 

•0*05  26k.  C 

••*09  270.  C  ERROR  POUND  IN  CHECKIN#  A  RHO  CAPOl  vOPO(|l  ,E*.  #. 

••«••  271.  525  CONTINUE 

••*•7  272.  NRITE  (6.75021 

••*11  273.  KRITE  (6.76031  NSET 

••*16  27*.  RETURN 

••«!»  275.  c 

••61*  276.  C  ERROR  POUNO  In  CHECKIN#  A  RHO  CARO)  K.LT.l 

•0*15  277.  531  CONTINUE 

00*16  27*.  KRITE  (6.75021 

00*20  27k.  KRITE  (6.760*1  NSET 

•0*23  260.  RETURN 

00*23  2*1.  c 

00*23  2*2.  C  ERROR  pound  IN  CHECKIN#  A  RHO  CAROl  KOROI 1 1 ,E0.0. 

00*2*  2#3.  532  CONTINUE 

00*25  2#«.  KRITE  (6.7502) 

00*27  2#3.  KRITE  (6.7695)  NSET 

00*32  2 #6.  RETURN 

00*32  2*7.  C 

00*32  260,  C  OUST  CONTROL  CARO  ERROR 

00*33  2#k,  600  CONTINUE 

00*3*  2*0.  KRITE  (6.7502) 

00*36  2kl.  kRITE  (6.7600)  NSET 

004*1  2k2.  RETURN 

00**2  2k3,  end 

ENO  C*  lISTIN*.  3  KOIAONOSTIC*  NESSAaElS), 
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Input  for  DYPDIN 


CARD 


NO. 

COLUMNS 

FORMAT 

DESCRIPTION 

1 

1-12 

112 

IDA:  a  right-justified  DIANE 
run  identification  number 

2 

1-72 

1  2A6 

The  DIANE  tape  title 

3 

1-2 

12 

UNIT:  tape  mounting  unit 

3 

5-6 

12 

IDO  :  if  0,  write  tape  and  punch 
DIANE  cards.  If  1,  only  punch 

DIANE  cards.  If  2,  only  write 
tape 
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00101 

1. 

SudROoTlNC  DTPOIN 

00101 

00101 

1. 

6. 

C 

c 

PROGRAM  TO  REAO  OIAPHAnOUS-TYPE  OUTPUT  D»TA  CAROS  AMO  PUMCM 

00101 

6, 

c 

oiantc-format  oat*  Caros  amo/or  mrite  a  oune  ncm-foamat-Stylc 

00101 

6. 

c 

0*TA  TAPE  (OME  FREQUENCY  6R0UP  ONLY 

00101 

6, 

c 

00101 

7. 

c 

00103 

6. 

OlxCNHON  10(12). *OAO(*).»uFS(1000).TEm$TO  (1001 

0010* 

9. 

OAT*  K/-1/.M/1/.  I»0/1/.aCOUNT/0/.KR/0/.HNUT/1./. X1/-I.E6/ 

00116 

10. 

INTEGtA  UNIT 

oom 

11. 

c 

0011} 

11. 

Rt*0(6.7000)  10*.  10, UNIT,  100 

00116 

16. 

7090  Format  I  111/  12*6/  Il.H.Il) 

00117 

16. 

•HITE  (6.7001  10*.  >0.  UNIT.  100 

00160 

16. 

790  format  (  irh  input  as  re*o  is  /  sx.th  id*  x  .112  /  5*. oh  id  *  • 

0016b 

16. 

1  11*6  /  5>,  «H  UNIT  s  ,11  /  5*.  7m  too  X  .11) 

00160 

17. 

C 

00160 

16. 

C 

lo*  IS  A  11  OlOlT  IDENTIFICATION  NUM6ER)  RIGHT  JUSTIFIED 

00160 

19. 

c 

10  IS  A  HEAOER  CARO  ARRAY 

0016Q 

10. 

c 

00160 

11. 

c 

100=0  IF  hRITE  TAPE  *NO  PUNCH  CAROS 

00160 

11. 

c 

luosi  if  punch  caros  only 

00160 

16. 

c 

100=1  IF  (RITE  TAPE  ONLY 

00160 

1 6  . 

c 

00160 

16. 

c 

r t ao  oi*fhanouS-ttpe  Oat*  caros 

00160 

16. 

c 

00161 

17. 

1  Continue 

00162 

16. 

AtAO (6.7001)  (■ORO(N),  Nxl.tl 

00160 

19. 

7091  F9KM*T<6£10. 6.216.6) 

00161 

60. 

KSR»1 

00161 

61. 

c 

00161 

61. 

c 

■0R0I6I .5T.0.  MEANS  A  RMO  CARO  «*S  JUST  READ 

00161 

66. 

1F(MORO(»).ST.O.I  SO  TO  10 

00161 

66, 

c 

00166 

66. 

IF  (K  .SC.  1>  SO  TO  10 

00166 

66. 

BuFSIlaOl:  ALOSlROROl 1 1 1 

00167 

67. 

SO  TO  1 

00167 

66. 

c 

00167 

6V. 

c 

00160 

60. 

10  CONTINUE 

00161 

61. 

IF  (R.E6.1I  MSI 

09166 

61. 

ii  Continue 

00166 

66. 

c 

00166 

66. 

TEmSTO  (Ml  :  ALOSInORDiS) ) 

00166 

66. 

TlmSTJ  (M«l)  X  ALOS  (•0*3(61) 

00166 

»6. 

Tims TO  (M«l)  I. ALOS  («0«0<1>I 

00167 

67. 

MSM«6 

00170 

66. 

SO  TO  1 

00170 

69. 

c 

00170 

60. 

c 

00171 

51. 

<o  Continue 

00171 

51. 

Ki:  6  •IR-I )  *kk 

00176 

56. 

TCmSTOIIIx  F-l 

00176 

56, 

mm:  m  •  1 

00176 

55. 

c 

00176 

56. 

00  11  mmmzi.mm 

00100 

57. 

11*0  s  1*0  ♦  MMM 

60101 

56. 

SuFS(IlMO)  x  TEMSTO  IMMM) 
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00402 

0020* 

00205 

00206 

00206 

00207 

00210 

00212 

00212 

00212 

0021* 

00215 

00216 

00217 

00221 

0022* 

00225 

00222 

0022* 

002*0 

002*1 

002*2 

002** 

00**5 

002*6 

00**7 

00*51 

0025* 

00255 

00257 

0025* 

00265 

00*66 

00271 

00*72 

00272 

00*7* 

0020* 

00205 

00210 

00211 

0021* 

00215 

00217 

00220 

00221 

00220 

0022* 

00227 

00260 

00262 

00266 

002k* 

00266 

00257 

00260 

00262 

0026* 

0026* 

0026* 

00265 

00.'66 

00270 

0027O 

00271 

00272 


59. 

60. 
61. 
62. 
62. 
6*. 

65. 

66. 
67. 
66. 

69. 

70. 

71. 

72. 
72. 
7*. 

75. 
7e. 
77. 

76. 
79. 
60. 
61. 
62. 
62. 
6*. 

65. 

66. 
67. 
66. 
69. 

90. 

91. 
9*. 

92. 
9*. 

95. 

96. 

97. 
96. 
99. 

100. 

101. 

10*. 

102. 

10*. 

105. 

106. 
107, 
106. 

109, 

110. 
111. 
112. 
112. 
11*. 

115. 

116. 
117. 
116. 

119. 

120. 
l-.l. 
12*. 
122. 
12*. 


*1  CunTInuE 
1*9  5  11*9*1 
*20 

XCOUNT  -  XCOUNT  «  1 

c 

x*u6D:  *069(1)  *  ,5 

IF  >2*060  .CO.  0)  60  TO  20 
SuFS ( 1*9) :  AL06 (*060(1)  ) 

60  TO  1 
C 

20  continue 

Fn*D:  2  •  * COUNT  ♦  66 

X*:  2C0UNT 

If  (100. CO. 2)  60  TO  *0 
Punch  7503. ID* 

75*3  F w6M*T  (112) 

Pu  hCh  750*.  (10(1). lsl.lt) 

750*  FuKMAT  (12*6) 

Punch  7505.  hnuT.FnwD 

7505  FORMAT  (6C12.7) 

Nag:  Fn*D 

1F(N*D.6T,1oOO )C*LL  NCR* 

XX:  Fn*0/6. 

XX  =  NhO/6 
Ax:  xx 

IF (xx. OT .ax)  xx:  xx*l 

OO  31  U1.2 

lx:I 

IF  (1.C9.2)  Xi:.00I 
punch  7507.xi.x2.ix 
7507  FORMAT (2C12.7i*9X t 13. *H  0) 

K*ax:o 

OU  31  KLlNOsl.KX 
KKilNDS  XU  I  NO 
KM1NS  XHlX  *1 
KMAX:  KMAX  *6 

PUN'H  7506.((BUFS(1WO).IWD*6NIN.*NAX)  .IX.66LIN0) 

7506  FORNAT  (6C12.7.1X.13.U) 

21  CONTINUE 

NOC  :  2*(XX*1)  «  2 

»61TC  (6.7506)  NOC  _  .  . 

7506  FORNAT  (26H  PuNCHIN#  It  CONPLITED  NO.  OP  CARDS  ■  »!•> 
IF ( lOO.CO.l)  60  TO  50 
60  CONTINUE 
RExlNO  UNIT 

aRlTC  (UNIT)  I0A.(10(1).1*1.12) 

•RITE  (UNIT)  HNuT.FNtO 

00  *1  111 >2 

61s  -1.C6 

IP  (1  .CO,  2)  XI  <  .001 
WRITE  (UNIT)  61. X2 
MR1TC  (UNIT)  (6UP6(IvO) . I 60*1 >N90) 

*1  CONTINUE 

ENO  PILE  UNIT 
REalNO  UNIT 
WRITE  (6.7601)  UNIT 

76oi  fornat  <20h  oiane  t»pc  written  on  unit  ■  .III 
call  EOilNE(lO.Q) 


50  continue 

WRITE  (6.76011  . 

7602  FORNAT  <  tin  OTPOIN  RUN  CONPLITED.! 

RETURN 

ENO 


ENO  UF  lI*I1n6«  0  *0IA6N0STIC*  NCSSA6C(61» 
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APPENDIX  I 

AIRMQL  AND  CMOL  DATA  TABULATED  BY  GOLEM 

AIRMOL  RESULTS 

The  following  output  illustrates  AIRMOL/EIONX  answers  for  selected 
temperature-density  rectangles  (TRAIL  =  7.)  done  by  GOLEM.  The  column 
captions  refer  to: 


COLUMN  NAME  UNITS  MEANING 

1  THETA  °K  temperature;  ordinarily  given  in  eV 

(1  e  V  =  1 1  b05 . 4°K) 

2  RHO  gm/cc  P,  density 

3  PI  atm 


4 

E 

ergs/  gm 

specific  internal  energy;  includes 

Eo  ^  2.9  *  10*1  ergs/gm 

5 

NEAR 

EIONIZ 

NBAR,  the  mean  no.  of  atoms/molecule,  is 
printed  when  NBAR  £  1.  EIONIZ,  the 
ionization  contribution  to  the  specific 
internal  energy,  is  printed  when  NBAR  =  1 

6 

SYNPOT 

SYNPOT  =  9eV  £nr  [r  ~  0.01A  03/2/(PZ)] 
(A  ~  14.  549  for  AIRMOL) 

7 

FEW 

FEW  =  ZBAR  =  Z,  the  mean  ion  charge 

8 

CV 

ergs/  gm/  c  V 

3E 

cv  5  &  ;  0  in  cv 

90  p 

9 

PB1 

ergs/cc 

3E 

PB1*<a7V  T  = 

10 

ASQ 

cm/  sec 

equilibrium  sound  speed 

11 

EGAM 

1  +  P/[p(E-E  )];  E  ~  2.9  x  10^  ergs/gm 
for  AIRMOL  ° 

12 

EGAM2 

1  +  P/(pE) 

»*«»9  10«*A«  Jib'll 

/Z»«S3  *193  6Si  IS*  A3  »3J  /3i««3  /«rt«T3  3  T<j  Oh*  11>>1 
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C MOL  RESULTS 

The  following  output  illustrates  CMOL/EIONX  answers  for  a  portion 
of  the  molecular  checkout  set  (TRAIL.  6.)  done  by  GOLEM.  The  column 
captions  refer  to  : 


COLUMN 

NAME 

UNITS 

MEANING 

1 

THETA 

°K 

temperature;  ordinarily  given  in  eV 
(1  eV  =  11605.4  °K) 

2 

RHO 

gm/ cc 

density,  p 

3 

PI 

dynes/ cm^ 

pre  s  sure 

4 

E 

ergs/  gm 

specific  internal  energy;  includes 

E0  ~  6  x  1011  ergs/gm 

5 

6 

NEAR 

EIONIZ 

SYNPOT 

ergs/  gm 

NBAR,  the  mean  no.  of  atoms/ molecule  , 
is  printed  when  NBAR  £  1.  EIONIZ  is 
printed  when  NBAR  =  1.  EIONIZ  is  the 
ionization  contribution  to  the  specific 
internal  energy 

0  eV  £  n  r  [r  ~  o.  01  A  0  '  /  (p Z ) ]  where 

A  is  the  mean  atomic  weight.  (A  ~  12.  for 
CMOL) 

7 

FEW 

FEW  =  ZB AR  =  Z,  the  mean  ion  charge 

8 

CV 

ergs/gm/eV 

cVE,ffy ein  cV 

9 

PB1 

crgs/cc 

PBi  s  T  =  1/p 

10 

ASQ 

cm/  sec 

equilibrium  sound  speed 

11 

EGAM 

P  11 

1  +  = — = — r ;  E  ~  6  X  10  ergs/gm  for 

p(E-E0)  o 

CMOL 

12 

EGAM2 

i  +  4 

pE 
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APPENDIX  II 

EGREY  OUTPUT  AND  CARD  INPUT 
USED  WITH  GREYS 


EGREY  OUTPUT 

(Edit  output  of  GREY  tape  made  by  using  card  input. 
A  listing  of  the  card  input  follows  this  edit.  ) 
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CARD  INPUT  USED  WITH 


GREYS 


^l^.cSzIc-P^N^OC^tlGlNJ-lHONlOGKiitli.GSouTlH^M-^LIM.tlMESIONe. 
^H^U^Ic.PLTC*.“l1KL..LT  TUFF.KtFNASlL.SEA4ATtR.S.SHALt.9.*E 

UIANt^AlR“12A  ,12  FKEUUtNCltS  UtCEMBEH  21.196b  COMBINED  »1TH  AlP-llF 
0.120000*02  0.742000*01 

0.25^00  l^XZ  0.6,7217*01  0-924061*01  0.414821*01  0.611962*01  23  40 

•.SBSSSS  WSSKS  S:K!  :  :  :  ™J ta  Si  :i 

.lltlniz  it  :  - S:K?:SS  tt  :s 

IZlllil* Si  .°:iS55S 5*2?  Si  2? 

SSggSS  1  H 

8  3 

0 . 119192*0 1  0 .614701*01  0. 1174VO*02  0.231999*01  “-^^7*01  0.199993*02  23  54 

S:?iHr  vBwx  xigg :s|  siigjSKS  o:63626i*oi  #.:gg:j;  g  § 
2:2&x:B»t  :  :  j: it  i 

SStfiSSJS  t:isrtss  2:  6  :  :  i  SKS?  S:JS5SWt  it  i 

sisssssk  2:  :  •:•««»:«  t:ssss:sj  it  5 

0.994456*01  0.613661*01  0.7111,2*01  jj.ll  61  =11  ^  0.234456*01  13  10 

0.111191*02  0.117*70*02  0.239674*01  0.105745  02  ®  *  *  ,  m  0.607307*01  13  13 

0.962372*01  0.106667*02  0.624494*01  0.8,9924*01  O-’T®”  01  0.I,7i94*02  13  U 

0.714651*01  0.876575*01  0.*936UH*01  «•  561925  01  "  0.154026*02  13  15 

0.41066, *01  0.564420*01  0.135253*02  0.266713^01  0.406^^  #>  m869,ej,  u  1(> 

•:itS"^i  l:\S5S%  S:io3^:Si  S:*"!*.!  ii  i. 

S:iiE£:JS  2:SS&:xi  -  .*«&;:«  SiSttS^S  it  2 

1 1 

siSits:-.!  2:»:s;  5:^:jj  iiliSIiiii  iiHSIl Hi  St  B 

BiSBt:^:^ :  :  :  •  bs:?i  nsstSBSt  S:«:s?  Si  B 

#.:it4.5iBK  S’.SSEBS  :  :  2: U-jji  s=;.;  -;n®B  «  B 

2:B22RS5  2:  E  i:  H: W  fa  2:S23  is  is 

::8S83i  ::K!Sns  SlK&S  !:»»»*..  . ■>  - 
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0.913123*01  0.713833*01  U./05BU5*UI  0.757611*01  0.885435*01  0.522097*01  13  35 

0.566422*01  0*105227402  0. 3.10792401  0.4U2649*01  0.122415402  0.144472401  13  3ft 

0.21537*401  0.140190402*0. 1*8504400  0.337146400  0. 158930402-0. Il6481«01  13  37 

-0.1039*2401  0.179334402  0.311352401  0.100000*02  0.922718*01  0.109396*02  13  3ft 

0.14*986*01  0.89*218*01  0.104330*02  0.3213*7*01  0.849665*01  0.952396*01  13  39 

0.495518*01  0.745352*01  0.799485*01  0.6**029*01  0.590100*01  0.626493*01  13  40 

0.831132*01  0.41990**01  0.45*534*01  0.993846*01  0.241301*01  0.27*082*01  13  41 

0.116395*02  0.634242*00  0.9*bool*0U  0.134129*02-0.845557*00-0.678350*00  13  42 

0.152050*02-0.1*7*60*01-0.1*4791*01  0.173259*02  0.352*3**01  0.110000*02  13  43 

0. *03590*01  0.10188**02  0.101**2*01  0.745051*01  0.94612**01  0.273446*01  13  4* 

0. *542*4*01  0.82114**01  0.442217*01  0.528069*01  0.6*2242*01  0.607470*01  13  4*, 

0.383104*01  0.494144*01  0.770556*01  0.231795*01  0.327239*01  0.932348*01  13  4* 

0.837833*00  0.168089*01  0.110295*02-0.35*589*00  0.39921**00  0.128328*02  13  4? 

-0.11*4*1*01-0. *11398*00  0.147*79*02-0.1516*9*01-0.132617*01  0.168580*02  13  4ft 

-0.159915*01-0. 1547.0*01  0.192371*02  0.391202*01  0.110000*02  0.732884*01  13  49 

0.939175*01  0.534*33*00  0.6410*7*01  0.841827*01  0.221485*01  0.526586*01  13  50 

0.71*03**01  0.38*251*01  0.393*3**01  0.5*0200*01  0.552401*01  0.263748*01  13  5l 

0.460**5*01  0.71757**01  0.1423*2*01  0.34*018*01  0.884869*01  0.296376*00  13  52 

0.22315**01  0.10*070*02-0.637079*00  0.922559*00  0.124520*02-0.130453*01  13  53 

•0.430592*00  0.14372**02-0.155278*01-0.129597*01  0.164372*02-0.160512*01  13  54 

-0.155735*01  0.187522*02  0.424*50*01  0.110000*02  0.734139*01  0.908506*01  13  55 

0«*0  73o«-01  0.625192*01  0.814114*01  0.175808*01  0.504329*01  0.707234*01  13  5* 

0.343595*01  0.3819*9*01  0.596412*01  0.512607*01  0.252132*01  0.479154*01  13  57 

0.681394*01  0.122580*01  0.3510***01  0.849528*01-0.487093-01  0.201756*01  13  56 

0.102335*02-0.100330*01  0.412418*00  0.120270*02-0.144756*01-0.698935*00  13  59 

0. 13905**02-0.156301*01-0. 147204*01  0.159469*02-0.159764*01-0.158334*01  13  6r 

0.182497*02  0.4*0517*01  0.110000*02  0.771458*01  0.907600*01-0.385536*00  13  61 

0.6*0875*01  0.627*1**01  0.1319*1*01  0.535416*01  0.711347*01  0.303207*01  13  r>2 

0.3920*7*01  0.576249*01  0.472796*01  0.231921*01  0.430429*01  0.639034*01  13  >3 

0.724033*00  0.273943*01  0.8022***01-0.532945*00  0.106043*01  0.972466*01  13  t-4 

-0.1153*7*01-0.404407*00  0.114995*02-0.141672*01-0.130007*01  0.133716*02  13  6$ 

-0.15*222*01-0.15565**01  0.154121*02-0.1*0671*01-0.159603*01  0.177147*02  13  6* 

0.501064*01  0.110000*02  0.774*11*01  0.674798*01-0.872527*00  0. *81442*01  13  67 

0.772504*01  0.142410*00  0.5432/5*01  0.637259*01  0.25345**01  0.370974*01  13  68 

0.480153*01  0.418402*01  0.192452*01  0.319553*01  0.580857*01  0.423395*00  13  69 

0.159620*01  0. 742239*01-0. 5M*6ol*00  0.504535-01  0.911793*01-0. 122336*01  13  7o 

-0.106062*01  0.106915*02-0.163937*01-0.151885*01  0.12763**02-0.160328*01  13  7j 

•0.156766*01  0.146039*02-0.161154*01-0.169639*01  0.171065*02  0.541610*01  13  7; 

0.110000*02  0.650342*01  0.801177*01-0.136005*01  0. ,557203*01  0.673216*01  13  73 

0.311506*00  0.426474*01  0.5237*6*01  0.196204*01  0.274826*01  0.364089*01  13  74 

0.366903*01  0.117205*01  0.202089*01  0.520327*01-0.251208*00  0.466176*00  13  75 

0.681491*01-0.116191*01-0.856206*00  0 .850991*01-0. 152739*01-0 . 1*5B14*0 1  13  7* 

0.102634*02-0.160054*01-0.157639*01  0.121554*02-0.161189*01-0.159348*01  13  77 

0.141957*02-0.161339*01-0.159571*01  0.1*4963*02  0.582895*01  8.110000*02  13  7e 

0.466747*01  0.664161*01-0.193037*01  0.3*1921*01  0.552972*01-0.271655*00  13  79 

0.224161*01  0.400525*01  0.135653*01  0.7*4918*00  0.242780*01  0.297263*01  13  80 

-0.525141*00  0.850662*00  0.456655*01-0.124661*01-0.547866*00  0.619623*01  13  8l 

-0.152822*01-0.136313*01  0.769093*01-0. 160391*01-0. 156949*01  0.966409*01  13  82 

-0.1616*9*01-0.160276*01  0. 1163*2*02-0. 1**102*01-0 . 160774*01  0.135764*02  13  83 

-0.162130*01-0.160838*01  0.158790*02  0.621461*01  0.110000*02  0.322939*01  13  84 

0.586*30*01-0.246605*01  0.196808*01  0.448949*01-0.838755*00  0.555154*00  13  85 

0.29*515*01  0.782076*00-0.651724*00  0.136695*01  0.239480*01-0.120905*01  13  8* 

•0.116127*00  0.400752*01-0.152668*01-0.116519*01  0.561832*01-0.1605*0*01  13  87 

•0.153216*01  0.731266*01-0.162687*01-0.160666*01  0.9005*0*01-0.163084*01  13  08 

•0.161014*01  0.109577*02-0.163147*01-0.161900*01  0.129979*02-0 . 16315**01  13  89 
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-0.164011*01  U.153uU5*U2  0.655108*01  0.900000*01-0,  151621*01-0.873025*00  13  90 

0. 350288*01-0. 160659*01-0. 117109*01  0. 51 1375*01-0 . 163312*01-0. 160920*0 1  13  9l 

0. 680819*01-0. 163939*<il-U. 163288*01  0 . 0b8O89*Ul-O.  169053*01-0 . 163681*01  13  92 

0.109530*02-U.169U72*Ul-U.lb3799*Ul  0. 129932*02-0 . 164079*01-0. 163752*01  13  93 

0.147958*02-0.  164075*01-0. 163753*01  0. 1  *0984 *02-0. 16407b*0 1-0. 163753*01  13  9b 

0.194010*02  U.o9U77o*Ul  0.900000*01-0. 16U107*01-U . 1 30573*01  0.29bB73*0l  13  9s 

-0.1o3tiU6*01-U.15bu07*ul  0.457 ’lu9*Ul-U.164574*01-0, 164112*01  0.b27337*0i  13  9h 

-0.l647o2*Ul-0. 164951*01  0.111143011*111-0.  164,i23*U1-U .  ll>5, 195*01  0.'l'*l?'i5*0l  13  97 

*0. 1 04630*0 1-0. 1661 1  /  *U  1  U.1196U2  *02- 0.1 1*  4831*01 -0.166120*01  0,142008*02  13  98 

-0.164U31*Ul-U.16612*l*Ul  II. lh6t.34*U2-U.164»l31*Ut-U. 165121*01  n.l88bhn*02  13  9i) 

0*  131322*01  tl.'HiOullti*Ul-ll.l*i3773*lll-U«161tlil?M*l  II, ?3,.ll7',«ni-n.  lfi'jU.WHIl  13  1110 
•U  ,  1I'2'I3U*U1  11.39  ?I|99*U1-II.  II.Ml**  lill-il.  Ill'll  73*01  II, ••b«iS?l  *111-0,  Ill'll  111,1  Oj  13  1 U 1 
•0,  l,*6676*Ul  0 « 713  7*<o*  lll-U  •  1  *,'.,'*  1  /  ! Ul-U •  lii*)li,*'i *11 1  0  ,,*il),*7bt Ul-ll ,  111’*** l1** 111  13  10? 
*0  •  Ib'ifi'jb*  U 1  Uill3!il|i|*0i--0il»',*,*2U*lll-0il*''ili,i/*lll  0 . 13,i*i?l.*n?»fl,  17.*|4?IIMI1  13  101 

*11,11,1.11, ',?*Ol  II,  1,i'»!i‘i.,Mi.'“iI«1i>'i4.,IHII1"II«  l*,,lti,ill*l*l  ll.lli;'!.7H*ll.-  0,  /rillli'lllll  13  llll 
0 ,9U0IIU0* Ul-U,  lliblilil  *111-11,  1*','32|'* 111  III  l  /‘j3<V«II1“II , 1I.63.V** Hl-0,  t ♦•*1.1.911  * II 1  13  111*, 

0, 330300*01-0.10 6433*0l-U.  1*i6o'73*  Ul  U.6'l6714*lll-U ,  165454*01-0.  1669*78*0  t  13  10b 
0  .002 '740*  Ol-O,  1064  6*1*  01*0. 1660 16*01  U.I|7U16f>*Ul-U. 165459*01-0.  lbbUl9*0l  13  107 
U.lU74lU*U2-U.lli6469IUl“0.1O6Ul9*Ul  U.13U4,*4*U2-0.16545,'*01-0. 166019*01  13  loo 


0. 163470*02-0. 16,i46'**m1-u.1*iI>U19*II1  U. 1  76496*02  U.  0.  13  109 

!)!> 

OIANt/bCAT  ALLUVIUM-lli  1NHU1  f  APL3 l**<*0 7 ,2h8b i  39031  11-7-b?  Cl/LN 

.1000000*01  ,9U**UUUU*U3 

1 1 3u ,  .2100000*02  1  0 

.10b1o'jl-0U  .1300000*02  ,1210211*02  .  13l4'754**'2  •  1  3H6IIOH  ,0 1  ,ll7bbb0*0?  1  1 

.  12  7b1bo*U2  .3530**33*01  .11118117,02  ,12'*2b71*02  ,5M1'I?12,01  ,9<i7l23b*01  1  2 

,lll9Ub‘i*02  ,  7996490*U1  .llbl'li  70*01  .lu0bll5*U2  ,1016543*02  .7025321*01  1  3 

.8159708*01  ,121  721b*  U2  .53oUoU3*Ol  .6788109,111  .  1 1H7 IS1* •  0?  ,3i03782*0l  1  1 

.1870120,01  .15*13751*02  .13J0uU9*Ul  .2*181273*01  . 1 7831. 0  /  *8?-. b5<)b2H'»-0n  1  8 

.0171231-00  . 19, m3..,02-. 2131502*01-. 1013280*01  . 221 01 14 * 02-. 2||0 700b*0 1  1  b 

-.2273732*01  .2457008*02-. 2923875*01-. 2837849*01  .2708155*02  .8109302-00  1  7 

.1300000*02  .1311190*02  .1313532*02  .2130912*01  .1257392*02  .1302925*02  1  8 

*  .1221920*01  .1173079*02  .12b0011*U2  .b3H9b3b*0l  .1017850*02  .llb2752*02  1  9 

.8381818*01  .890 lb 70*0 1  ,9787ol3*01  .1018862*02  .7093116*01  .7931236*01  1  10 

.1188110*02  .5250519*01  .blb3332*01  .1361125*02  ,35272R1*1I1  .1->7bl89*0l  1  11 

.1557507*02  .1670930*01  ,2871569*01  . 1763711*02-. 2976321-00  .8893305-00  1  12 

. 1975577*02-. 1856b18*01-. 1022122*01  .21951 75*02-. 2595775*01-. 2322112*01  1  13 

. 2120081*02-. 2bb2b52*ol-.2o3B732*01  .2671021*02  .1223775*01  .1300000*02  1  ll 

, 1307276*02  .1321652*02  . 2957912*01  . 1256233*02  .1273930*02  .9905135*01  1  lb 

.1173591*02  .1219572*02  .6279129*01  .10i6129*(i2  .1115309*02  .8075918*01  1  lb 

.8890711*01  .9b 72305*01  .9870285*01  .7099316*01  .7957113*01  .1166060*02  1  17 

.5297773*01  ,6135bl0*01  .1395970*02  .3368760*01  .1319206*01  .1531659*02  1  In 

.1177300*01  .2155690*01  . 1 729032*02- .9 1 57226-00  .5201386-00  .1993329*02  1  19 

-.1860707*01-. 1329971*01  . 2100398*02-. 215522b*0l- .2323305*01  .2387812*02  1  20 

— • 2992028*0 1-. 2969255*0 1  ,2033259*02  .1609938*01  .1300000*02  .1279071*02  1  2} 

.1293o09*02  ,2903592*01  .1231833*02  .1253555*02  .9187738*01  .1155922*02  1  2? 

,’202903*02  .6032113*01  .1030971*02  .1089686*02  .7855889*01  .8591922*01  1  23 

.9289129*01  .9619209*01  .6729962*01  .7517072*01  .1135293*02  .9fl31251*01  1  2l 

.5632960*01  .1315388*02  .2908932*01  .3790539*01  .1998081*02  .1060812*01  1  2b 

.1981955*01  .1691701*02-. 7298276-00  .1198317-00  , 1903993*02-. 1925168*01  1  26 

-.1513761*01  .2121979*02-. 2281550*01-. 2192672*01  .2352738*02-. 231 1599*01  1  27 

-.2287573*01  .2599797*02  .1995910*01  .1300000*02  ,1229830*02  .1262539*02  1  2n 

.2225920*01  .1199923*02  ,1226007*02  .3999367*01  ,1120027*02  ,1169279*02  1  29 

,66U9^o9*01  .9033086*01  .1091065*02  .7586187*01  .7929059*01  .8711159*01  1  30 

,9336199*01  .6130190*01  .0930902*01  .1103588*0*  ,9397991*01  .5199097*01  1  3l 


f 


.  I 


AFWL-TR- 67-131 


Vol  IV 


.1261496+02  .2580077+01  .3300947+01  .1465142+02  .7335768-00  .Ih72713+C*  1  32 

.1659324+02-. 9a62,:50-OO-. 1465331-00  .  16  7000 1*02-.  1606709+0 1-.  Is70571+01  1  33 

,2090921 *02- .2101003+01- ,2044107+01  . 2323640+02-. 2131 165+01-. 2110061+01  1  34 

.2562000+02  .2302505+01  .1300000+02  .11/0343+02  .1226026+02  .1963367+01  1  35 

.1143105+02  .1100051+02  .3710306+01  .1056367+02  .1125126+02  .5001966+01  1  it 

.0112231+01  .0922271+01  .7253751+01  .7415001+01  .6246617+01  .6965313+01  1  37 

.5700402+01  .6551093+01  .1066575+02  .3937263+01  .4619456+01  .1246439+02  1  3$ 

.2170065+01  .3110415+01  .1432079+02  .3762539-00  .1366695+01  .1627591+02  1  39 

-.1101 711+01-. 4000141-00  . 1635692+02-. 1604034+01-. 1640715+01  .2052657+02  1  40 

-. 2040457+01-. 2007e35+01  .22 7bd24+02-. 2049946+01-. 2031899+0 1  .2517727+02  1  41 

.2706060+01  .1300000+02  .1134192+02  .1161019+02  .1641654+01  .1095677+02  1  42 

.1146373+02  .3365440+01  .1010565+02  .1070194+02  .5125315+01  .6761507+01  1  4) 

.9337534+01  .6667^36+01  .7062040+01  .7657921+01  .6602644+01  .5250327*01  1  4* 

.5932396+01  .1031063+02  .3340427+01  .4142652+01  .1206925+02  .1476663+01  1  45 

.2362528+01  . 13d7o23+ 02- « 1919291-00  .5611237-00  .1577025+02-. 1431115+01  1  46 

-.1012316  +  01  . 1 784006+ 0 2-. 1 866598+0 1- . 1769665  +  01  .2001462  +  02- . 1953972+01  1  47 

-.1935334+01  .2220227+02-. 1947453+01-. 1929236+01  .2467445+02  .3113515+01  1  48 

.1300000+02  .1090916+02  .1144400+02  .1261366+01  .1061131+02  .1106011+02  1  49 

.2991522+01  .9747717+01  .1012001+02  .4742370+01  .6244655+01  .6633336+01  1  50 

.6475629+01  .637694H+01  .6943bl9+01  .6173662+01  .4559463+01  .5216964*01  1  51 

.9634065+01  .2797926+01  .3493451+01  .1156407+02  .1000467+01  .1792777+01  1  52 

• 1336055+02- .5093570-00  .9913234-01  . 152 7216+02-. 1S05219+01-. 1245235*01  1  53 

. 1734475+02-. 1009210+01-. 1762303+01  . 1951666+02-. 1651643+ 01-. 1631070+01  1  54 

. 2176991+02-. 1034217+01-. 1615660+01  .2418120+02  .3526360+01  .1300000+02  1  55 

.1024435+02  .1090291+02  .6512523-00  .9940400+01  .1052302+02  .2577967+01  1  56 

.9007013+01  .9549709+01  .4300172+61  .7553673*01  .6121617+01  .5992533*01  1  57 

.5764517+01  .6334407+01  .7602775+01  .3964450+fl  .4626419+01  .9317258+01  1  56 

.2201426+01  .2937047+01  .1104940+02  .5446456-00  .1260163+01  .1265706+02  1  59 

-.6542364-00-. 2050566-00  . 1476151+02-. 1593699+01-. 1369477+01  .1662984+02  1  60 

-.1754735+01-. 1705320+01  . 1900251+02-. 1744707+01-. 1722503+01  .2126465+02  1  61 

-. 1722133+01-. 1703716+01  .2367454+02  .3912023+01  .1300000+02  .9244134+01  1  62 

• 1 012445+U2  .4271455-00  .0756407*01  .9330626+01  .2170636+01  .7039103+01  1  63 

.631*763+01  .361779U+01  .6306278+01  .b849719+01  .5492059*01  .4767225+01  1  b« 

.5432130+01  .7157540+01  .3207021*01  .3906642*01  .0612606+01  .1531364*01  1  65 

.2390267+01  .1054606+02*. U’49o67  +  00  .6160591-00  .1236647  +  02-. 1200519*01  1  fcfc 

-.5956290-00  . 1427427+02*. 1590099+01-. 1417821+01  . 1635267+02-. 1670622+01  1  67 

-.1634043+01  . 1051630+02-. 16H6125+01-. 1666656+01  .2076600+ 02- . 168670! *Gl  1  66 

-.1660326+01  .2313190+02  .4240495+01  .13U0000+U2  .6729055+01  .9477706+01  1  69 

.1753163-01  .0216467+01  .6743660+01  .1710021*01  .7265253+01  .7671065+01  1  7c 

.3390516+01  .5747053+01  .6264346+01  .50/1046*01  .4193635+01  .4931932+01  1  71 

.6747455+01  .2477100+01  .3476667+01  .8412590+01  .8232677-00  .1947750+01  1  72 

.1014779+02-. 5674356-00  .3963393-00  .1 195272+02-. 1335896+0 1- . 9214360-00  1  73 

.1383705+02-. 1608462+01-. 1529474+01  . 1306274 +02- . 1667763+01-. 1606635+01  1  7* 

.1002621+02-. 1675667+01-. 1650061+01  .2027212+02- . 1674662+0 1-. 1656709+01  1  7; 

.2263907+02  .4605170+01  .1300000+02  .6422995+01  .9096676+0 1-. 4310307-00  1  7ft 

.7091497+01  .6371667+01  .1263771+01  .6004465+01  .7220706+01  .2762153+01  1  77 

.5220766+01  .5766995+01  .4647704+01  .3510363+01  .4326523+01  .6314163+01  1  ?e 

.1011161+01  .2608652+01  .7955603+01  .2016167-00  .1207575+01  .9061696+01  1  79 

•• 92 022 17-00 -.320 32 35-00  .1 143940+02-. 1453699+01-. 1300447+0 1  .1331565+02  1  60 

-.1616144+01-. 1599050+01  . 1535996+02-. 1659784+01-. 1644447+01  .1750391+02  1  61 

-.1659645+01-. 1641539+01  . 1975529+02*. 1642276+01-. 1623696+01  .2213695+02  1  62 

.5010635+01  .1300000*02  .7687619+01  ,6703106+01". 93760*6-00  .7303079+01  1  63 

.7666424+01  .7679103*00  .6107053+01  .6510252+01  .2457503+01  .4464373+01  1  to 

,4960959+01  .4116437+01  .2735773+01  .3410705+01  .5750261*01  .1156476+01  1  65 

.1647669+01  .7369205+01*. 2147726-00  .3219659-00  .9069376+01-. 1111662+01  1  66 
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-.06OU195-UU  .1085059*02- 
-.1571341*01  ■  14 /9no8*02- 
-.16929/0*01  .1919o02*02- 
,UOOOUO*U2  ,707U1BH*01 
.2411106-00  .603865**01 
.3538354*01  .2039001*01 
. 679663 /*01-. 0919604-00 
.10290b/*02-. 1562393*01- 
.  1420u08*02-.lfc0B>il;l*01- 
. 1858blB*0i-.lOll53o*01- 
■  63344  70*01  .7234829*01” 
.4226667*01  .4721892*01 
.11415B3*U1  .200203/*Ul 
-.11 12121*01- .7332440-00 
-• 1 5o9l 06*01”.  1  5584 18* ul 
lblOO89*01-. 169259h*ul 
-■  1009azl9*ol-.  1691492*  01 
.0614459*01-. 2620 140*01 
.4130660*01  ■ 77b8204-00 
•10587/4*01  .4019.,40*U1- 
-.120  371*01  .732439/*Cl- 
-.1578806*01  .109b942*02- 
-.158B5b5*01  .1615280*02- 
-.1588308*01  .1975850*02 
-.2984501*01  .3850204*01 
■2842532-00  •49B7b31-U0 
.3bl6714"*01-.llG2644*Ul- 
.6B22o41*01-.1577dl3*01- 
. 104ob14*u2-. 1605064*01 - 
.1464Ub2♦02-.160eo93♦ul- 
,19253uO*02  .b9U /756*01 
.2059386*01  .3«,b/233*Ul- 
-, /330/G/i-O..'  . /35/5UII-U0 
•.l364ii<1lllul-.ll//2//*ul 
-,1694u63l0l-.  16/49/1/1*01 
-.  1000654*01-.  1680006*01 
-.1000/14*01-. 1580303*01 
.7313220*01  .1300008*02 
,2/29862*01-. 24 7031b*Ul 
.319/158-01  • /64B9/2-U0- 
-.1449541*01  .39B/411*ul- 
-.16B449/*01  • 7453322*01- 
-.1580312*01  ■ 1130535*02- 
-.1580309*01  .1574738*02” 
.1300000*02  .1449u4B*01 
-. 3071 048*01”. 4528T0H-UU 
.1682674-00”. i518B37♦0l- 
.^3792ol♦01”.1606246♦01” 
.6045125*01”, 1608978*01” 
,1075/16*U2-.10090T4*U1- 
. 1513918*02-. 16090/0*01- 
-.6660149-01  ,2204292*01- 
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.9299765*01 
.7609290*01 
.37362/7*01 
•  3057*330*01 
.1736517-00 
.2216532*01- 
.2299970*01* 
.1233326*02 
.1065329*02 
.7366336*01 
.3939326*01 
.5666737-00 
.1620266*01 
.1991906*01 
.9292303-00 
.6379606*01 
.7663922*01 
.1137369*02 
.1319369*02* 
.1932717*02- 
.2919712*02 
.1003066*02 
.6965356*0$ 
.9162137*01 
.7397066-00 
.1366661*01* 
.1609361*01* 
.3912023*01 
.9797069*01 
.7392369*01 
.6306362*01 
.7991963-00 
.1366701 *01 
.1601076*01 
.1300000*02 
.1616223*01 


.1116306*02 

.7393500*01 

.3996607*01 

.3713610-0 ' 

.29/7309*01 

.1300000*02 

.9009991*61 

.7661191*01 

.1102353*02 

.1999606*02 

.1691769*02* 

.2296759*02* 

.9622776*01 

.6299069*01 

.5696996*01 

.2635795*01 

.90/1916-01 

.2909113*01* 

.2569991*01* 

.1161135*02 

.1002629*02 

.71/3679*01 

.90/7267*01 

.6939716-00 

.2026122*01 

.22/6166*01 

.1235211*01 

.9692993*01 

.6163925*01 

.1169195*02 

.1331600*02* 

.1966233*02* 

.2901936*02 

.1009320*02 

.7363636*01 

.9266626*01 

.11/6629*01 

.1919371*01- 

.1019369*01- 

.3326360*01 

.1069376*02 

.7936297*01 

.5117299*01 

.1627697*01 

.1231730*01 

.1799791*01 

.1300000*02 

.1991263*01 

.3933693*01 

.6633517*01 

.1239176*02- 

.1623362*02* 

.2063766*02* 

.6663092*01 

.7631929*01 


.6016731*01 
.1135952*02 
.1507931*02 
.1696670*02- 
.2337076*02- 
1035233*02 
.9023619*01 
.7263900*01 
.36016*9*01 
.6061136-02 
.2661667*01- 
.2029616*01- 
.1156669*02 
.1022562*02 
.6663161*01 
.3503326*01 
.5600056-00 
.2202369*01 
.2566091*01 
.1699637*01 
.5073177*01 
.<196**27*01 
.1196939*02 
.1562292*02- 
.201732**02- 
.2993269*02 
.90093*6*01 
.7976010*01 
.9996620*01 
.1356307*01 
.1325036*01- 
.203330**01- 
.3113513*01 
.1163902*02 
.6603696*01 
.5907723*01 
.2367636*01 
.9293563-00 
.17917*0*01 
.1300000*02 
■ ’273033*01 
.3763362*01 
.9235037*01 
.  1266*.  29*02- 
•166*21 1 ♦ 02— 
.2121615*02- 
.961031**01 
.6092135*01 
.3236295*01 
.1566797*01 
.1239306*01- 
.1763960*01- 
.1617235*01- 
.9796623*01- 
.•207793*61 


.8653093*01 

.5028669*01 

■9726370-00 

.2916*50*01 

.3101163*01 

.1219762*02 

.1129651*02 

.5007959*01 

.9219512*01 

.3367015-00 

.255*716*01 

.2811209*01 

.2062931*0 

.3332230*01 

.69013*0*01 

.1229992*0? 

.1*06799*02 

.20*0939*02 

.2517310*02 

.6*1*779*01 

.6632033*01 

.9666282*01 

.1*69236*01 

.1595218*01 

.23*7735*01 

.2706030*01 

.1166939*02 

.9113*60*01 

.539*187*01 

.2269295*01 

.9*39963-00 

.2022276*01 

.1300000*02 

.2610191*01 

.612*216*01 

.9562029*01 

.1323623*02 

.173136**02 

.2162110*02 

.1030623*02 

.069123**01 

.53*2256*01 

.2303670*01 

.7326376-00 

.1776311*01 

.16162*3*01 

.103*997*02 

.0671706*01 

.39*1*00*01 

.2332360*01 

.73*3*26-00 

.17770*6*01 

.1603673*01 

.1311263-00 

1 33S7****0l 


23 

2* 

25 

26 
27 
20 
2* 

30 

31 

32 

33 
3* 

35 

36 

37 
36 
39 
*0 
*1 
*2 
*3 
*9 
*3 
*6 
*7 
*6 
*9 
50 

31 

32 
53 
3* 
55 

36 

37 

38 
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62 
63 
6* 
*3 
66 
67 
66 
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*0 
Tl 
72 
*3 
7* 
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.62354U3«0l  .o7030ol)*01  . 50654o4*ul  .**'1* 01*01  .5018425*01  .6736960*01  1  7g 

.<464*40*01  .330013**01  .836643o*01  .6/6357o-00  .1562195*01  .1006575*02  1  7b 

-. 70304/4-00-. 4U24010-U1  .1163671*02-. 14*4331*01-. 1280055*01  .1371070*02  1  BO 

-.172059**01-.1719<7/*U1  . 15 /5045*02-. 1805309*01-. 1 793120* 01  .1789103*02  1  61 

-. 1810444*01-. lUU1444*01  .20  13314*02-.  1816161*01*.  1801392*01  .2249793*02  1  62 

.4606170*01  1300000*02  .7b32796*01  . 9222736*01-. bl34076-00  .7140633*01  1  63 

.6679926*01  .1219619*01  .6266433*01  .7366644*01  .2925017*01  .4942032*01  1  64 

•  bo3b339*ol  . 4bB6743*0i  .33119669*01  .3933313*01  .6219b42«01  .1635430*01  1  65 

.226ou39«01  . 763ol 7b*Ol  .b04391b-01  .6050262-00  .9531629*01-, 1066556*0 1  1  66 

-.6064726-00  . 113041 7*02-. 1616335*01-. 1556490*01  .  1317774*02-. 1772663*0  !  67 

-.1741553*01  .1522956*02-. 1757526*01-. 1734277*01  . O*  1204*l/i- .  1 71 1460*0)  1  66 

-.1693o35«01  .1970405*02-. 1665536*01-. 1648562*01  .221I^72'-02  .5010635*01  1  69 

.1300000*02  .6255676*01  .6403224«01-.1000326*01  .5539733*01  .7539415*0,,  1  90 

.6959960-00  .4399906*01  .6076127*01  .2363647*01  .29)3110*01  .4396069*0)  l  91 

.3942866*01  .1542049*01  .2822273*01  .5617065*01  .2339426-00  .1440627*01  1  92 

.7236616*01-. 7479826-00  .35b2o56-00  .6460434*01 -. 1364966*01-. 55*5671-00  l  *3 
.1076009*02-. 1600945*01-. 1223719*01  . 12 '0042*02- .  164  3767*01- .  1 551396*01  1  9*, 

.1476632*0*-. 16449*4*01-. 1021444*01  .1641405*02-. 1650407*01-. 1631165*01  1  9$ 

.1915673*02-. 1050929*01-. 1032164*01  .2152002*02  .5416100*01  .1300000*02  1  9b 

.5576201*01  .747*406*01-. 1514030*01  .4521476*01  .6393225*01  .1320505-00  1  97 

•3336607*01  .5136164*01  .1776326*01  .2010482*01  .3975745*01  .3426302*01  1  9„ 

. 6002u57-0 0  .2944943*01  . 5004321*01-. 2656642-00  .1761902*01  .67  351*01  1  96 

-.1073492*01  .3901977-00  . 8471 712*01-. 14 '71 1 3*01-. 646  743-00  .102^252*02  1  100 

-.1602970*01-. 1462647*01  . 1212eU5«02-. 1632549*01-. 1608298*0 1  .1416555*02  1  101 

-.164/463*01-. 1626200*01  .1630066*02-. 1650027*01*. 1629564*01  .1654662*02  1  102 

-.1650096*01-. 1629661*01  .2091163*02  .6214606*01  .1300000*02  .5810716*01  1  103 

.6912521 *0 1- . 2606250*01  .4741142*01  . 5864254*01- . 9296266-00  .3334975*01  1  104 

.44 16ul 4*0 1  .7274621-00  .1626244*01  .2913151*U1  .2362922*01  . 1828367-On  1  IO5 

.1347676*01  .3474585*01-. 7848138-00-. 4746181-01  .5590650*01-. 1365307*01  1  10b 

-.1173654*01  .7284775*01*. 1544617*01-. 1556414*01  .  9056798*0 1- . 1628421 *0l  1  107 

-.1610365*01  .1092601*02-. 1631536*01-. 1615956*01  . 1296683*02-. 1631929*01  1  108 

*. 1616oo9*ol  .1510640*02-. 1631477*01-. 1616754*01  . 1735086*02-. 1631982*01  1  109 

-.1616763*01  .1971407*02  .6551080*01  .1300000*02  .4949466*01  .6297602*01  1  1 1 0 

-.3058579*01  • 3924 1 1 2*01  . 5045o75*01-. 1 346 320* Cl  .2456130*01  .3490699*01  1  111 

.2416438-00  .8428281-00  .1411945*01  . 1 862252*0 1-. 4681296-00  .4176304-00  1  112 

.34/5747*01-. 1283265*01-. 6887599-00  .5066134*01-. 1569516*01-. 1440996*01  1  113 

.6760103*01-. 1619426*01-. 1546587*01  .8562046*01- . 1625335*0 1- . 1609945*01  i  1U 

•  1042 340*02-. 102609 3*01 -.1611010*01  . 1246413*02-,  1626194*01-. 1612056*01  1  II5 

.1460419*02-. 1626206*01-. 1012066*01  . 1684615* 02*.  1626206*0 1-.  If,  12069*01  1  lib 

.1420930*02  .6407755*01  .1300000*02  .3462403*01  .5479661*01-. 35^9797*01  1  117 

.22 84067*01  .4u5o920*Ul*. 1915404*01  .8638565-00  .2532921*01-. 2466132-00  1  llB 

-.45989*6-00  .9431654-00  . 1 3203o7*0l-. 1233276*0 1-. 4736506-00  .2941036*01  1  119 

-.1536111*01-. 1336913*01  .4551175*01-. 1613760*01-. 1572993*01  .6245101*01  1  120 

-.1626634*01-. 1609502*01  . 60 1 7 085*01-. 16*6852*0 1- . 1 615442*0 1  .9666893*01  1  121 

-.1624207*01-.1616373*01  . 1 1924 1 1*02-. 1624242*01- , 1616480*01  .1406918*02  1  122 

-.1624246*01-. 1616493*01  . 1631 114*02-. 1629246*01-. 1616494*01  .1867*35*02  1  123 

.7313220*01  .1300000*02  .1856409*01  .4458080*01-. 4148703*01  .5671446-00  1  1*4 

. 3030172*01-. 2507219*01-. 609*, J53-00  , 14  764  74  *  0 1-. 6  90  8  0  83  -  00-.  1278*17*01  1  125 

-.2645216-01  .7206161-00'. 1531172*01-. 1116260*01  .2332942*0 1- . 16 1 U 34*01  1  12b 

-.1525536*01  .3942999*01-. 1632155*01-. 1610721*01  ,5638907*01-. 1636276*01  1  127 

-.1625090*01  .7406888*01-. 1637062*01-. 1627587*01  .**806*5*01*. Ib37169*0 1  1  128 

-.1627962*01  .1132092*02-. 1637206*01-. 1626035*01  . 13460*8*02-. 1637206*01  1  12* 

-.162*041*01  .1570294*02-. 1637206*01-. 1626042*01  .1606615*02  .7716665*01  1  130 

.1300000*02  .4*36759-00  . 3467134*01-. 67271 36*01-. *3159*2-00  .1*77021*01  1  13l 

-.3112765*01-. i26406**01  .4*49023-00*. 14**269*01“. 15303*7*01-. 61*****-00  1  13* 
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.112*1*7*00-. I6l350**01-. 1**9221*01  .172*790*01-.  16381 3 > *01-. l606*06*0l  1  133 

.333**11*01-. l6**2***01-. 1635909*01  .502871 1*01-.  16*5**2*01-.  16*1  U**0l  1  13* 

•6000691*01*. 16*5666* Ul*. 16*2028*01  .06/2*97*01-. 16*5701 *01-. 16*2172*01  1  13b 

.1071272*02-. 16*5706*0*-. 16*2191*01  .126b270*02-.l6*b707*01-. lb*2193*0l  1  13b 

.1509*76*02-. 16*570/*ol-. 16*2193*01  .17*b79b*02  .6131531*01  .1300000*02  1  137 

-.0229*33-00  . 1*97*99*01-. b3*2919*01-. 1360177*01  ,230072*-00-.37307b3*01  l  130 
•• 156*692*01-.96*0102-00-. 211 71 72«01-. 1630516*01-. 153639* *01-. 5051 186-00  1  139 

-.I6*98b0*01-. lbblb*9*01  .110bb*7*01-.16b*60**01-. 1667972*01  .27lbb«9*0l  1  1*0 

-.16557*5*01-. Io7oo7/*01  .**09**6*01-. 1655899*01-.  1671090*01  .61«l*2**0l  1  1*1 

-.16bb927*01-. 1671162*01  .8063230*01-. I6bb932*0l-. 1671 173*01  .10093*6*02  1  1*2 

-. 1666932*01-. l67U7**0i  .  1223362*02-.  1666932*01-.  1671 176*01  .1**76*0*02  1  1*3 

-.1666932*01-. 1671176*01  . 16 t3oo9*02  .6617193*01  . 1300000*02-. 1 1 3990**01  1  1** 

.97662* 7-00-. 6919689*01-. 1*06617* 01-.*236*6*-00-.* 30061 3* 01-. 1606031*01  l  1*6 

-. 1338203* 01- .2696*62*01-. lb*29u2*01-» 1616121*01-. 1003662*01-. 16631 36*01  1  1*6 

-.16636/6*01  .627L66/-00-. 1666*72*01-. 16/0107*01  .21 37068*01-. l6bb0***0l  1  1*7 

-.1671131*01  . 3630962*01*.  1666917*01-. 16/1319*01  .6602930*01-. 1666930*01  1  1*8 

-.1671362*01  .7*7*736*01*. 1666932*01-. 16/1367*01  .961*967*01-. 1666932*01  1  1*9 

-.1*71368*01  .1166602*02-. 1666932*01-. 16/1360*01  .1389698*02-. l*>56932*0l  1  160 

-.1671360*01  .1626019*02  .6063*66*01  . 1 300000*02*. 1328309*0 1  .366*636-00  1  16l 

-.6*23610*01-. 1663*0 1*01-.0996926-00-.*01 2993* 01 -. 1626066*0 l-.l6l076**0l  1  162 

-.3197602*0 1-.  1**0760*  t'l-.16*7d92*0l-.  1680203*01-.  166*  363*01-.  1667712*01  1  163 

.2236676-01-. 1666696*01*. 16700*7*01  . 1632361 *01-. 1666007*01-. 1671366*01  1  16* 

.33262***0t-. 1*66926*01-. 1*71*60*01  .6090222*01*. 1666931 *01-. 1671*66*01  1  166 

•b970028*01-. 1*66932*01-. 1671*69*01  .90102*9*01-. 1666932*01*. 1671*69*01  1  16* 

.1116032*02-. 1666932*01-. 1671*69*01  • 1339220*02-. 1666932*01-. 1671*69*01  1  157 

.16766*9*02  .0000000  .0000000  .0000000  .0000000  .0000000  1  150 

01ANt/5CAT  bt  iMl/LO  I  -2  10  FKIO.  7tH»> 1 1  .-2250.  I  Cl/JP  12-9-66  UOSttfC 
.1000000*02  .8610*00*03 
100*.  .2100000t«02 

.6000000  .1300000*02  .1120/97*02  .1226239*02  .101763**01  .1110633*02  1  1 

.1218690*02  .3993326*01  .109*826*02  .1199606*02  .66*7031*01  .1062011*0?  1  2 

.11*6686*02  .91669***01  .96*9*31*01  .1060220*02  .11*600**02  .79*3660*01  1  3 

.8066362*01  .133*966*02  .697918«*01  .6997003*01  .16121*1*02  .*016629*01  1  * 

.6201926*01  .1691896*02  .236*369*01  .36*1*11*01  .1086130*02  .9*70235-00  1  6 

.2220171*01  .2113898*02-. 6*17207-00  .67*66*2-00  .2356099*02-. 1086366*01  I  f 

-.11/1910*01  .26**70 7*02-. 2331033*01-. 2200*30*01  .20259*9*02  .*05*651-00  1  7 

.1300000*02  .126856**02  .130391**02  .330*670*01  .12*1567*02  ,127308**02  1  8 

.53*1821*01  .1163*73*02  .1233191*02  .7661265*01  .107*3*2*02  .1163*75*02  1  9 

.9*90022*01  .9380*73*0*  .1031799*02  .1122901*02  .79M57**0l  .0902133*01  1  10 

.1296906*02  .6*0*169*01  .7*2*930*01  .1*90002*02  .*706212*01  .6752600*01  1  11 

•1690217*02  .267l»l**0l  .3056*66*01  .1*86055*02  .6*8*357-00  .1700*03*01  1  1? 

.2U9050**02-. 1259626*01-. 2827398-00  .230*705*02-. 2150867*01-. 10*9065*01  1  13 

, 2626925*92-.237*2*5*01-.23*1553*01  .27662*0*02  .6109302-00  .1300000*02  1  1* 

.1251767*02  .1315*02*02  .3603679*01  .1239196*02  .1270393*02  .5*30*5**01  I  15 

.119**68*02  .12571*3*02  .7362686*01  .1095132*02  .11*7080*02  .9*202*3*01  1  lfc 

.9*75226*01  .10*0*93*02  ,1100709*02  .76*7003*01  ,052061**01  .12*5512*02  1  17 

.56*76*1*01  .6526721*01  .1*60113*02  .3617277*01  .*590206*01  .163**55*02  1  1* 

, 1573675*01  .2650190*01  .1*250***02-. 37550*6-00  .5766313-00  .4029900*02  1  19 

-.171659M01-.  1209627*01  .22*3911*02-.  22*1056*01-.  2213*66*01  .2*60100*02  1  20 

-.2399270*01-. 23078*9*01  .270**29*02  .1223775*01  .1300000*02  .11*2509*02  1  2l 

.1208*65*02  .3*1*570*01  .11260*6*02  .1256276*02  .6272*2**01  .107*5*3*02  1  22 

.11901*0*02  .712253**01  .97*19*1*01  .107**99*02  .0951153*01  .02*0559*01  1  23 

.09930*9*01  .10*5715*02  .6570902*01  .71*05*9*01  .1229*03*02  .*730059*01  1  2* 

,92*239**01  .1399*26*02  .200033**01  .33*5030*01  .157*7*9*02  .**700*0-00  1  *6 
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.1*37230*81  .1763952*02-. 41243O2-U0-.3043937-0U  . 1967978*02-. 1944287*0 1  1  2* 

-.14U52  33*01  .21B1965*U2-.23b<!24O.01-.i:  3»1091*01  . 2* 061  el  *02-. 2*20126*0  1  1  27 

-.2*01655*01  .2642502*02  .1604436*01  .1300000*02  .1009802*02  .1227335*0?  1  26 

.31*2*51*01  .4586454*01  .116/571*02  .4965120*01  .6755685*01  .1078577*02  l  29 

.6734154*01  •  7656094*01  .9*030*6*01  .84*4571*01  .6134108*01  . 7676116*01  l  30 

.1010064*02  .9686062*01  .5877047*01  .1172067*02  .2918190*01  .4099*61*01  1  3l 

.1341076*02  .1196363*01  .2211047*01  . 161891 7*02-. 437 0330-00  .3692746-00  1  32 

.1706106*02-. 1704313*01-. 13*6231*01  . 1910129*02- .2282687*0 1-. 2202374*01  1  33 

.2124l39*02-.2409046*01-.2384164*01  .23*8360*02- .2*21 1 31*0 1-. 2*02032*01  1  3* 

.2666018*02  .1946910*01  .1300000*02  .69O2o91»01  .1164172*02  .20*6789*01  1  J*j 

.6123342*01  .1002299*02  .45/0132*01  .7091698*01  .9666683*01  .6290296*01  l  3fc 

.6768412*01  .8096816*01  .7963166*01  .4336203*01  .6*39996*01  .9600912*01  1  37 

.2602666*01  .47*7963*01  .11217o**02  .1206069*01  .2992766*01  .1291236*02  1  3r 

•  .2bd9u  76-00  .121  /446*01  .  1466608*02-.  1366610*01-. 461291 1-00  .1(,6600**02  1  3d 

-.2013608*01-. 1673060*01  . 1862323*02-.  2160202*01-.  1902212*01  ..’168768*02  1  *0 

-.2061069*01-. 1963616*01  . 2332230*02-. 202601 1*0 1*. 2080063*01  .267*097*02  1  *1 

.2302606*01  .1300000*02  .6012773*01  .1089769*82  .2422371*01  .70032*3*01  1  *2 

.9868483*01  .4080964*01  .6848217*01  .8668297*01  .6779169*01  .4*46615*01  1  *3 

.7111149*01  .7*36405*01  .3100o03*01  .6596709*01  .9070768*01  .1669371*01  1  *4 

.417*138*01  .1069675*02  .101/052*01  .3051036*01  .12*3860*02  .263*995-00  1  *5 

.21/5162*01  . 143564**02- .  7606009*00  .8/24764-00  . 16374*2 ♦  02-.  1 62061 4*0 1  *6 

-.71650/0-00  .18*6601*02-. 1898068*01-. 1610616*01  .208*876*02-. 1 *27719*01  1  *7 

-.1744798*01  .2302719*02-.17*71o6*01-.1720694*0l  .2546*19*02  .2708050*01  1  *8 

.1300000*02  .7366634*01  .1003923*02  .1856524*01  .6*22863*01  .9*60926*01  1  49 

.3570504*01  .5383211*01  .0485695*01  .523*721*01  .45659*4*01  .76*0086*01  1  50 

.6917149*01  .3786768*01  .6*37063*01  .8682122*01  .2635593*01  .5168*09*01  1  51 

.10*2*38*02  .1365566*01  .372/0/9*01  .1218825*02  .3*19007-00  .2376167*01  1  52 

. 1*05095*02-. 7075832-00  .1017*91*01  .1604569*02-. 1*50052*01-. 55*71*4-00  1  53 

•  1613685*02-.  1691659*01-.  1460u65*01  .2026541  *02-.  1  727797*01-.  1667253*01  1  5«. 

.22528*2*02-. 17318*8*01-. 1712302*01  .2489174*02  .3113515*01  .1300000*02  1  55 

.8310046*01  .1061*30*02  .1*10669*01  .7504452*01  .1015099*02  .3105112*01  1  56 

.6621957*01  .9062373*01  .4666/52*01  .5*49629*01  .7763172*01  .6624582*01  1  57 

.426/336*01  .6454046*01  .8347537*01  .29276*6*01  .51*6636*01  .1007366*02  1  54 

.134/382*01  .361*620*01  ,1183302*02-.2682414-00  .1907*74*01  .1382?*0*0?  1  59 

-.1245*34*01  .1208/27*00  , 15*4/04 *02 -.10 10 924*01-. 1 145354*01  .1753r2**02  1  60 

-,  104*535*01-.  lii*unOO*ol  ,l'/o/ii3M*H.,*.l723«44*01-.17t  6*76*01  .2142035*0?  1  M 

•l  1  /.••<  III*.  *H|-.  I  /I  Mill  *01  I.'  .  V.2*.  *1.11*01  ,  |  4000001  n2  ,*I?60|.03I01  1  fi? 

,  10  .  / /••  4  •  II.  i'n'l.'U1*iMI  #0*11  #*.5*. Ml  I  .  1 0*0,*.. 0*0.'  /  v**l9*0|  I  /*.*•*•**. /*0|  I  M 

,11'JII /**,,'•  01  .**'•  /O'l  II  O I  , '.oil.  *,*otol  •  /'•.•5|*r*tO|  *I.),**.*0|  ,  *H  WIWIOI  I  I.* 

•  5 /40o*l4* 01  •  /'MI9635 * U 1  . 20*61.511 1  o I  ,4 1061.0  / •  0|  ,56*1.*  l*M  ol  •**'•.' I  04  l -On  1  *0, 

.2*32302*01  ,  1 123415*  02-.O2 /•■‘/54-UO  .72201*13-00  .  1 300I*M /«  02-.  1  333*1!'*  01  1  M. 

-.7052350-00  . 1*07801*02-. lUUO2O0*0l-. 1551015*01  . 1 64 1405*02-"  1  70  loO?  *0 1  1  f*7 

-. lb42o34*ul  . 1905412*02* . 1 /O651**01-« I644o70  *01  . 2 1 30 1 06*02-. 1 706761 *01  1  66 

-.1700206*01  .2360*24*02  .3412023*01  .1300000*02  .9115052*01  .102*072*02  1  69 

.6065*58-00  .8389852*01  .936*286*01  .2337060*01  .7125656*01  .8037130*01  1  70 

.4063324*01  .5366178*01  .6*12067*01  .5725763*01  .3*7626**0l  .*731306*01  1  7l 

.73*9453*01  .1702164*01  .3071*82*01  .6961991*01  .1717367-00  .13910*0*01  1  72 

. 10656*3*02-. 6067866-00-. 2148786-00  . 12*2851*02- . 1*67676*01-. 13*67*1 *01  1  73 

. 1430033*02-. 1655014*01 -.16451 07*01  . 1634056*0*-. 1666715*0 1-. 1666639*01  1  7* 

.1846063*02-. 1671546*01-. 1672592*01  .20 72259*02- . 1671699*0 1-. 1672808*01  1  7s 

•2306560*02  .42*6*95*01  .1300000*02  .7615535*01  .9523183*01  .2202117-00  1  76 

.705*317*01  .6*62353*01  .1428862*01  .57*0937*01  .6916560*01  .35*5562*01  1  77 

.*162616*01  .326*006*01  .3231267*01  .2533360*01  .3652*11*01  .66*6983*01  1  78 

•90**632-00  .2006038*01  .6*57749*01*.5*35062-00  .3796611-00  .1015161*02  1  79 

-.13636*0*01-. 1007297*0 l  . 1192362*02-. 1611*17*01*. 1566*66*01  .1379563*02  1  60 


415 


AFWL-TR-67-131,  Vol  IV 


-. 1644336*01-. I641u33«01  ,1363563*02-. 1647242*1)1-. 1647920*01  .1797392*02  1  >1 

-.1647350*01-. 1648612*01  .20217d8*o2-. 1647374*01-. 1646662*01  .2256109*02  1  712 

■46051 70*01  .1300000*02  .6301667*01  .6340640*01-. 2599053-00  .5373403*01  1  63 

, 7436o3**01  .1431340*01  *3992637*01  .3841640*01  .3072415*01  .2463573*01  1  64 

.4273939*01  .4699160*01  .92833/6-00  .2b/ 6337*01  .6312593*01-. 4333193-Op  1  65 

. 1 10U9o6*ul  .7422666*01-. 1254203*01-. 4833311-U0  . 9616619*01*. 1563602*01  1  6b 

-. 1409bb3«ul  . I 136481 *02”. 1630120*01”. 1611 795*01  . 1326062*02-. Ib391b6*0l  1  67 

•  lb3bbbl *01  .Ib30064*o2-. 1640254*01-. 1639523*01  . 1 744090*02-. Ib39974*0l  1  66 

-.lb392bt*01  .1966266*02-. 1639966*01-. 1639303*01  .2209606*02  .b0>0b3b«01  1  69 

.1300000*02  .49607b6*01  . 7741*67*01-. 7930319-00  .366bbbb«01  .6374490*01  1  9o 

.6396990-00  .2217061*01  ,4793bbb*01  .2469221*01  .7299957-00  .3227999*01  1  9j 

. 4092137*01-. bb34O07-oo  .1o30960*01  .5704644*01-. 126102b«01  .9134291-01  1  92 

.7314720*01*. 1536346*01-. 1121b4l*01  .9006631*01-. 1620594*0 1-. 1536103*01  1  93 

.1076061*02-. 1636911*01-. 1630307*01  . 1265242*02-. 1642050*01 -. 1640564*0 1  1  94 

.1469204*02*. 1642435*01*. 1641636*01  . 16632 71*02-. 1642612*01-. 1643106*01  1  9j 

.1907467*02-. 1642616*01-. 1643123*01  .2143766*02  .5416100*01  .1300000*02  1  96 

.2657163*01  .5663006*01*. 1363446*01  .1236225*01  .4240272*01  .23*4243-00  1  *7 

-.1249266*00  .3125629*01  . 1662965*0 1-.  1045002*01  .1591037*01  .3464431*01  1  9<< 

-.1457776*01  .6543653-01  .5096552*01-. 1599457*01-. 1265696*0 1  .6706544*01  1  99 

-.1642563*01-. 1616494*01  .6400436*01-. 1653600*01-. 1667176*01  .1017242*02  1  100 

-.  1656040*01*. 1672610*01  . 1204422*02-. 1656349*01-. 1673525*01  .1406444*02  1  1 0 1 

-.1656394*01-. 1673614*01  .1622451*02*. 1656399*01*. 1673630*01  .1646647*02  1  102 

-.1656400*01-. Ib73b31*01  .2062/66*02  .5026946*01  .1300000*02  .1921166*01  1  103 

.4927491*01-. 1993847*01  .4404«.42-00  .3461669*01*.  3764745-00- .6793496-00  1  IO4 

.1945066*01  .1244649*01*. 1310023*01  .4225615-00  .2665423*01*. Ib51595*01  1  IO5 

-.6646615-00  .4477339*01-. 1627336*01-. 1 516319*01  .6067266*01-. 1649985*01  1  10b 

-.1653613*01  .7761172*01-. 1655357*01-. 1671175*01  .9553149*01-. 1656235*01  1  107 

-.1673275*01  .1142495*02-. 1656376*01-. 1673565*01  . 1 346516*02-. Ib56397*0 1  1  106 

-.1673«26*01  .1560524*02-. 1656400*01-. 16/3630*01  . 1764720*02-. 1656400*01  1  109 

-•  lb73o31  *ul  .2021041*02  .6214608*01  .1300000*02  .1217654*01  .4219604*01  1  11(1 

-.2567930*01-. 1175628*00  .2755434*01-. 9356736-00-. 1046256*01  .1211116*01  1  111 

.6749794-U0-. 1454035*01-. 2654074-00  .2267060*01-. 1549041*01-. 1261994*01  1  112 

.3646073*01-. 1641324*01-. 1611441*01  .5508600*01-. 1653406*01-. 1695626*01  1  113 

.7202660*01-. 1655936*01-. Io/25u2«01  .69  74655*0 1-. 1656322*01-. 1673466*01  1  1 1 4 

.1064646*02-. 1656390*01-. Ib>3bl0*01  . 1266660*02- ,1656399*01-. 1673629*01  1  1 I5 

.1302673*02-. 163041)0*01-. Ib73«,31*01  . 1726671*02-.  16564«U*0 1 -. 1 b73o31 *0 1  1  111, 

.1963192*06  .6551060*01  .l30ou0U«02  .6107720-00  . 3590575*01-. 3070379*01  1  117 

-.5606046-00  .2106207*01-. 1439723*01-. 12/0268*01  .5671553-00  .1705063-00  t  116 

-.  1537623*01-. 76118456-00  . 1 7112422*01-.  1623296*01-.  1464073*0 1  .3394163*01  1  119 

—.1646166*01* • 1646549*01  ,50U4U45«01*. 1654609*01-. 1669966*01  .6697972*01  1  120 

-. 1656152*01-. Ib73u8b*01  .6469947*01-. 1656360*Ul-. 1673547*01  .1034175*02  1  121 

-.  1656345*01-. 1673620*01  . 1236197*02-. 1656399*01-. 1673630*01  .1452204*02  1  122 

•.1656400*01-. 1673631*01  . Ib7b4gu*02-. 1656400*01-. 1673631 *01  .1912721*02  1  123 

.6907755*01  .1300000*02  .1144339-01  . 2914692*01-. 3603923*01-.9566424-00  1  124 

. 1*1 5971 *Ul-. 1 974245*01-. 1 425373*01-. 8322368-0 1-. 364 1437-00-. 1 566693*01  1  125 

-.1164763*01  .1247466*01-. 1636246*01-. 1592237*01  .2659162*01-. 1632206*01  1  12b 

•.1662263*01  . 4469065*01-. 1655753*01-. 1672060*01  .6162960*01-. 1636275*01  1  127 

•.1673364*01  . 7934935*01-. 16663e0«01-. 16/3590*01  .9606740*01-. 1(36397*01  1  126 

-.1673626*01  .1164696*02-. 1656399*01-. 1673630*01  . 1 396703*02-. 1636400*01  1  129 

1673631*91  .1622699*02-. 1656400*01-. 1673631*01  .1659220*02  .7313220*01  1  13o 

.1300006*02-. 5602227-00  .2136561 *0 1-. 42 1 1 143*01-. 1249103*01  .6391202-00  1  »3l 

-. 2562169*01-. 1330 766*01-. 7276077-00*. 9724276-00-. 1620677*01-.  1466121  *01  1  132 

.6392964-60- . 1647562*0 1”. 1 643703*0 1  .2250992*01-. 1654466*01-. 16691 74*01  1  333 

.3666669*01-. 1666063*01-. 1672932*01  . 3334762*0 1 -. 1636342*0 l- . 1673311*0 1  1  134 

,  7326737*0 !•< 1666369*01-. 167361 2 *01  .9146542*01-. 1656397*01-. 1673626*0}  1  135 


416 


AFWL-TR-67-131,  Vol  IV 


.  1 121o7o*U<-. 1656148* 01-. 10 JlolO* 01 
.  1502  0  I  Hut-.  1 056149* ul*.  lo71ulU*01 
-.9biuo/u-uu  . ii5B2ii»ui-.4ei6748*oi' 

-.1569464 *ul-.  H90oi4*  ii-.i5iiu»ii«oi' 

16522o9*Ul-.lo024bl*Ul  .1642000*01' 
-. 1650251*01-. 16?lllb*01  .4  946505*01' 
-.Ib50192*0l-.lo71ol"«01  .8540144*01' 
-. 1056146*01-. Io71b2o*01  •  12  77061*02* 
-. 1650146*0 1-.1o71o20* 01  .  1 717560*02 
lUoOOOO 

C-4A.  1«  FRtu.  TtKT’t .  12425-101 .2-1-06 
. 1400000*0*  .  70b0UU0«U,‘ 
lUUb.  .2100000*02 

-.2045470*01  .1*00000*02  •  6257  7o0  » 0 1 
.1199010*02  .2412470*01  .o25bouu*01 

•  11 VOUlU ♦ 02  .4715950*01  .o25621U«01 
.1140040*02  .7014160*01  .b25b.)40*01 
.1140050*02  • 4142b4U*U 1  ,o25hh*0*0i 

•  1 1 VBuuU* 02  • 1 lb4  72U*u2  .t>260170«0l 
.11400 70*02  . 1 145100*02-. 1 75624u*01 
.1625140*01  .7144140*U1  ,U77J40*02 
•1930900*01  • 7 lb21 10*01  .1177220*02 

•  bzl  t'BbO*  u 1  .71 bVoOO* 1 1  .1177100*02 
.3551450*01  .71 7bb20*Ul  .117?2b0*02 
. 1  OB  74B0*  02  .7190980*1.  .1770d00*02 
.1122760*02  . 7l7b0l0*01  .1174110*02 
. 77. 79*0*01  • 1 114510*0*  .lB6UoOU*01 
.774^100*01  .1139900*02  .417b770*01 
• 77bB100*0 1  .1119790*02  .bbl4180*01 

•  77  777B0*01  .111 77b0*O2  .6900200*01 
.7b7  7b40*01  . 1 12b0b0*02  .Il4l2b0*02 
. 709bbb0*01  .10b4110*02  . 1 4  lb  7bO*  02 

-.Ilb2b20*01  .1200000*02  .O21b210*01 
.1102410*02  .1190bb0*01  .a24b7o0*01 
.1100090*02  .b597180*'’l  .0214220*01 
. 1066010*02  .bib Jbl0*01  .79bbbo0*01 
.1020620*02  .1040150*02  .7082410*01 
.92420*0*01  .13420b0*j2  .0426400*01 
.B44b4b0«01  .  1582610*02-.  U48o70* 01 
•2012920*01  • Bb70120*01  .1073^10*02 
,480bbl0*01  .65B894J* jl  .1001250*02 

•  7bl4b90*01  .6064700*01  .1009b',0>02 

•  10152  70*02  . 7462  74J*01  .9575500*01 
.1202020*02  .7461510*01  .9560290*01 
,15254aU«02  .7441420*41  .94b910<>*01 
.9010110*01  .1001740*02  .2007540*01 
.8900750*01  .1047420*02  .5247770*01 
.6420040*01  .1010190*02  .7985000*01 
.8210210*01  .9954120*01  .1052110*02 
.8195400*01  .9810410*01  .1124670*02 
.7012200*01  .6568100*01  .1595100*02 

-.9*71590-00  .1200000*02  .9270140*01 
.1062100*02  .*300230*01  .9018720*01 
.10*0800*02  .6981800*01  .8830470*01 
.1029600*02  .9601970*01  .8711070*01 


.  1 11  7881*02-.  1056196*  01-.lo7.'olO  *01 
.1796400*0?  . 7718085*01  .1100000*02 
.1428521*01-.1000251*00-.1190l94«01 
.1010570*01-. 1544099*01  .ll 122 17-01 
.1655709*01-. 1071941*01  • 1252091*01 
. 1 6561 71*01-, lb7 15 7 4* 01  .6718519*01 
.1656196 *01-. 107 3625* 01  .1061057*02 
.1050190*01-. 1671626*01  .1601259*0? 
.0000000  .0000000  .0000000 

Ht»»L>E  1-28-67.  4  DENSITIES  DELETEc 


.1147990*02  .1114210*01  .6257920*01 
.1146020*02  . 163* 110*01  .6258110*01 
.1148040*02  .5940220*01  .6258280*01 
.1146050*02  .8243650*01  .6258510*01 

•  1148000*02  .1054760*02  .6259170*01 
.1190060*02  .1265200*02  .6262020*01 
.1200000*02  .7148200*01  .1177020*02 
.2725100*01  .7150500*01  .U7717u*02 
.5011700*01  .7155070*01  .1177270*02 
.7141440*01  .7107190*01  .1177110*02 
.4657950*01  .7166140*01  .1177120*02 
.1144160*02  .7168570*01  .1175980*02 
.1417570*02-. 1535150*01  .1200000*02 
.7711510*01  .1139740*02  .2965470*01 
.7751610*01  .1114940*02  .5269770*01 

•  77  78750*01  .1119270*02  .7642725*01 
.7754460*01  .1114530*02  .1008040*02 
.7505160*01  .1107800*02  .1273390*02 
.0520550*01  .1001500*02  .1544130*02 
.1102210*02  ,*077400*01  .0230050*01 

1102110*02  .4441330*01  .8252660*01 
.1047100*02  .6904450*01  .8164630*01 
.1007310*02  .9588630*01  ,7o04190*01 
.9728080*01  .1225420*02  .6676300*01 
.4011940*01  .1467450*02  .6392600*01 

•  12UU000*02  .6658770*01  .1071810*02 
.1460520*01  .6657740*01  .1009000*02 
.0075040*01  .8107390*01  .1040650*02 
.8815370*01  .7693280*01  .9757260*01 
.1112890*02  .7426540*01  .9524060*01 
■  1 3blB30*02  .7549810*01  .9594520*01 
.1001400*02-. 1065140*01  . 1200000*02 
.9009710*01  . 1058100*02  .1801700*01 
.8068930*01  .1010020*02  ,6612350*01 
.8207600*01  .9994750*01  .9192500*01 
.8252210*01  .99*5230*01  .1178280*02 
.7850550*01  .9421800*01  .1459490*02 
.5948620*01  .7569450*01  .1710020*02 
■1009410*02  .2974010*01  .9202380*01 
.1050150*02  .5732670*01  .80*8130*01 
.1019880*02  .8330*50*01  .8813110*01 
.1013*80*02  .1105730*02  .03581*0*01 


117 

»18 

139 

1*0 

1*1 

142 

1*3 

144 


1 

2 

3 


5 

6 
7 

6 

9 

10 

H 

12 

13 

14 

15 
lb 
17 

16 

19 

20 
21 
22 

23 

24 
*5 
2b 
27 

it 

29 

30 

31 

32 

33 

34 

35 
3b 

37 

38 

39 

*0 

*1 

*2 


417 


AFWL-TR-67  -131 


Vol  IV 


f 


.6*4*2UU*U1 
,4*42*2U*U1 
.137*o*u*01 
.2324790*01 
.4*9*2*0*01 
. /*9*24U*U1 
.1012010*02 
•  12uo»J0*Ui 
. 17*9*20*02 
.  11*7090*02 
.112*1*0*02 
.99/2790*01 
. 7929990*01 
.*9*3440*01 
.193*300*01 
.1*09440*01 
.1174**0*02 
.11*1410*02 
.1040800*02 
.642*140*01 
•9991 120*01 
.**98490-00 
.«3U9i*n*ui 
.9269200*01 
.49*1299*91 
.4*29910*01 
.1201*19*92 
.14*9290*02 
.1099**9*92 
.1092*90*02 
.9702490*01 
.74914*0*01 
.9479449*01 

-. 1*44*10-02 
*9 

01*Nt/*C«T 

.1494449*01 

400*. 

.0444400 

.474*294*4* 

.9*47*94*91 

.42219*4*91 

.*2**491*41 

.12*4249*41 

•.2941413*01 
.1409000*02 
.3*74114*01 
.44*1144*01 
.12*0431*42 
. 140*447*02 
.20394*1*02 
.24*9904*02 
.111*440*02 
.141344**02 
.7444447*01 


.1171*29*02 
.1*32740*92 
.2037200*42 
.1994970*02 
.194 )U7u*u2 
.4944720*01 
. 7227990*41 
.40*4*10*91 
•.2*04144~9U 
.119*710*42 
.11**4*0*02 
.1114790*02 
.94949*0*01 
. 7221290*91 
.4124*90*91 
.1209000*0* 
.3*9*100*91 
.*7717*0*01 
.4422*40*91 
.1094**0*02 
.1474019*92 
.19497*0*0* 
.1117499*92 
.104*230*9* 
.9447*20*41 
.72713*4*41 
.3204940*01 
-.1097**0*41 
.1136*90*42 
.1121244*42 
.1039*90*02 
.41*4*70*01 
.*64*220*01 
.43339*4-04 


.*416*29*01 
. l***OO0*0 1 
.*109409-00 
,119*994*02 
.1147170*02 
.1094740*02 
.41*2924*01 
.*3991*9*01 
.99**040-90 
.2497040*01 
.4*09949*01 
.7339199*01 
•  1401440*02 
.12*90*0*92 
.1  74*379*02' 
.11*4**0*02 
.112*990*02 
.1412320*02 
.64*4990*01 
.*174260*01 
.1644969*01 
.194*910*01 
.11*94*0*02 
.1144*14*02 
.1021410*02 
.600*410*01 
.44*4*90*01 
.3143440-00 
.214*140*01 
.4013430*01 
.*661420*01 
.4177024*01 
.11*4440*42 
.161*429*02 


.7229210*01 
.26433*0*01 
.1290000*02 
.3649170*01 
.6100000*01 
.4644370*01 
.1144420*02 
.1*29*74*02 
.2004*90*02 
.114*4*0*02 
.107*370*92 
.90*4*90*01 
.69*4410*91 
.4193*70*01 
.11947*0*00 
.1109920*02 
.11/90*0*42 
.11136*0*02 
.94*3900*01 
.'291040*01 
.26163*0*41 
.1200000*02 
.3424790*01 
.**64760*01 
.0202210*91 
.10  72*60*02 
.1446110*02 
.1699*80*02 
.1047660*07 
.1020900*02 
.6912330*01 
.6371760*01 
.2246430*01 
.13*6960*01' 


.1296430*02 
.1774190*02 
.1117640*02 
.1079640*02 
.9732300*01 
.6933669*01 
.6291170*01 
.17002*0*01 
.1223760*01 
.1160240*02 
.  114*230*02 
.10*1210*02 
.6*04390*01 
.*233220*01 
.9902940-00 
.243*770*01 
.4*47270*01 
.7176620*01 
.9770020*01 
.1226*30*02 
.17169*9*02' 
.1124370*02 
.11094*0*02 
. 10272*0*02 
.6317130*01 
.*961440*01 
.69*6*90-00 
.2302590*01 
.1127460*02 
.1101910*02 
.9**3096*01 
.6932190*01 
.31*9010*01 
■1670*20*01 


.3196420*01 
.1*61270-00 
.1202690*02 
.1172900*02 
.107**00*02 
.9022990*01 
.7261*00*01 
.31016*0*01 
.1200000*02 
.37032*0*01 
.*927060*01 
.662*4*0*01 
.1122000*02 
.1499640*02 
.1964620*02 
.114*1*0*02 
.1073770*02 
.9*73100*01 
.7411400*01 
.3993760*01 
.*064**0-00 
•  1 1 71220*02 
.11*19*0*02 
.1096*60*02 
.9122*20*01 
.6724210*01 
.1690900*01 
.1200000*02 
.3196210*01 
.*291390*01 
.7»61320*0l 
.10319*0*02 
.136*470*02 
.1646090*02 


00 

01 

02 

03 

04 

0* 

0., 

07 

06 

09 

>0 

11 

12 

13 

14 
1* 
>6 
17 
16 

19 

20 
21 
22 

23 

24 

*5 

26 

27 

26 

29 

30 

31 
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•4610000*03 

.210UUUU*02 

.13UUUUU*02 

.*606676*01 

.9620**6*01- 

.1296147*01 

.67*470**0| 

1 

1 

0 

•9102U45-UU 

.67*4*36*01 

.9*79939*01 

.3*44070*01 

.66*6247*01 

1 

.641*692*01 

•  *499031  *  0 1 

.9101726*01 

.9367675*01 

•5979*3**0l 

1 

.121*713*02 

.46*7*72*01 

.6961*44*01 

.14*6*76*02 

.3166336*01 

1 

.1**0605*02 

.1273977*01 

.33*4430*01 

,1646699*02- 

.7362190-00 

1 

.20*3*33*02- 

.2373932*01- 

.63*36*2-00 

.2267964*02- 

.3100166*01 

1 

.249*091*02* 

.3063627*01- 

.2947636*01 

.27*1901*02 

.40*46*1-00 

1 

.9*32645*01 

.11*146**02 

.1216917*01 

.9361120*01 

, 1 1*3365*02 

1 

.9202302*01 

.11213*4*02 

.6162297*01 

.6646091*01 

.1070660*02 

1 

.7466477*01 

,9467364*01 

.1073697*02 

,5902061*01 

.77*3064*01 

1 

10 

.4203364*01 

.59*2477*01 

.1424021*02 

.263666**01 

.4173*34*01 

1 

ll 

.1402269*01 

•267366**01 

.16040*9*02 

.1*6060**00 

.13620***01 

1 

12 

.1407179*01- 

.3627992-00 

.22  724, *4*02-. 241 7229*01- 

.1967*63*01 

1 

IS 

.267*776*01- 

.2600041*01 

.2736700*02 

,0109302-00 

.1300000*02 

1 

14 

.1210130*02 

.2434420*01 

.1063171*02 

.1176*96*02 

. 4636*60*01 

1 

15 

.111421**02 

.6762769*01 

.9114142*01 

.  101*09**02 

.6636609*01 

1 

u 

.6641002*01 

.1036*61*02 

.66*9*36*0 > 

.7612606*01 

.1213190*02 

1 

17 
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.5108049*01  .5351424*01  .1409586*0.!  .33llA2b»01  .4726164*01  .lo0450A*02  l  1A 

<  1454859*01  .2841434* 01  ,179b432*02-. 2568547-00  .9051521-00  .2005444*02  1  19 

-.15/7982*01-. 0883283-00  . 2235510*02-. 2149404*01-. 1833993*01  .2475142*02  1  20 

-.2271112*01-. 2227664*01  .271b40A*02  .1221775*01  .1100000*02  .1185807*02  1  2l 

.1211252*02  .2091611*01  .11119ob*02  .11/2617*02  .4647583*01  .1045913*02  1  22 

•  1 11599 /*o2  .65153/9*01  .V204/ol*01  .1054858*02  .8420349*01  .7749817*01  1  23 

.9294581*01  .Io27o71*02  .Olllo94»01  .75/9511*01  .12009911*02  .4984355*01  1  24 

.5111920*01  .1382079*02  .3459809*01  .4611537*01  .1576545*02  .1667511*01  1  25 

.2872128*01  .1774285*02-. 11/0917-00  .9843153-00  .1985577*02-. 1406124*01  1  2b 

-.5354210-40  .22 11718*02*. 18 75029*01 -.1695893*01  .2445557*02-. 2000143*01  1  27 

-.1967788*01  .2681054*02  .1509418*01  .13110000*02  ,1184060*02  .1218059*02  1  2e 

.2557112*01  .1117215*02  .1184401*02  .4514545*01  .1054995*02  .1146572*02  1  29 

.6400813*01  .9605425*01  .1051400*02  .8225306*01  .8274195*01  .9277375*01  1  30 

.1002754*02  «6b59o7 1*01  .7593746*01  .11/9019*02  .5007292*01  .5989510*01  1  3l 

.1359338*02  .3310538*01  .4351556*01  .1549396*02  .1379474*01  .2566205*01  1  32 

.1744562*02-. 5084473-00  .5659338-00  . 1950505*02-. 151756**01-. 1137194*01  1  33 

.2154789*02-. .,948238*01-. 1054/87*01  .2389018*02-.  2004897*01-.  19865*4*01  1  34 

.25253*3*02  .1945910*01  .1300000*02  .1142945*02  .1211812*02  .2539882*01  1  35 

.1128198*02  .1181305*02  .4354768*01  .10/4918*02  .1142160*02  .6194824*01  1  3fc 

.96119/2*01  .10*0160*02  .8013253*01  .8127835*01  .8928677*01  .978*286*01  1  37 

.5501690*01  .7233428*01  .1152538*02  .4503240*01  .548141**01  .132935A*02  1  3a 

.2409745*01  .3611940*01  .1508553*02  .4438287-00  .1629638*01  .1695250*02  1  39 

-.109/ee3*Ol-. 3100030-00  .  1900339*02-. 1 785013*01-. 1591735*01  .2114354*02  1  *0 

-. 1951415*01-. 194904/*01  .23 38 552 *02-. 2011 379*01-. 1996123*01  .2574873*02  1  *1 

.2302585*01  .1300000*02  .1054222*02  .1141699*02  .2330537*01  .1056371*02  1  *2 

.1160104*02  .4131400*01  .1014951*0?  .1049850*02  .*j«»i6o<>b*01  .9152111*01  1  43 

. . .  .//tiill.i.'ol  .  /4t. 3/63*111  .7  14t.Mf.mt  .•MifinAKiOl  .64 494 71. Ml |  1  44 

■  lil36.lu9Mit  •  1 1  tl  /tt  1 6  •  tt.‘  .3t11/4lMll  ,4."»'W  /  Mil  ,  I.' /Il.'lll  Ml.'  .  l-.MHlII..' Ml )  1  4*. 

.<45/b40*Ol  .1453UU2*U<-.  <103920— U0  .  5434492— HO  .  1842014 1 02—  .  1  3641148*0 1  1  4ft 

-.1060eo6*01  .l84664/*0<-. 1853921*01-. 1834795*01  .201  0854*02-. 1945835*01  1  47 

-.19823/5*01  .2285050*02-. 2017092*01-. 1999271*01  .2521371*02  .2708050*01  1  46 

.1300000*02  .9364640*01  .1138911*02  .2001555*01  .4050773*01  .1084750*02  1  49 

.3752512*01  .6395859*01  .9917572*01  .5307390*01  .7273415*01  .8338724*01  1  5o 

.7204719*01  .5759000*01  .5588700*01  .8859835*01  .4109399*01  .4651636*01  1  5l 

.1047963*02  .2352331*01  .3058797*01  .1217575*02  .5999711-00  .1270387*01  1  52 

. 1394817*02-. 8553296-0O-. 4420382-00  . 1562007*02-.  1701523*01-.  Ib04256*0l  1  53 

.1786050*02-. 1968023*01-. 1941415*01  .2000223*02-.  1996946*01-.  1976701*01  1  54 

.2225887*02-. 1915920*01-. 1845829*01  .2470812*02  .3113515*01  .1300000*02  1  55 

.5203033*01  .1057701*02  .1552147*01  .7511445*01  .9820837*01  .3275192*01  1  5b 

.5417102*01  .8593470*01  .4963512*01  .5139524*01  .7055435*01  .6625605*01  1  57 

.3587101*01  .5383447*01  .8258150*01  .2178064*01  .3713046*01  .9673744*01  1  56 

.7111113-00  ..'054845*01  . 1157247*02-. 4109334-00  .6702274-00  .1336449*02  1  59 

-.1159738*01-. 2940714-00  . 1531092*02-.  1631)370*01-.  1 192318*01  .1744716*02  1  60 

-.1740547*01-. 1625434*01  . 1953585*02-. 1661276*01-. 16431 72*01  .2196745*02  1  61 

-.1624006*01-. 1503222*01  .<434225*02  .3526360*01  .1300000*02  .7452357*01  1  62 

.9754282*01  .1029901*01  .5450445*01  .6717444*01  .2721566*01  .5278575*01  1  63 

.7462245*01  .4365550*01  .3962339*01  .6139538*01  .6027663*01  .2828579*01  1  64 

.5055593*01  .7593094*01  .1785726*01  .4036041*01  .9389228*01  .6226522-00  1  65 

.2705652*01  .1115387*02-. 3506221-00  .141)297*01  , 1300922*02-. 1151701*01  1  66 

.7125150-01  .1496101*02-. 1516389*01-. 1104599*01  . 1703245*02-. 1601215*01  1  67 

-.1522474*01  .1917764*02-. 1611621*01-. 1567659*01  .2142023*02-. 1613165*01  1  68 

-.1594959*01  .2376351*02  .3912023*01  .1300000*02  .7506996*01  .9549687*01  1  69 

.5120196-00  .6494001*01  .8762718*01  .2199301*01  .5447650*01  .7760697*01  1  70 

.3901914*01  .4295266*01  .5631862*01  .5624541*01  .3022224*01  .5369912*01  I  7) 

.7326920*01  .1714796*01  .4106420*01  .9018814*01  .3143433-00  .2s7T004*0l  1  72 


419 
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.10 73987*02-. 82G3U19-UU  .8383928-00 
. 100191 l*U2-.l33*U*U*01-.  1*03*32*0  I 
.  183998* *02-.  loll  921*01-.  139*270*01 
.2320302*02  .*2*8*93*01  •  1  300  ,00*02 
.7071307*01  .aeo*30«*'l  .  1033033*01 
.***6827*01  .033*01**01  .327396**01 
.'123*39*01  .329*923*01  .8371026*01* 
-. 11033*9* ol-.7bl 90*6-  .2  .120*287*02- 
•• 1361 3oB*0l-. 1339368*01  .1393307*02- 
•• 1612 779* 01- • 139*669*01  .2033710*02- 
.*603170*01  .1300000*'J2  .D2"U«61*01 
.8**31*2*01  .  1 929994*0 1  .6012*1**01 
•330*31**01  .*b03«.b3*Ol  .2399b2J*01 
.22373o2*01  .0o*l*b3*,.l-.  *3*991 3-00 
“.7b00 7*2-00  .  1130002*02-. 131 3o02 *01- 
-•lb!l2l»l*Ol  . 13*2000*02-. loll 306«0l- 
-.139*326*01  . 1 960209* J2-.1o12o29*01- 
. 13bOOu0*02  .7070272*111  .001  lb73*01- 
<9136109-00  .*B»2bbb*01  .36897*«*ol 
.9209*02*01  • lbbb*Bb*Ul  .2bb329b«01 
.7*33Bb7*01-.ib20393«ill“.391bo09-00 
.10B99b**02“. Ib0bu92«01“. 1 308212*01 

•  1*61 187*02-. 161337ft* ol“. 1  b97b03«01 
. 191 9389*G2-.lblb/09«ol-. 13“ 7906*01 

•  b2  7b* 11*01  . 7b*bt*b»wl“. 1313792*01 
.2912*70*01  «*7b0367*01  .1982b33*0l 

-.b723o07-ol  • Ib907b2*bl  .3213773*01- 
“.l*8l2bb*ol“. 11*7203*01  . Bbl9ub*«01“ 
-.1022b37  ul “«  100  1 18b*01  .1211.3*3*02 
-.1623231 »01“. Io09o32*01  .163*37**02 
-.162b2B**bl-.lo09799«01  .209*891*02 
.06 79337*01-. 1882292*01  .239**03*01 
.3670239*01  .1306073*01-. 2381127-00 
•330 3o 93-00  .*390673*01*. 1*70331 *01- 
-.1*32723*01  .7900*02*01 -.1629 732*01- 
-.1622780*01  .  Ub**18*fa2*.  1036781  *01- 
-.1620798*01  . 1372**7*92-. 1636932*0 1- 
-.1620809*01  .203296**b2  .621*608*01 
-.2**8786*01  .2323707-00  .3376770*01- 
. 7893873-00-. 1360*9** J1  .3338020-00 
. *0182*7*01-. 10323*0*01-. 1332190*01 
.7321911*01-. 103*79**01-. 1008086*01 
. 1090 309*02-. 1033 72U*31-. 1070312*01 
. 131*397*02-. 103373**01-. 10708*8*01 
.197311**02  .0331080*01  .1300000*02 
-.2688130-00  . 2338718*01-. 1332996*0 l- 
-. 1*80632*01-. 3930b0*-00  .1902*36*01- 
-.1692793*01-. 1616139*01  .312333**01- 
•.16333*0*01-. 1669660*01  .838917**01- 
-.1653727*01-. 1670830*01  .1230120*02- 
-.1633739*01-. 16700*8*01  .1688323*02- 
.6907733*01  .1300000*02  .*137381-00 
. 1677363*01-. 186o38**01-. 1321200*01 
-.9033313-00  .1367337*01-. 162 7*2 1*01- 
-.1696313*01  . *386396*01-. 163*323*01- 


. 123**83*02-.! 388709*0 1-.6220379-00 
. 16*3973*02-. 1393306*01-. Ij73b73*0l 
. 20H* 1 81 *02-. 1613772*0 1-. 159331 3*01 
.7963083*01  .9393816*01  .8806889-01 
.3928382*01  .7697861*01  .336220**01 
.2023961*01  .*861396*01  .69*2896*01 
.330*870-00  .1362973*01  .1027001*02 
. 1*02318*01 -.11 39018*01  .1391*83*02 
.1609* 93*01-. 1391 330*01  .la093l**02 
.1012989*01-. 13931 3**01  .2270031*02 
.9300933*01-. 3098*10-00  .732233**01 
.7093269*01  .31*3606*01  .*271631*01 
.3868232*01  .6*28827*01  .73*6303-00 
«63H360*-00  .9733926*01-. 112*26**01 
.1*3*3*8*01  . 133796**02-.  17,0*0*“*  01 
.1393322*01  .17360 13*02-. 1611967*01 
.159**33*01  .2216330*02  .3010633*01 
.790326**00  .6106232*01  .7323883*01 
.236037**01  .3232281*01  .*273936*01 
.3823**6*01  .63*2333-01  .1100631*01 
.912 78*1*01-. 1*9*039*01-. 1339367*01 
.12 77163* 02-. 16 1*319*01-. 1393067*01 
. 1693 1 93*02- ,1613698«01-. 1 397873*0 1 
.2133710*02  .3*16100*01  .1300000*02 
.*318177*01  .6306*9**01  >33l229*-0o 
.13937*6*01  .3163606*01  .3bn3b95*0l 
.10*0803*01  . 2369191-01  .0023769*01 
.160 1363*01 -.1339633*0!  .102916**02 
.1623628*01-. 16U9807*01  .1*20367*02 
’•16232  79*01-.  1609763*01  .1038370*02 
.38289*6*01  .1300000*02  .3917760*01 
.32 3*030*01-. 236*633-00  .1133063*01 
.2092*97*01  .2963201*01-. 1110*13*01 
•  7838667-00  .6206333*01-.  I', 96122*01 
.1399900*01  .9672376*01-. lo^3785»bl 
. 1626283*01  . 13*8**0*02-. Io36916*0l 
.1626803*01  . 17966* 3*02-. 16369 S«*0l 
.1300000*02  .1639776*01  .*6*33***01 
.8303336-00-. 6209392-00  .2070176*01 
.2*0 70 18*01 -.1366881*01-. 7*62923-00 
.3824033*01-. 1630631*01-. 163339**01 
. 9093682*01-.  1 633631*01-.  lr,70371*0l 
.  1300391*02-. 1633732*0 1-.16708***01 
.1736793*02-. 163373**01-. 16708*6*01 
.1037633*01  .*036057*01-. 29*7932*01 
.1112817*01  .10*27*7*01  .26*3629-00 
.1603339*01-. 133*823*01  .331^371*01 
.16331*9*01-. 16638*3*01  .681720**01 
.1633681*01-. 1670707*01  .10*6098*02 
.1633733*01-. 16708*6*01  .1*60117*02 
.163373**01-. 16708*8*01  .192*6***02 
.  3377297*01-. 3*79398* 0l-.7l**09*-00 
.37981*6-00”. 2*372*3-00-. I3»*l06*0l 
.1517026*01  .2978379*01-. 16*8830*01 
.1667307*01  .6262192*01-. 16*3370*01 


73 

7* 

73 

To 

77 

76 

79 

80 
8] 
82 

i  83 
8* 
83 
"6 

87 

88 
89 
9n 

91 

92 

93 
9* 
’3 

96 

97 
96 
99 

100 

101 

102 

103 

10* 

103 

10ft 

;i07 

106 

109 

HO 

Ul 

U2 

113 

11* 

*13 

116 

117 

118 

119 

120 
121 
122 
123 
12* 
123 
126 
1*7 


420 


AFWL-TR-67  -1  31  ,  Vol  IV 


*.167u390*Ul  •  6l/34l68*Ul*.  1653  7ul'*0  1-.  Iu7u7/9*ul  .9*.  b^b^Ol*.  lnr>3731*0l  1  126 

167ut>39«ul  .U9ool  <*u2-.1633734»fll-.lo/UH47*ul  .  14  10623  •  0.'- .  1  ,,337  J4  *0 1  1  126 

*.167uo48*ul  .l634e21*D2-.le33734«0l-.lo7084b.„l  .1871142*02  .7)1322C*Ci  1  1  30 

•1300000*02-.2260034-UU  .2613o3o*Ul-.4u836U6*Ul*. •  62614*01  .1121463*01  1  13) 

*.24ol 720* 01 -. 147033 3*0 1 -.3316500-00-. 63 17030-0U-._nC202* *01 -.13063 73* 01  1  132 

.7394038-00*.  1641669*01*.  16W  391*01  .2  3  70396*01-.  1632604  •  0 1*.  1. -62283*0 1  1  133 

.  3980131*01-.  1633166*01-.  16b9j32*01  .36 73995*01-. 1633659* 01- . lu7Qo»6*0 l  1  lit 

.7445964*01*. 1633722*01*. 1670818*01  .931  77b9*u  1* .  16537 1  3*  01*.  Ih70844»0 1  1  13*, 

.1133799*W2-.1633734*ol-.l670B4b«Cl  . 1349806*02*. 1633734*0 1*. Io70846*0l  1  ljfr 

.1374002*02*. 1633734*01*. 1670840*01  .1810321*02  .7718683*01  .1300000*02  1  13? 

*.  7J733b4*00  .ld447o0*01*.46925b7*01*.1326724*Cl  .3b8b200-00-.306'lb63*0l  1  13a 

•• Ibbbob  7*  ul*. 9 10034  2*0  0*. 1439772*0 1*. 1628083*01*. 1320633*01  .1512447-00  1  139 

*.1648948«Ul*.l64b9U9«Ul  . 1 782207*0 1*. 16b4226* 0 1*. 1667286* 0 1  .337l9bb*0l  1  140 

-. I6bbb44*01-.lb7032b*01  .bubb79o«01*. 16bb700*01*. Ib70 759*0 1  .6837767*01  1  141 

• . 16bb7»9*0 l*. I670b3b*01  .8709b71*01*. I6bb733*0 1- . 1670847*0 1  .1074979*02  1  142 

• . Ibbb734*ul“. lb7J84b«ol  . 1288906*02*. 1633734*01*. 1670848*01  .1513182*02  1  143 

•.lbbb734*01-.lb7O648«01  .1749503*02  .0000000  .OOoOOOO  .OOOOOOO  1  14« 

10 

01*Nt/bC*T  CF2-10*  tl/JT*  8LD0  OF  HUN  1-6-67.  ItMH 1 1-2250 >  .  T»HC  1432 
.1000000*02  .bbb0o00«U3 
1103.  .2100000*02 

.OOOOUOO  .1300000*02  .7b47093«01  . 1 lb604 7*02*. 271 10 39*01  .7sC4b77*0l  1  1 

,1147181*02*. b04678b-00  .7329407*01  .1134207*02  .2129211*01  .6911944*01  1  2 

.1061840*02  .b000933«01  .0286152*01  .9277879*01  .79b3b99*01  .5447278*01  1  3 

.7633045*01  .1074504*02  .412bu76*01  .6245991*01  .1317273*02  .2422501*01  1  4 

.4524271*01  .1527754*02  .7572899-00  .2857616*01  . 1756259*02*. 9123004-00  1  5 

.1204010*01  .2005305*02-.259b*35*01-.7a35944-00  .22327b6*02-.34b2862*01  1  6 

-.2620579*01  . 2459623*02*. 35«b961*0l*. 3427494*01  .2703830*02  .4o54b51-Or  1  7 

.1300000*02  .1050219*02  . 1263291*02*. 1209925*00  .1039524*02  .12*3032*02  1  8 

.2230599*01  . 996646'!* 0 1  .1220121*02  .4839487*01  .9037807*01  .1107862*02  1  9 

,7379047«o1  .7569954*01  .95/8130*01  .9645451*01  .5963739*01  .7996177*01  1  lo 

.1176509*02  .4244195*01  .o3bbo02*Ul  .1370998*02  . .440801*01  .4578801*01  1  U 

.  1 5b  73o5*02  .7927934-00  .27294,16*01  . 1 760940*02* .  77 1 1 164-00  .6925357-00  1  12 

. 197U405«02-. 2347  b,.*ol-. 1030045*01  .22U2462*02-.3100n67*01-.25MlloB*01  1  13 

. 24  3  7  796*02— •  31)910  7  7*ol«. 2942274*01  .2695b23*02  .6109302-00  .1300000*02  1  14 

.1232213*02  .1317655*02  .1406*95*01  .1196697*02  .1274*53*02  .3705175*01  1  15 

.1112058*02  .1259b27«o2  .6022170*01  .9629633*01  .1134526*02  .8123408*01  1  16 

.7614211*01  . 9o4o7 13*01  . 9932361 *01  .6065647*01  .7932220*01  .1167164*02  1  17 

.4436394*01  .6139171*01  .13502,2*02  .2654719*01  .4301271*01  .15“2464*02  1  la 

. 10 164 77*ol  .2584551*01  .1749012*02*. 7465219-00  .732l00«-00  .1966886*02  1  19 

-.2149399*01*. 111)9638*01  . 2 189269*0  2-.2  723632*01-,  2  4082  66*  01  .2420650*02  1  *0 

-. 2b33o93*ol-. 2779773*«i  .2661304*02  .1223775*01  .1300000*02  .1291690*02  1  2l 

.1333762*02  .2144234*01  .1231562*02  .1304696*02  .4172063*01  .1113466*02  1  2{ 

.1242677*02  .6097090*01  .9483633*01  ,1102203*02  ,7913693*01  .7632386*01  1  23 

.9426291*01  .9732046*01  .6027613*01  .7760642*01  .1154606*02  .4433303*01  1  24 

.b0120l7*vl  .1338003*02  .2781280*01  .4213401*01  .1525676*02  .1033266*01  1  26 

.2360239*01  , 1721403*02-, 6006330-00  .36*1446*00  . 1 93944 1*02-. 16*2721  *0l  1  2b 

• . 1 122 J3**01  . 21663*7*02*. 23U2976*01-. 2208233*01  .2393713*02-. 24600*3*01  1  27 

-.2426937*01  .<637137*02  . 1609438*01  .1300000*02  .1290064*02  .1326608*02  1  26 

.2193189*01  .1223686*02  .1296462*02  .4046000*01  .1103337*02  . 1228752*02  1  29 

.3934204*01  .9419331*01  .1093172*02  .7781*76*01  .7884033*01  .9330666*01  1  So 

•9558366*01  .6275337*01  .76*9396*01  .1129966*02  .4679*12*01  .585*6*6*01  1  3l 

.1313*30*02  .2893466*01  .4009320*01  .1503056*02  .1008893*01  .215*151*01  1  32 

, 1697772*02*. 7*8*303*00  .3136763-00  . 191 101**02*. 1 *6*073*01*. 1333371*01  1  S3 

. 2131135*02*. 2227*04*01*. 2122992*01  . 23390*»*02-. 221991 1*01*. 2l9832**0t  1  34 
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AFWL-TR-67-131,  Vol  IV 


•2601075*02  .1905910*01 
.1  iinil'Ui  .1105020*02 
.9591127*01  .1061011*02 
.*131008*01  . 71t»12-fl*01 
•252l*17*ol  .loOloog«ol 
-.•O7OO09-00  .202*725-01 
-.207001 Mul-.19Mo96*01 
«2l025d5*ul  .1100000*42 
. 1275elO*u2  .1726051*01 
« IUU1  7  72*02  . 7105*10*01 
.6572271*01  •  lu7  72*7*ii2 
.7210711*01  • 1*19521*02 
*  •  700 1 990-00  « lo**b79  7*o2a 
1977771*01  .22V22 15*02- 
. 1 70ugoo«o2  .1120007*02 
.7O20b70*gi  .1019070*0*: 
.69092*5*01  .690*U60*l'l 
.1077990*02  • 7bOog77«0 1 
.179ob 79*02-. bblooob-ol 
.1791598*02-.1000216*01- 
. 22722 7b* 02-. I9lbob0*01* 
.1010901*02  . 1 lblo2b«02 
.9007177*01  .9tf?72Ob«01 
•0165100*01  .b09bolb«0l 
.207*079*01  .777u9bo*01 
-.82bb0SO-00-. 72791 11- J1 
-. I*0b92o*ol -.177bl 00*01 
*« 1*79701 *01 -.lo20g 17 *ol 
. 1001 bl0*02  .9011b09-gg 
.0901977*01  .07000*0*01 
.570*017*01  • 771bl 72*01 
.2097217*01  . 1 1 0  7bO 1 *02 
-.5607271-00  •1.76172*02- 
-.17*0197*01  ,1095009*02 

•  0b2b00**00  .02729|.H*1>* 
.7«77|9**ol  .5oOb71i'-Ol 

•  7199**0*01  .  2b77i‘0  7*(ll 
.1050 775*02*. 05709*2-00 

. 1020807*02-. 1690777*01- 
. 1*0 7190*02*. 169791 1*01- 
.2715720*02  .0<0b09b*01 
-.7162727*01  .0009997*01 
.0957505*01  .5667277*01 
.1580277*01  .2719970*01 
*0**570-oO  .2272909-00 
-.1000005*01*. 100*905*01 
-.1057900*01-. 1*77777*01 
.0605170*01  .1700000*02 


.7820022*01 

.5221721*01 


.128*051*01 

.0615778*91 


.27*0099*01  .7977177*01 
•.10*7551*00  .1100220*02- 
>.1509919*01  .1577*90*  72* 
-.1079979*01  .1970107*02- 
.17*0«***02  .770*507*01 


i  .1700000*02 
:  . 7927*91 *01 
!  .7559oo5*01 
.1176771*02 
.10779*1*02 
.16769*6*02' 
.2729095*02' 
.1207172*02 
.1065277*02 
. 7760720*01 
.0090**9*01 
.057*652-00 
-.17261*8*01- 
-.1978601*01- 
. 1279*50*02 
.1070*06*02 
.7666060*01 
.0017272*01 
.6720*50-00 
-.1772900*01 
-.1902571*01 
•1106266*01 
.06067*1*01 
.6251270*01 
.1161917*02 
.1511111*02- 
.1952669*02- 
.2017*26*02 
.9017710*0] 
.7026170*01 
•1166*09*01 
.10  .6*10*00 
'.670591*01- 
.1912721*01 
•  911*1  711*01 
.0*06125*01 
.100111**01 
.1021196*00 
-.1*05099*01 
-.1*775*5*01 
.1100000*02- 
.17509*6*01 
.5095120*01 
.6160606*01 
.. 191111*02- 
.1590167*02- 
.2029590*02- 
.6119166*01 
.566*590*01 
.2811658*01 
.5510165-01 
.1512191*01- 
.16*5672*01- 
.1650105*01- 
.8085655*01-1 


!  .1268217*02 
1  .11119*1*02 
l  .7917677*01 
!  .0200168*01 
.  • 7911n*0-00 
’-.1796565*01' 
!-. 20*6108*01' 
!  .1291625*02 
.1169052*02 
.6260617*01 
.0900612*01 
I  .1*79561*01 
-.1091579*01 
-.1921261*01 
. 1655000*01 
.5199028*01 
.8678281*01 
.1210997*02 
.1568879*02- 
.2007700*02- 
.2070601*02 
.100*011*02 
.8005715*01 
.00*6721*01 
.5979061-00 
-.1570990*01- 
-.1807625*01- 
.1526160*01 
.9990101*01 
.7>-*6660*0l 
.0107(67*01 
.6769019-00 
••1516120*01 
.11110000*02 
.21*9627*01 
.5550705*01 
.6010521*01 
.1212555*02- 
.1628721*02- 
.20  75899*02- 
-.1015771*02 
.6556507*01 
.12**821*01 
.2  1  76*25-  00 
-.1199600*01- 
-.1608169*01- 
-.165*676*01- 
.6662910*01- 
.6098597*01 
.0016592*01 
.1175160*01 
-.1190195*01 
.1612871*01 
.16*0115*01 
.9111651-00 


!  .1110966*02 
.1229815*02 
. 9012160*01 
.5005506*01 
.1819611*01 
-.1*15196*01 
-.2026262*01 
.1912169*01 
.5510167*01 
.9060077*01 
.1255105*02 
.1610010*02- 
.2060951*02- 
.2528996*02 
.1099185*02 
.8619091*01 
.5291292*01 
.1717201*01 
-.1177007*01- 
-.  1920666*01* 
.1111515*01 
.1061767*02 
.6*  *'76ol*01 
.517  <lf.0*01 
.158'. 0*7*01 
-.11.  1072*01 
-.1812*62*01 
.1100000*02 
.2622756*01 
.6051299*01 
.9159222*01 
.1266910*02- 
.1661119*02- 
,6806615*0 1 
.7298558*01 
.0166606*01 
♦65O01p*-00 
-.1*57158*01- 
-.1722890*01- 
-.1661205*01- 
.9101107*01 
.7197169*01 
.*161*05*01 
.1*07175*01 
-.8157070-00 
'.161*080-01 
.1619921*01 
.1970*50-00 
.2951666*01  , 
.6277778*01  , 
.9672260*01-. 
.111180**02-. 
.1751910*02-. 
.2212*28*02  . 
.6768801*01  < 


.2111162*01 

1 

15 

.5755051*01 

1 

16 

.91*6267  U) 

1 

37 

.1268160*0,' 

1 

36 

.1667001*02 

1 

39 

.2098269*02 

1 

*0 

.2571171*02 

1 

*1 

.117*670*02 

1 

92 

.9250095*01 

1 

93 

.5666555*01 

1 

9* 

.2281291*01 

1 

95 

-.1058260*01 

1 

96 

-.1906957*01 

1 

97 

.2708050*01 

1 

98 

.1185127*02 

1 

9" 

.9160160*01 

1 

50 

.6097160*01 

1 

51 

.2688710*01 

1 

52 

-.8520809-00 

1 

53 

-.190228**01 

1 

So 

.1100000*02 

1 

55 

.1060165*01 

1 

5ft 

.65*0097*01 

1 

57 

.9921761*01 

1 

56 

.11*2115*02 

1 

59 

.1717558*02 

1 

60 

.2179511*02 

1 

6l 

.9115017*01 

1 

62 

.8117021*01 

1 

63 

.522562**01 

1 

60 

.16615*6*01 

1 

65 

.1081061*01 

1 

66 

.1611069*01 

1 

67 

.9x67212*01 

1 

68 

.7990666*01 

1 

69 

.0900660*01 

1 

70 

.17*7671*01 

1 

7 1 

.112*961*01 

1 

72 

.1697550*01 

1 

73 

.16*7001*01 

1 

7* 

.6126289-01 

1 

75 

.1*15111*01 

1 

76 

.673*017*01 

1 

77 

.1009168*02 

1 

7e 

.1182809*02 

1 

79 

.1805279*02 

1 

80 

.2265928*02 

1 

81 

.72*7960*01 

1 

82 

.9316667*01 

1 

83 

.1*35186*01 

1 

60 

1028285*01 

1 

65 

.1629203*01 

1 

•  6 

.1653722*01 

1 

#7 

.5018615*01 

1 

66 

.7510111*01 

1 

89 
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A  F  WL-TR  -67-1  31  ,  Vol  IV 


.7666330-00  .5636907*01  .6305376*01  .26*  lb  /*♦  01  .3676823*01  .*9/'8027*0|  1  Vo 

.6110986*01  .2l7e50o«ul  .3b<*«Jbe«01  .5705703*01  . 666539*-00  .1987636*01  1  9i 

.7368809*01-. 69689/9-00  .*0600/3-00  .9060055*01-. 1312591 *0 l-.8796327-0f  1  9J 

.lU85doB»Ut-. 16*3321*01-. 16*3126*01  . 12  73ib0*02-.  1636*98  *01-.  16261*5*0 1  1  9J 

.  i*  7  708**  06- .  lt>6  7931*01”. 1635237*01  .1691091*02-. 16*8622*01-. 1636056*01  1  9* 

.  1916207*02-.  1668ub  7*01-.lo3ol27*01  .2151608*02  .b«*»fcl00«01  .1300000*02  1  9. 

.7120055*01  .8037009*01-. 1660*69*01  .63137*9*01  . 70 177*9  *0 1  .2*19b97-00  1  9fc 

.*9J3U»<**U1  . 560  7blU*01  .1912892*01  .31*3228*01  .‘•009760*01  .3->b280b*0l  1  97 

.1606/60*01  •  6**0106*01  .5172*96*01-.  1627668-01  .h59130*-00  .678*272*01  1  98 

-.9061690-00-. 5500686-00  .8* 76561*01-. 1681712*01-. 1395612*01  .102b060*02  1  99 

-. 1619917*01-. Io00b7b*01  . 121. 1*2*02-. 163*blb*01*. I622b6b*0t  .1*16265*02  l  100 
-.16  '5035*01-.  lb*6o9  7*01  •  16302  71  *02-.  1636002*0  t-.lb2bl 3b* 01  .1856*67*02  1  1 0 1 

-.  Ib36olb«0l-.  Ib2blol*0l  .21190708*02  .ba289*6*01  .1300000*02  .57259'  *01  I  102 

. 72092/9*01-. I990b0b*01  .*7bl030*01  . b962737*0 1-. 3293730-00  .3390  o*0l  1  103 

•9*167o3*01  .1317130*01  .1806731*01  .2793929*01  .2939996*01  .2b9l323-Oo  1  »0* 

.1236008*01  . 9669 728*01 -.69 77662-00*. 2093962-00  .6166321 *01*. 1969938* 01  1  106 

-.1269900*01  , 7069393*01*. 10026 71*01-. 16639 66 *01  .9631396*01-. 1623169*01  1  10b 

-.lo07a29*0l  . 1160316*04*. 1626097*01-. li  19039*01  . 1 369338*02*. lb2o399* 0 1  1  107 

*.1619/66*01  .13083*6*02-.  1626936*01*.  Ib’6a60*01  . 1  792690 *02*.  lb*69 39*0 1  1  106 

—  • 1019oo9« 0 1  .2028601*02  .O219o0b*01  . 13.  1000*02  .9067697*01  .6298606*01  1  109 

-.2629297*01  .2773237*01  . 9772*  l’*Cl-.  88  >2670-00  .1917289*01  .3292309*01  1  Ho 

•  7992  7  72-00  .2020700-01  .I729.il.*0t  .23c^799*01-. “830103-00  .2091639-00  1  111 

. 3970627* 01~. 199 76l9«ol-.10U07b8«0 I  .6666868*01-. 1696969*01-. I60i806*0l  1  112 

.7280Bol*01-. 1629926*01-. 1699109*01  .9062869*01-. 1629619*01-. 1613982*01  1  113 

.1092666*02-. '629617*01*. 1619627*01  . 1 296988*02*. 1629722* 0 1*. lb t 98 30* 0 1  1  119 

.1610696*02*. 1629739*01*. 1619866*01  . 1 739691 *02-. 1629736*01*. 1619870* 01  1  lib 

.1971012*02  .6661080*01  .1300(100*02  .2686866*01  . 6336399*0 1*.  3009166*0 1  1  lib 

.1672606*01  «6029131*ol*«13/3697*01  .8671668-01  .2687007*01  .2666067-00  1  117 

-.9390023-00  .9161208-00  •  1B18616  •  0 1- .  1 609029* 0  1  - .666 3638-00  .3'|7l91h*01  1  Hr 

-. 1676601*01*. 133  »ll73*Ol  .6o.l..0l*lll-.lo/lr)l,7*lll-.|67<.l'6l*0l  .  0771, 1'.7*  0  1  1  lln 

-.  11.360  »6*ol-.  li.Hl'3  »*ol  ,•.'»••*■  167*  It  I  — « li.3*i'*l'1*  “1— ,  I  ••»,6**i*l  mi  |  .  In61  ■*•**.  *n,'  1  120 

-.  103/209*01-.  io<uol2*Ol  ,l2*6itl6*O2-.lo37267*lll-.lh.',*.|9/*0|  .  lt.7-0026  •  0,'  1  1?1 

-. 163/262*01-. Io2blo3*ol  .loU6220*02-.lo37262*01-,162blb6*01  .1920661*02  1  122 

.6907766*01  .  1300000*02  .166«.j73«0l  . 6697723* 01  -. 362 1766* 0 1  .2668663-03  1  123 

.3138696*01-. 1906667*01-. 6179976-00  . 1681 bb 1 ♦ 0 1 -.2872753-00-. 1 387381 • 0 1  1  126 

.0276681-0*  , 1323720*01*. 16b36ol*01-. 10/3711*01  .2936967*01-. lb2386O*0l  1  12b 

-.1623637*01  .6667200*01-. 1660931*01*. 1620270*01  .026 1 16b* 0 1- . 1 o*B 790*0 1  1  126 

-.163/162*01  .8013136*01*. 1666663*01-. 16399b9*01  . 9886962*0 1-. lb43979*0 1  1  127 

-.163/020*01  . 1192616*02-. 1663996*01-. 163/090*01  . 16C6623* 02-. Ib9399b* 0 1  1  128 

-• Io37o9/*01  ,1630719*02-. 1063996*01-. 1637098*01  .1867060*02  .7jl3220*0l  1  120 

. 1300000*02-. 6O90366-01  . 20 79 129*0 1-. 6 126333* 0 1 -. 98bb999-00  .I3"«86b*0l  1  13p 

-.2609166*01-. 1630960*01-. 82223wl-Ol-.B969e70-OC-. 1608993*01-. 1 173660*0 1  }  13l 

. 7177J32-U0-. lo373B3«ol-. 1670867*01  .2328793*01-, Ibbl 786*01-. 163678** 01  1  132 

•  393901 0  *0 1  — . 1 06626 1  *  01  —  « 1667006*  0 1  . 6632960* 0 1 -. 1666867* 0 1-. lb«>9625* 0 1  1  133 

. 7606937«ol“< 1666937*01-. 1669686*01  . 92 76766*0 1 -. 1666962* 01-. Ih69726* 0 1  1  136 

.1131697*02-. 1666966*01-. 1669730*01  . 1 366703*  02-,  1666961**  0 1 -.  1669731  *0 1  1  13b 

.1669899*02-. 1666966*01-. 1669731*01  .1806220*02  .7718686*01  .1300000*02  1  13* 

-.6966106-00  .2106961*01-. 6731108*01-. 1266618*01  ,6096913-00-. 31 16673*01  1  137 

-,1633616*01-.7286329-00-,1602891*Ol-«1621173*Ol-,166676***Ot  .1096082*00  1  138 

-. 16*7333*01-. Ib3a692*01  . 1720616*01-. 1666061 *0 1-. 1665386*0 1  .3330816*01  1  139 

-.1666687*01-. 1669663*01  .6026  763*0 1-.  1666906*0 1-.  1670286*  01  .6796760*01  1  1**0 

-.1666966*01-. 1670396*01  . 86686*7* 01*. 1666953*0 l-» 1670913*0 1  .1070877*02  1  1*1 

-.1666969*01-. 1670615*01  . 1286883*02-. 165595**0l-. 16706 l»*0l  .150*080*02  1  1*2 

•,1665956*01-. 1670615*01  .1766*00*02  .0000000  .0000000  .0000000  1  1*3 

29 


» 


* 
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AFWL-TR- 67-131,  Vol  IV 


OlAht/kCAT  0H2-1OA  lLMP<l.5-l.t«> 
.lt>UUUUO*OC  «9h*UU0U*U3 
llUl.  .2*UUUUU*J2 

«*05*uSl-00  ,1300000*02  .976*729*01 
. 12OB730«U2  .  37*7103*01  ■  V«t)l  7a2»u  1 
.1193036*02  ,6962*3h*01  .607*976*01 
.*e*3696*oi  .Ij32uub«u2  .3036&2i«oi 
.516/0*7*01  .1696*07*02  .16733*6*01 
.1729208*01  .210'j326*02-.11U1336*01- 
-.1600032*01  .2 35*003*02-, 21 30 /50*01* 
.1300000*02  .1173*00*02  .1332039*02 
.5153333*01  .1062936*02  .1266605*02 
•9*69*96*01  .0«03*t>/*01  .9629096*01 
..29**99*00  .SS*/36«*01  .bS6*/66*01 
.1661206*02  • 162306  3*0 1  .2990130*01 
.203/2*3*02-. 130*  719*31-. 3739027-00 
• 2bl 338 3*02-. 1922 70 9*01“. 1890176*01 
•  1250996*02  .1330636*02  <3379311*01 
<112  7070*02  .116633J*02  .7321333*01 
.8525069*01  .9363099*01  .1087310*02 
•bl910B7*01  .6120981*01  .1030329*02 
.1700609*01  .2*165***J1  .1610390*02- 
-.1219bb*«01-. 62 77126-00  .22*1938*02- 
-.1733719*1,1-.  1726266*01  .2  706238*02 
•1277869*02  .33*033**01  .1166912*02 
•1108338*02  .6982603*01  ,99bOU03*01 
.9193020*01  .1006830*02  .6692908*01 
.3902006*01  .1392762*02  .3330080*01 
•2660037*01  . 1770036 *02-. 0202009-00 
-.1076217*01  .2169933*02-. 1711069*01* 
-.1739328*01  .2630073*02  .1903910*01 
•31107o8*ol  .1132677*02  .1166937*02 
.6667796*01  .9621036*01  .1030731*02 
.1011697*02  .6006166*01  .7127396*01 
.1333336*02  .2333029*01  .3300296*01 
. 1 721007*02-. 99OO797-00-. 33 79901-00 
•2139086*08-. 1723393*01-. 1 713000*01 
.2600006*02  .2302383*01  .1300090*02 
.1063100*02  .1133069*02  .6361813*01 
.9030630*01  .9613092*01  .8010782*01 
.3336363*01  .6036229*01  .1133336*02 
.1666996*01  .2362793*01  .1*807*7*02- 
-.121B6«3«01-.1003373*U1  . 1671979*02- 
-.1732368*01-. 1736380*01  .2310162*02- 
.2708030*01  .1300000*02  .9233397*01 
•1073099*02  .6090663*01  .6239007*01 
.8223690*01  .7670331*01  .3632039*01 
.6737760*01  .1073172*02  .2228376*01 
.1171853*01  • 16 19930*02- .6203968-00- 
-.1636016*01  .1611176* 02 ".17 32 636 *01- 
-.1733335*01  .2250670 *02-, 1698927*01 - 
.1300000*02  .8092773*01  .1055209*02 
.3521213*01  .6289063*01  .8696073*01 
•0882762*01  .3553523*01  .5282*60*01  , 
.1812502*02  .6311580-00  .1938582*01  , 


6-19-67  INPUT  T APES C  1832.1980) 


.1293300*02  .1383869*01  .9633696*01 
.1253182*02  .6376*26*01  .9023631*01 
.1056852*02  .1132761*02  .6702236*01 
•7031163*01  .1315*68*02  .3339660*01 
.3009630*01  .1868*87*02  .62933J0-0n 
'.1032383*00  .2326186*02-. 1937739*01 
.2067766*01  .2790562*02  .6109302-00 
.26*8052*01  .11*5070*02  .1317802*02 
.7*35519*01  .9793996*01  .1132775*02 
•112*630*02  • 7031560*01  .0066**6*01 
•16/56*3*02  .3708257*01  .6g89369*01 
.1830991*02-. 5597503-01  .10396*3*01 
.22  /9606*02-. 1770353*01-. 1595*36*01 
•2752053*02  .12'3775*01  .1300000*02 
.120*608*02  .1/63**0*02  .5*0*92**01 
.1010157*02  .1065163*02  .9133578*01 
.6750596*01  ■ 769667**01  .12550*1*02 
.352*366*01  .*586606*01  .1617237*02 
•36*6175-01  .9325317-00  .2019011*02 
.16*81*2*01-. 1526216*01  .2*71129*02 
.1609*38*01  .1300000*02  .1212276*02 
.1216373*02  .5178166*01  .1115179*02 
.1055727*02  .87*7786*01  .8166633*01 
.7610708*01  .1216763*02  .5026033*01 
.6252679*01  .15760*0*02  .1*17726*01 
.*911579-00  .19757*1*02-. 1**2680*01 
-.1651051*01  .261*151*02-. 1756*69*01 
.1300000*02  .11**062*02  .1239220*02 
.*885086*01  ,1079169*02  .113*037*02 
.6*05127*01  .6078767*01  .8620865*01 
.1161067*02  .***1223*01  .5372*66*01 
.1533956*02  .*292062-00  .1536757*01 
.19256 76*02-. 1575732*01-. 1**6091*01 
.236 3603*02-, l 782629*01-. 17*6330*01 
.105*359*02  .1195351*02  .2/86907*01 
.100*790*02  .1089*6**02  .6262113*01 
.736*329*01  .78**023*01  .9696730*01 
.3366616*01  ,6|99631*0|  .1303611*02 
.1901210-00  .5276138-00  .1667952*02 
.16**578*01-. 1629660*01  .2085968*02 
•17666 11 *01-, 17* 8535* 0|  .23*6503*02 
.1130329*02  ,2356966*01  .6915266*01 
.9801221*01  .5799127*01  .71352*6*01 
.6673*97*01  .911*611*01  .397555**01 
•2956306*01  .1262721*02  .3190620-00 
.6**91*2-00  .1607 136*02-. 1536156*01 
.1708101*01  .2025292* 02-. 1753 107 *01 
1679096*01  .2692639*02  .3ll.’515*01 
1857533*01  .7391056*01  .973.276.01 
5236665*01  ,501*672*01  .6957266.01 
#5106*3*01  .2056796*01  .36l6*2**0l 
1182229*02-, *206936-00  .5793866-00 


1 

2 

3 

6 

5 


8 
9 
10 
U 
12 
13 
1* 
>5 
16 
1 7 
1 6 

19 

20 
21 
22 
23 
26 
25 
28 

27 

28 

29 

30 

31 

32 

33 

36 

35 

38 

37 

36 

39 
*0 
*1 
*2 
*3 
*6 
*5 
*6 
*7 
*6 
*9 
SO 
»1 
»2 


424 


AFWL-TR-67-1  31  ,  Vol  IV 


.13o0?/0*02-. 110/205*01-. )900oe9-GO  .1553027*02-. 1**7501*01-. 1191156*01  1  5) 

.1  /6)/58«02-. 1572759*01-. 190)350*01  •l98tiO8*2-.IbJ04(<t«ni-,i<,97i,v9«Ot  1  5t, 

.22U9jO*i»2-.l9b//?2*31-.l967//l*01  .2952693*02  ,)5..6)60*&l  .1)00000*02  1  55 

.7)0/715*01  .9720759*01  .1)05520*01  .MCUllH!  .6657009*01  .2'<96197*0l  1  5h 

.51702/9*01  .7)83154*01  .9893115*01  .)8«2I93*01  .*,0)9961*01  .627/859*01  1  5/ 

.2899589*01  .9933959*01  .79278ol«01  .1881219*01  .3900529*01  .95979*3*01  1  5* 

.5323120-00  .2u2/o98«ol  . 1 139093*02- . 3999083-00  .12605)7*01  .1)17)2**02  1  5*» 

- , 1 1 009o  7*  o 1- . 1 7605)9- wl  .1510372*02-.190599d*01-.10717C7*01  .1/18799*02  1  60 

-.19709/0*01-. 1906598*01  .1931135*02-. 19/8907*01-. 1956119*01  .2155)7**02  1  61 

-.1979/o/*01-.  I9(.lbl5*')l  .2391  /09*02  .3912023*01  .1300000*02  .7977270*01  1  62 

.9969)03*01  .7651116-00  .691909B*01  .*699891*01  .2952*72*01  .53)67)6*01  1  6) 

.763)627*01  .9131323*01  .9157)99*01  .6987991*01  .58179)3*01  .28*53***01  1  69 

•  522/115*01  • /99591b*  0 1  .1586953*01  .396157**01  .9166179*01  .2)72210-00  1  65 

.29)2990*01  . 1089525*u2-.60O0656-00  .736/323-00  . 1267696*02-. 12959)5*0 1  1  66 

-.6556025-00  . 195506)* 02*. 19)0)90*01—. 1 316530*01  . 16591 15*02- . 1 9657*9 *0 1  1  67 

-.1998299*01  . 1873125*02- .196)695* 01- .1969002*01  .20u7322*02~. 19*590**01  1  6* 

-.19b520b*ul  .2)3)693*02  .9296995*01  .1300000*02  .7951196*01  .99*9979*11  1  69 

.3981/82-50  • 7012530«ul  .0790306*01  .209)270*01  .500)022*01  .7552055*01  1  7o 

.3730905*01  .9)91516*01  .6215317*01  .5925771*01  .269272**01  .9718108*01  1  7l 

.7079998*01  .1019950*01  .3151185*01  . 8709)33*01- ._ 7)«090-00  .19988*7*01  1  72 

. 1090 Io6*o2- • lo )2o69*01- .9)12502-01  . 1 21 79 32* 02-. 12979)0*0 1 -. 1 106225*0 1  1  7) 

.1909629*02-. 1951290*01-. 1926/06*01  . 1600698*02* . 1 996772*0 1-. 19b* 1 1 9*0 1  1  7* 

.1822655*02-. 15011)9*01-. 1971589*01  .2096651 *02-. 150 159 1* 01 -. 1 971 891 *0 1  1  75 

.228)1/2*02  .96051/0*01  .1)00000*02  .01)89/1*01  .9253055*01-. 99)9952-01  1  7b 

.7215/39*01  .6)09998*01  .1597/30*01  .5*97922*01  .6961926*01  ,)29)0«0*0l  1  77 

.91929/1*01  .5)69001*01  .9990126*01  .22/7)93*01  .37971)5*01  .6660863*01  1  7e 

.6506029-00  .2119661*01  .6 1 72/65*0 1- . 92 / 7669-00  .52)8619-00  .9067)52*01  1  79 

-.1081810*01-. 7*0)9)7-00  .1163/93*02-. 19959)6*01-. 13/5551*01  .1)51125*02  1  *0 

-.1525/99*01-. 1900295*01  . 1555197*02-. 15)9143*01-. 1991097*01  .1769159*02  1  *1 

-.15)99/8*01-. 1992177*01  . 199)350*02-. 15)5069*01-. 1992292*01  .2229671*02  1  *2 

.50106)5*01  .130000(1*02  .69)5329*01  .*991 091  *0 1 -. b  1 29 792-00  .5970627*01  1  8) 

.72069/9*01  .1062101*01  .9/06)51*01  .5757590*01  .2717196*01  .3099672*01  1  8« 

.91)9)65*01  .9)91273*01  .1995713*01  .252*570*01  .5959591*01-. 299*693-01  1  85 

.9/53999-00  . 75652 1 3*0*-. 10972)0*01-. 96/ 90 50*00  . 92592)6*0 1 -. 1 969*69* 0 1  1  8* 

-.1)06010*01  . 110)129*02-. 1562"69«0l-. 1502320*01  . 1290305*02-. 15757*7*01  1  *7 

-.152/9/9*01  .1999 32 7*02*. 15/ 72 12 *01 -.15 30 300* 01  . 17083)9*02-. 1^77)79*01  1  8* 

-.15)06)0*01  . 19325)0*112-.  15 77)9 7*01-.  1 5)0665*01  .2168651*02  .5916100*01  1  *9 

.1300000*02  .51*8727*01  .79/6696*01-. 1169105*01  .9176575*01  .61*90*2*01  1  9o 

.986/079-00  .2760289*01  .9623/09*01  .2116618*01  .1251613*01  .30)6111*01  1  9] 

.)7)99l7*oi-. 1729185-00  .1962)66*01  . 5)96792*01- . 1 09)5*1 *01-. 79*3)07-01  1 

.695/098*01-. 19U6996*Ul-.1167)0)*0l  . *65 1 056*01 -. 1 5686*9 *0 1- . 1 50*1 97*0 1  1  9) 

. 1092)05*02-. 1606918*01-. 15691)9*01  . 12299*5*02- . 16097)6 *0 1 -. 1 5*2900 *0 1  1  99 

.193)500*02-. 1608927*01*. 15 71901*01  . 1697519*02- . 160*970*0 1-. 1 571609*01  1  95 

.1071710*02-. 16089/5*01-. 15/to2)*0t  .210*0)1*02  . 5*28996*01  .1)00000*02  1  9f, 

. ) 7926)9*0 1  .b572)5c*01-. 1790561*01  .29616/0*01  .5118)60*01-. 11*7956*00  1  9y 

.1000897*01  .3559799*01  . 1 */90oO *0 l- . 39 1 0503-00  .196*523*01  .3116238*01  1  9* 

-. 1156022*01  .9227022-00  .9 /27o51 *01- . 19902*6*01 -. 0991 )9l-00  .6337856*01  1  99 

-.1597956*01-. 1951676*01  .00)1 793*0 1- . 1629*19*0 )- . 1 5823)0*0 1  .9*0)7*0*01  1  100 

-.1629*92*01-. 160)320*01  . 1 167559*02-. 16)0795*01- . 1606672*0 1  .1)71581*02  1  101 

-.16)0067*01-. 1607119*01  .1585567*02-. 16)0*82*01*. 1607167*01  .1*0978**02  1  102 

-.16)0*83*01-. 16071 7)*ul  2096109*02  .6219606*01  .1)00000*02  .15*96*7*01  1  10) 

.*595006*01-. 23100*9*01  .1902796-00  .3505698*01-. 6938166-00- .86*03*2-00  1  IO9 

.1986362*01  .922)6*3-00-. 1)05003*01  .*70652*-00  .253*7*0*01-. 1572553*01  1  I05 

-.8050238-00  .*1*9566*01*. 1633822*01 -. 1 5*0*31*0 1  .5759373*01-. 16)03)6*01  1  106 

-• 1652738*01  .7953302*01-. 165)963*01-. 166*976*01  .92252*6*01*. 16)9712*01  1  107 
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AFWL-TR-67  -131,  Vol  IV 


,9720740*01 
•7920140*01 
.5671590*01 
.4459760*01 
.6067200*01 
.8750160*01 
.1149/«,0*02 
.14920  70*02 

•  162*630*02 
.4261*140*01 
.9161300*01 
.612/470*01 
»6166ol0*01 
.4131460*01 
.195/290*01 
.1141400*02 

•  111  7200*02 
.1010240*02 
•60744o0*01 
•b746o40*01 
•44V4o/0«01 
. 1000000*02 
•62b6220*01 
.1066440*02 
.1400640*02 
. Ib42l60*02 
.1765600*02- 
.7647140*41 
.6724660*01 
. 52656 J0*0l 
.4416400*01 
.1440660*01 

-. 1466000*00 
•6794600*01* 
.6704260*01 
•666U470*01 
.7724060*01 
.6166440*01 
.1744/00*01 

•.6742140-00 
.1676440*01 
.6647670*01 
.4642060*01 
.1414310*02 
.100  7410*02- 
.4042610*01 
.6414460*01 
.6700940*01 
.7641600*01 
.6616470*01 
.  I  '.47720*01 
.4064660-00 
.1146240*02 
.1140670*02 
.1061020*02 


•1244260*02 
. 1490900*02 
.1724640*02 
•4296670*01 
.9106600*01 
.6064640*01 
. 7462940*01 
.6162610*01 
•2964460*01 
.1116600*02 
.1060120*02 
.9040040*01 
•  7014460*01 
.6644960*01 
.4247600*01 
.4991670*01 
.6726260*01 
.9406660*01 
.1161240*02 
.1412960*02 
.1644120*02 
.6411900*01 
.7131220*01 
.6666410*01 
.3744420*01 
• lb4b67o*Ol 
-.6066260-00 
.1091610*02 
.9040660*01 
.679V690*01 
•4646190*01 
.2749600*01 

•12o0000*o2 

-.1499690*01 

.1221130*01 

.6277190*01 

.9611640*01 

.1664190*02 

•2074460*02 

.7472440*01 

.7469060*01 

.7422110*01 

.6622760*01 

.4626240*01 

.9166940-00 

.1124770*02 

.1119260*02 

.1094740*02 

.9764190*01 

.7446760*01 

.2731460*01 

.1200000*02 

.2496170*01 

.3324940*01 

.6902490*01 


.7644040*01 
.6404090*01 
-.0419760-00 
. 1002920*02 
•1069670*02 
.1029930*02 
.67/0290*01 
.6677970*01 
.4266940*01 
.4696060*01 
.7711660*01 
.1041090*02 
.1262240*02 
.1614790*02 
.1744100*02 
.9006040*01 
.06246/0*01 
.7146760*01 
.6464900*01 
.4446960*01 
.1147320*01 
.1112000*02 
.93/0630*01 
.7494/40*01 
.3099080*01 
.2676970*01 
.1100000*02 
•  7202060*01 
.9636220*01 
.1190440*02 
.1440160*02 
.1664660*02 
.6664270*01 
.6640660*01 
.6622010*01 
.6421270*01 
.6042900*01 
.1999100*01 
.9641020-01 
.1040/40*02 
.1022710*02 
.1004660*02 
.6916990*01 
.6706700*01 
.9647120-00 
.6096460-00 
.4147440*01 
.6944990*01 
.1092990*02 
.1406440*02 
.1777700*02 
.9629670*01 
.9474990*01 
.9041990*01 
.7664760*01 


.6096940*01 
.6760410*01 
.1200000*02 
.4676200*01 
.7441270*01 
.1009090*02 
.1266760*02 
.1604640*02 
.1744610*02 
.9266630*01 
.6776690*01 
.7166890*01 
.6116610*01 
.4004040*01 
-.6696770-00 
.1144660*02 
.1061760*02 
.9200640*01 
.6997790*01 
.4696600*01 
.2407640*01 
.7004190*01 
.9664040*01 
.1190260*02 
.1421620*02 
.1664640*02 
.6499660*01 
.7421960*01 
.6119710*01 
.4466240*01 
.24/2690*01 
.7494740-00 
.6600270*01 
.6760490*01 
.6666260*01 
.8167460*01 
.7267670*01 
.4004640*01 
. 1200000*02 
.6461260-00 
.4469440*01 
.7614960*01 
.1144140*02 
.16/4670*02 
.2046910*02 
.6929900*01 
.6660660*01 
.8462600*01 
.6704990*01 
.4142460*01 
.2646610-00 
.1160260*02 
.1142470*0'/ 

■  1 1 04720*02 
.9704790*01 


.1475490*02 
.1614490*02 
.9446740*01 
.9224940*01 
.9109410*01 
.6242460*01 
.6247690*01 
.4024040*01 
-.7466060-00 
.1102260*02 
.1049790*02 
.6643230*01 
.6644660*01 
.4444230*01 
.1200000*02 
.6290140*01 
.0047410*01 
.  1067740*02 
.1292100*02 
.1624100*02 
.1764790*02- 
.7094920*01 
.6434770*01 
.4707100*01 
.2744620*01 
.6924740-00 
.1174430*02 
.1011940*02 
.7990240*01 
.3710340*01 
.4673360*01 
.2291490*01 
-.2649160*01 
-.3111400-00 
.4267660*01 
.7328700*01 
.1106430*02 
.1640610*02- 
.7629640*01 
.7469690*01 
.7420930*01 
.7073400*01 
.3610470*01 
.1266120*01 
.4220640-00 
.1120990*02 
.1110630*02 
.1060610*02 
.6723030*01 
.3012700*01 
.1044290*01 
.1204400*01 
.4337940*01 
.7262640*01 
.1046660*02 


•6336760*01 
.4296430*01 
.1090660*02 
.1076420*02 
.1067910*02 
.9b49390*0l 
.  7/i5l440*0l 
.6462670*01 
.1100000*02 
•6496460*01 
.9163960*01 
•1169640*02 
.1404640*02 
.1634290*02 
.9091440*01 
.8936630*01 
.7949440*01 
.6203770*01 
.4446060*01 
.2207420*01 
.6796440-00 
.1032470*02 
.6667660*01 
.6401960*01 
.4014600*01 
.1977160*01 
.4510290*01 
.6402400*01 
.1077080*02 
.1406620*02 
.1641610*02 
.1776640*0? 
.3340900*01 
.6329220*01 
.3497660*01 
.6260440*01 
.4001610*01 
.2761660-00 
.1042660*02 
.1029910*02 
.1013960*02 
.9364220*01 
.7963730*01 
.4295790*01 
.1200000*02 
.2087560*01 
.9944140*01 
.8707770*01 
.1176620*02 
.13*3620*02 
.2026190*02 
.93*9630*01 
.9262090*01 
.63*3730*01 
66*3610*01 


*3 

*4 

45 

*3 

47 

40 

49 

50 

51 

53 

34 

»5 

36 

37 
30 
39 
on 
61 
62 

64 
66 
*5 
66 
67 
60 

69 

70 

71 

72 

73 
76 
73 

76 

77 
70 

79 

80 
81 
82 
63 
66 

65 

66 
67 

•e 

69 

90 

91 

92 
94 
*6 
*5 
*6 
9? 
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AFWL-TR.67.13i,  Vol  IV 


-.lbb«a2V«01  .  1109  7oV*u2-.l*5»l»»7*ol 
*.  I*b71b2*ul  .  152773b*U2*.  1*39**0*01 
-,lb*7l*7*ui  .19*0293*02  .*931000*01 
-.2*1 0301*01-. 32*5*22-00  .2903030*01- 
.91*1  723-00-.  l*V2of>/*0l-. 99*7  701-00 
.3*9*009*01-.  1*9  3220*01 -.1*1 02.’ 9*01 
•*9*0399*01-. 1*9*37 7*01-. 1*0*0*0*01 
,1039239*02-. 1*30*9 7 *01-. 1**71 0**01 
•19?T2*7*U2-. 163* **0*01-. l**7l**«01 
.19377***02  .*907793*01  .1300000*02 
-,T*3797*-00  .l?973*0*01-.l73Uo31*0l 
-. 13*1303*01-. 9*0*71*-03  .1*992*3*01- 
-.l**O*9**01-.l*»**39*9l  .0719**1*01- 
-. 1*3*0 1**01“. 1 6***1 7*01  .01A33***01- 
-. l*5»d*l *01-. 1**7190*01  .1209759*02- 
-• 1*9*0*** 01-. 1** 71C5 *01  .1**79*2*02- 
.7313220*01  .13000OO*o2-.2796S9*-00 
. 1017959*01-. 233017 7*01*. 1«8295«*01- 
*. 133*590*01  .0910991-00-. 1**22*3*01 
-.1*5*9*3*01  .*lll*6**ul-. 1*9*2*9*01 
*.  lbbb92U*Ul  .  757  73o»*01-.l*9»<l«9.0l- 
*.lbb71b«*Ul  .ll**V*0*02-.l*5*a***01 
••  1**  71*4*01  .1 5071*2*0*-.  l*3*ii***01 
. 1300000*02*. 7 T9bau 1-PO  .2131293*01 
-.2937203*01-. 1502*90*01-. 70*0933-00 
. 20292 70-00-. 1**0*50*01-. 1*132 7**01 
.3303**9*01-. 1*3* 337*01*. 1*3?*01*01 
,b9bVl 71*01*. 1*3**25*01-. 16591 76*01 

«luaai2U*U2*. lbbbb3S*0l*. Ibb921b*01 

.lb2b323*02-.lbb«b33*Ul*.lbbV217«01 
*. 113**03*01  .1*11**6*01-. 31733 T**01 
-. 160*200*01-. 1 123**2*01-. 19*T7o**0I 
*. IbblU  7a*bl*. Ib3b703*01  .12  7*2*7*01 
l*33d*0*01-> i*3*oO**Oi  .«b77920*0l* 
*. Ibb3972*ul*. ibbbb3b*Ul  .6*21 7 10*01- 
-. 1*3397**01-. 1*3*033*01  .12*0200*02 
*• lbb397b*01*. l*b*abb*01  .1700717*02 
.*d077*O-OO-. 3733772*01-. 13*1*93*01 
1 39b37b*01*. 2b2blb*  *01*. lb* 7 obi *01 
-.1**7222*01  ,*9379*1-U0-. 1*33599*01 
-• lbbb*7  7*01  .399V*27*01-.lbb3920*01 
-.1*3*0*3*01  ,7b«321b*01*.lbb3931*0l 
*.  lbb*032*01  .Ua23bO*U2-.lbb3931*01 
*. Ibbba32*01  .1**20*7*02  ,*Sb3b*b*01 
*.*250327*01*. Ib99*01*01*. 10*0*20*01* 
*. 3029052*01*. 1*50595*01*. 1*32057*01* 
.1910*9**00*. 1*53*51*01*. 1*55930*01 
.3* 9*710*01*. 1*5* 020*01*. 105*0*7*01 
.7130500*01*. 1*5*02**01*. 1*5*910*01 
.1131000*02*. 1*5*02**01*. 1*5*910*01 
.1592397*02  .92103*0*01  .1300000*02* 
»,1*2357**01*. 1339*92*01 *.51 7*3*0*01* 
». 1*5225**01*. 1***907*01 -. 195*519*01* 
•.1*93*99*01*. 1*5*393*01  .12*50*1*01* 
•.1*9392**01*. 1*9*009*01  .9731*00*01* 


.1**7123*01  .1 313732*02-. l*5«b*5*0l 
. 1**71 5**01  .1751939*02-. 1*9*9*0*01 
.1300000*02  .9011030-00  .3*77009*01 
.119*9*9*01-. 11*930**01  .9575003-00 
•203«10«*01 -.1*0071**01-. 13*2000*01 
.525*670*01-. 1*52509*01-. 1**0*19*01 
.072057**01-. 1*5*71**01*. 1***999*01 
. 12* 32*1 *02*. 1*5*0*7*01-. 1**71*«*01 
.1701**3*02*. 1*590*0*01*. lh*71*7*0| 
.35«***0*00  .331225**01*. 33*305**01 
.13***17*01  .20*072**00*. 11*55*0*00 
.1*29**0*01*. 15290*9*01  .3109**0*01 
.1*53*09*01 *.1**3997*01  .*«I35*2*01 
.1*5*02**01*. 1**70*1*01  .1005737*02 

•  1*3»0*5»01*. lt*71*«»01  . 1*I37***#1 

•  1*5«0***01*  1**71*5*01  .1**92<  3*02 
.25**257*0  *.39*  9597*01-.  112221 7**| 
.9059*57-00*. 7203992-00-. 1*05*55*01 
.1*1*1*9*01  .250170 1*01-. 1*52002*01 
.1**5732*01  .5*05305*01-. 1*5*753*01 
.1**712**01  .9**91 75*01-. l*5«O***0l 
.16*71*3*01  .13*29***02-. 1*590*6*01 
. 1**71** *0 1  . 1023**3*02  .7710*05*01 
,*55*05**01-. 13**91**01  .*2*11*7-00 
.1320*97*01-. 1*209***01-. 192303**01 
.109351 1*01-. 1*532*5*01*. 1*50901*01 
.51971 00*01*. 1*59501 *01*. 1*50955*01 
.00*0977*01*. 105**32*01*. 1*59211*01 
. 1302127*02*. 1*5**33*01*. 1*59217*01 
.17*2**3*02  .0131531*01  .1300000*02 
.1*9*05»»01-. 9323*35*01*. 355*310*01 
.1**1*30*01-. 15* 50*0*01-. 33* 3213-00 
.1*54209*01-. 1*32*00*01  .200*003*01 
.  1*33932*01-. 1*5*72«*01  .639*903*01 
.1»5397**01-. 1*5*053*01  .102*1*3*02 
.1*33976*01 -.1*5*055*01  .1«*939**02 
.0517193*01  ,1300000*02-. 1331202*01 
.*«3030«-W0-. *13*710*01-. 1*20701*01 
.1*0*739*01-. 91*00*3-00*. 1*32321*01 
.1*34902*01  .2303509* 01*. 1*330*7*01 
.1*53772*01  .3771*09*01*. 1*33929*01 
. 1*5*031*01  .9*03*37*01*. l*3|931*0l 
.1*5*032*01  .l*0*3***02-. 1*33931*01 
.1300000*02-. 1**9203*01  .717*203-01 
.  **393*5*01-. 1*39*21 *01-. 15**099*01 
.191V50**01*,1*3322**01-. 1*31020*01 
.  1004*02*01*. 1*33993*01-. 1*5*730*01 
.32*4701 *01-. 1*39023*01*. 1*3*913*01 
.91 70729*01*. 1*5*02**01-. 1*3*91**01 
.135407k*02*. 1*3902**01-. 1*3*910*01 
.139*999*01*. 9093990*00*. *793293*01 
.1**4339*01*. 1593*20*01-. 354*091**1 
.  1453920*01*. 1*59*10*01-. 3*3*021-00 
.1*93913*01*. 1*54734**1  .2*947*4**1 
..493929*01*. 1*944(1**1  .4*03445**1 


109 

110 

111 

112 

113 

11* 

119 
11* 
117 
11* 
II* 

120 
1*1 
122 
123 
12', 


1*9 

12* 

127 

120 

129 

130 

131 

132 

133 
13* 
139 
13* 
137 
13* 
139 
190 
1«1 
1*2 
193 
19a 
1*9 
19* 
1*7 
1*0 
1*9 

130 

131 
192 
133 
13* 


145 

15* 

157 

190 

15* 

140 

1*1 

142 


427 


AFWL-TR-67-131  ,  Vol  IV 


«.165392V*0l-.l65e«23*UI  .6693717*01-. 1653929*01-. 168662«*0I  .1078378*02  t  183 
-.165392V«U1-.I656629*0I  . 13w2579*02-.  1653929*01-.  165682**01  .1536895*02  1  16k 

1 

0U8t/H05Ct  CM2  f CMP U 00. -2250. I  11  F  HCQ  •  CS/M7  11/18/96  SSC/Off 


.11UOUOO*U2  .369uU0U*u3 
2101.  • VUUUOuuL* »1 

.96051/0*01  .1300000*02  .61*1120*01  .9255235*01-.9223911-01  .?2l?655*0l  1  i 

.9312290*01  .  15VVt>9e*01  .5900036*01  .6963897*01  .3298202*01  .9198062*01  1  2 

.8386709*01  .9992280*01  .2279*78*01  .3799296*01  .9862787*01  .6607238-00  1  3 

.2121990*01  .8178069*91-. 9297-620-00  .8260170-00  .y9699?7*0 1-. 1 1 16107*01  1  k 

-.7796006-00  .1169188*02-. 1786927*01-. 1909819*01  . 1381337*02-. 2093079*01  1  8 

-.1861928*01  • 1 888360* 02-.2 186662 *01-. 1863939*01  . 1769366*02-. 2167216*01  1  6 

-.1896023*01  .1993862*02-. 2166122*01-. 1866301*01  .2229863*02  .8010638*01  1  7 

.1300000*02  .693/813*01  .6993206*01-. 6103621-00  .8972797*01  .7209163*01  1  6 

.1069223*01  .9706812*01  .8/89689*01  .2719270*01  .3101703*01  .9l9|802*0l  1  9 

.9393397*01  .1996633*01  .2830689*01  .8986716*01-. 8008336-01  .9779293-00  1  10 

•  786  /  33  7*01-.  1 3869  lo**'l“.  9  763319-00  .9261 363*01-.  2996028*01-.  1 936071*01  1  ll 

. 11 0333/«o2-.3o30o07«ol-. 1778192*0!  . 1290818*02-. 3183392*01-. 1 639876*01  1  12 

. 1999890*02-. 3l70e36*0l-. 1897691*01  . 1706896*02-. 3172939*01-. 1 6*8876*01  1  13 

. 1932/93«02-.3l 73168*01-. 1896982*01  .2169063*02  .8*16100*01  .1300000*02  1  1* 

.8190699*01  .7*60610*01-. 116196**01  .91767*2*01  .61662*1*01  .*868317-00  1  Is 

.2770930*01  .9628996*01  .2116/93*01  .12*9668*01  .3036258*01  .37370*1*01  i  lfc 

-.3092280-00  . 1*6921/*. 1  .83*6916*01-. 1828863*01-. 9629861-01  .6989222*01  >  1? 

-.3190389*01-. 1382882*01  .06831a! *01 -. 3996636*0 1-. 2086659*0 1  .10*2817*02  1  16 

-.9291100*01-. 22*3291*01  .1229e98*02-.*2H6029«01-.2276186«01  .1*33720*02  1  19 

-.92*1 203*01 -.2268281 *ol  . 1697 727*02-. 9261908*01-. 22687*8*0 1  .1871923*02  1  2o 

-.9261969*01-. 2268620*'.'!  .2106299*02  .86269*6*01  .1300000*02  .379*797*01  1  2i 

.687*312*01-. 1738938*01  .2*63612*01  .8120320*01-. 116671 7*00  .9935609-00  1  22 

.3886932*01  .1801989*01-. 8**0*99-00  .19/0396*01  . 31 16362*01-. 2092638*01  1  23 

.9092366-00  .9729778*01-. 38*6691*01-. 10*1697*01  .6339981*01-. *6936*8*01  1  2k 

-.216/998*01  .8033916*01-.821U016«01-.2669362*01  . 960590**0l-. 5335099*01  1  25 

-.2766860*01  .1167771*02-. 5386370*01-. 2806799*01  . 1 371 793*02-. 6359217*01  1  2* 

-.2611*90*01  .1585600*32-. 5339567*01-. 2811812*01  . 1609996*02-. 535959**01  1  2? 

•.6611*97*01  .60*6317*02  .621*608*01  .1300000*02  .159098**01  .*597159*01  1  28 

-.2307926*01  .1213330*00  . 3507639*01-. 6916997-00-. 1398863*01  .1987165*01  1  29 

.92996*6-00-. 2993817*01  .9900950-00  .25*0909*01-. 9*69832*01-. 1090981*01  1  3o 

. 9151692*01-. 595367/*01-. 2866060*01  .5761*98*01-. 7060879*01-. 3685*80*01  1  3l 

.79559*6*01-. 7539738*01-. 9273222*01  .9267*11*01-. 76525*1*01-. *359060*01  1  32 

. 11099***0*-. 7«716*7*01-. 9373352*01  . 13139*9*02-. 76791 72*01-. *378252*01  1  33 

.  152/951*0*-.  7k79*75*l'l-.9375-*/9*01  . 1752197*02-.  7679506*01-. 9375503*01  1  3k 

.1966966*0*  .0851060*01  .1300000*02  .9732505-00  .  3979*162*01-. 2608957*01  1  3* 

-.8*167/0-00  .29630*9*01-. ir/9M»3*01-.*03699'l«OI  ,9809176-00  .8*029li9-0n  1  3*. 

— . 3610*9**01—, 39769 7u— CO  . *03oJ0"*0 1- . 5 1 37590*01-. 2109971 *0 1  .3**7009*0!  1  37 

-.696/039*01-. 336373**01  .5256796*01-. 7315099*01-. *095726*01  .6950719*01  1  36 

-.760396 7*01-. 9322u01«ul  .6722/03*01-. 76632*1*01-. 9367080*01  .1059*51*02  1  39 

-.76 73 039* 01 -.9 3 799 06* 01  . 1263*73*02-.  76  79338*0 1-. *375376*01  .1*77980*02  1  k<) 

-.767*993*01-. *375991*01  . 1 701076*02-. 76/9510* 01-. 9378509*0 1  .1937997*02  1  9J 

.690/765*01  .1300000*02  .3076189-00  . 3319901 *01-, 3390930*01-. 1208680*01  I  9; 

. 1796509*01-. 172652/*01-. 2759119*01  .2550062-00-. 1199337*00-. 9 300100*01  1  *3 

-.1281902*01  .1501366*01-. 5769997*01-. 2713529*01  . 31 120 12*01-. 6908825*01  1  9k 

-.3755579*01  .972 1785*01-. 7982219*01-. 9228566*01  .6*15707*01-. 7639063*01  1  *5 

-.9396910*01  .8167690*01-. 7668973*01-. 9371351*01  . 1005950*02-. 7673790*01  1  *6 

«. 937*999*01  .1209972*02-. 7679927*01-. 9375929*01  . 1*23979*02-. 7b79503*0l  1  *7 

-.9376981*01  .1696175*02-. 7679511*01-. 9375967*01  .1889995*02  .7313220*01  1  *e 

. 1300000*02-. 9606728-UO  .2596276*01-. 39*7973*01-. 1995970*01  .1012377*01  1  *9 
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AFWL-TR-67 -1  31  ,  Vol  IV 


-.2JJom3J*ui-.J335369*CI- 

.o93219B-uu-.04Ua09u*0l- 

.<•11  3:>90*ul-.  730-4  32*ul- 
.73T949j*ul-.  7o7204>>U1- 
.11»913<:*4«:-.7o7447«*«1- 
. ISO 7 333*0*-. 7o743l l*ul- 
-.UJ/99j*ui  .»U233i*ci- 
-.<*Jlo7ou«ul-.'#<4OO«'S«-0u- 
-.0410 J/b*ul-. 33*0ihj«*uI 
-.  7oJJ*  7  J*ul -.««’**  7/o*0l 
•.7o7j4l3*ul-.420lllJ*t'l 
- .  7o  /<•<•  /4*tl-.42t*14i»*ul 
-.7o/43il*ol-.4.!o2lt,4*ol 

lloo Jo* 

OlAUt  C*«liul<  ►’tlLUwLlC  JO 
0.120000*0*  U.6/4OUO*0J 


.  32  J« 932-00-.  7  1 1*2740-00-. 300429 7*  01  -.20  32*791  *01 
.  JJ10J3*l*0l  .*JHJ02e»ol-.  7201?  14*01-.  4 ->31927*01 
.4  307  4  70*01  .  S.IU731 0*01-.  703880  1*01-.*  J6J36?*0l 
.4 373621 *J1  ,9431300*01-. 7o7410l*01-.4J7 32 22*01 
.4370434*01  . 13631 39*02-. 767450 7 *01*. 4 j73439*01 
•4J7S401 *01  .1823670*02  .7716663*01  . 1100000*0? 
. 4 SS4 7JU*01-. 27040 03 *wl  .u0396S7-00-. 2933001*01 
. 1 320 J 73*0 1 -. S704 0 74*01 -.?4 07 l»o« 01  .2l<S05?0-0c 
.  169-juJ3*0l-.  74044 '14*ui-. 4  00* 777* 01  .3,,flSJt>4*0l 
,3199312*0 1  — .  7607* lu*01-.4?SS3i4 *01  .6  771293*0 1 
.00*31 02* 01 -.7o/*36B* 01 -.*20202^*01  . 1066332*02 
.  1 302  339*02-.  76  74309*01-.  4202 102*01  .1526333*0? 
.  1 702636* 02  .0000000  . OOf'OOOO  .OOOoOOO 

--  12  li<LOI»L»<.ltS  —  2l«  1460 


111S.  .2 J00000t«02 
-0.2u4-j97*01  0  •  12000u*o2- 
— 0 . 1 04 J4S*U2  0 . 324403*0 1 - 
-0.9971dJ*Ol  0.300*74*01* 
—  0.901040*0 1  0./90o4S*0l* 
•0  •  804()SO*0  1  0.102103*02- 
-0.707870*01  0.12Sl4u*u2" 
-0.000993*01  0.140197*02- 
0. 24903  7  *0l-0.SS39HS*0l- 
0. 4 79320*0 1-0. 444 31 1*01- 
0. 710082*01-0.337/93*01- 
0.940799*01-0.23SOS9*01- 
0.117102*42-0.130103*01 
0. 1*0 343*02-0.40711 7*00 
-0.l8le04«ol  0.333033*00 
-0.84Jool«uu  0.130977*01 
0.110294*00  0.228282*01 
0. 103789*01  0.324177*01 
0.197323*01  0.417188*01 
0.283390*01  0.314010*01 
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*.1127010*01  .0603170*01  .6907760*01  .7000000*01 


*. 1641603*0 l-.lb0*284*01 
-.10* 1*0** 01 -.16*0299*01 
-.16* 1848*01*. 16*1626*01 
-.10* 18*9*01*. 16*1662*01 
*. 16*18*9*0 1*. 16*1662*01 
.607*121-00-.7o02363*0l 
-.1*1 4976* 01 -.3 767608*01 
-.1031294*01*. 3*63033-00 
-.1660707*01  .2736910*01 
-.1663034*01  .6*00681*01 
-.16630*2*01  .10^8097*02 
-.16630*2*01  .131861**02 

AORIL  3.  1966 


-.2302390*01 
-.0000000 
.2302390*01 
.0603170*01 
.3279700*01 
. 7730080*01 
.6*91900*01 
.0605170*01 
.7936*80*01- 
.77*7790*01 
.3923*50*01 
.7000000*01 
-.6931*70-00 
.1609*40*01 
.3912020*01 
.7638700*01 
.7136180*01 
.36*8620*01 
.3663360*01 
.683 1 080*0 1 1 
.6*39350*01- 
,*677*90*01 
.2093100*01 
'.2302390*01 
'.OOOOOOO 
.2302390*01 
.0603170*01 
.*387720*01 
.28**910*01 
.7929930-00 
.6*31080*01 
.2898120*01- 
.1000630*01 
•bl*3360-00 
.7000000*01 
.6931*70-00 
,1609**0*01 
.3912020*01- 
.2837620*01 


.831*390  01 
•8429b70*01 
.7298*30*01 
,*317*90*01 
.8279700*01 
.773**80*01 
.6*91940*01 
.7000000*01 
.6931*70-00 
. 1609**0*01 
.3912020*01 
.7868230*01 
.73*7300*01 
.6176080  01 
.*3*7b90*0l 
. 7638700*01 
.7136180*01 
.36*8620*01 
.3663360*01 
.2302390*01 
•0000000 
.2302390*01 
.*603170*01 
.5335670*01 
.3895090*01 
.1660140*01 
.621*610*01 
.*587720*01 
.28**910*01 
.7929930-06 
.7000000*01 
,6941*70-00 
■  1689**0*01 
.4912020*01 
.4**1380*01 
.1766**0*01 
.1094990-01 
.1127010*01 
.2897620*01 


1  109 
1  1  in 
1  111 
1  11? 
1  »14 
1  11* 
>  >15 
1  lib 
1  117 
1  118 
1  119 
1  120 


1 

2 

4 


6 

7 

8 

9 

10 

n 

i? 
14 
i* 
is 
1  6 

17 

18 
19 
2C 
21 
22 
23 
2* 
23 
2b 
27 
2e 

29 

40 

41 

42 
44 
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35 
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38 
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-.4304390*01  .Io2*i3o*oi  .i62*i3<!*i;i-.693i*7o-uo  .100*710*01  .lob*7io*oi  i  *o 
-.0000000  -.0773b9J-ol-.0773b*O-Ol  .101)9**0*01-. *706300-00-.*  796500-00  l  *1 

. 4304 j*0*oi  - .  1  171180*01-. 1171lo0 *01  .  3412020*01-.  1139* IU *01-. 1 339*10*0 l  I  *2 

.*603170*01  . 731344  )*Ul  .70  01.000*01  .2330200*01  . 2330200*01-. 2302390*01  1  *J 

.b3**130-ou  .03**130-06-. 6931  * 70-UO  .32930*0-00  .  32430*0-00-. 0000000  1  *« 

-.63*b7d0-00-. 63*0700-00  .  Io09*.*u  *0 > - .93*5120-00-. 93*3120-00  .2302390*01  1  *b 

-. 1396370*01-. 139d37u*01  .3914040*U 1-. 1310600*01-. 1318680*01  .*606170*01  1  *b 

.7600900*01  .7000000*01  .201 b  *00 • U 1  .20  10900*01-. 23r2*)9l*al  .33*1310-00  I  *7 

.33*1 jlU-UU-.o931*70-OU  .1 ‘>>>0200-01  . 1900260-0 l-.UOUOOOO  -.8770700-Or.  1  *p 

-.8770 700-00  . lbU9**0*ul-.  1130310*01-.  1136310*01  .2302390*01-. lbl* 130*0 1  1  *■) 

-.131*1 30*01  .  3*12020*01-.  Ibo9**o*01-.lb09**0«01  ,*bnbl7C«01  .7s2*030*0l  1  bo 

.7000000*01  .11  72*80*01  .11  72<il0*01-.  2 302390* 0 1- . 1** «*0C-OO-. 1 **»*80-0o  1  bl 

-.  o931*7o-0o-.  33lo*oU-06-.331<.*60-00-.000000U  -.  1180910*01-.  1 1*0910*01  1  b2 

.lb09«*0«0l-. 1320030*01-. 132b030*01  .23U2b90«l 1-. 1629b*f*01-. 16296*0 *0 1  1  33 

.39l202U*01-.lo72910*01-.lb72M0*01  .**>0bl  70*01  .016Ob2O*OI  .7000000*01  1  3* 

-. 1*0*120-00-. 1*0* 120-00-.23 32 390*01 -.98 7b0*O-CO-.9h738*O-OO-. 6931 *70-00  1  33 

-.122*100*01-. 122*160*01-. OUOOOOO  -. 160**30*01-. lbO**30«01  .1609**0*01  1  3b 

-•16b0 730*01- .1660739*01  .2302690*0 1-. 1 71*800*0 1-. 1 71*600* 01  .3912020*01  1  37 

-.1723170*01-. l72317o*ol  .*603170*01  .8317190*01  .7000000*01-. 1207310*01  1  38 

-. 12O731O*Ol-.23O239O»Ol-.1309a«t*Ol-.lb09b*O«Ol-.b931*7o-OO-. Ib30260*0l  1  39 

-.1630260*01-. 0000000  - . 1 7*2 > 70 *0 1 -. 1 7*29 70 *0 1  . 1609**0 *0 1-. 1 73**60 ♦ 0 1  1  60 

-.173**00*01  .2302390*ol-.l 73**«O*01-. 173**60*01  . 3912020 *0 1-. 1 73 7360*0 l  1  bl 

- •  1  73 73o0*0  1  . *b031  7o*l>l  .d922bb0«01  . 7000000* 01- .  16*30 70*0 1-.  1 6* 3070*0 1  1  62 

-.2302390«0l-.1731bl0*01-.l731ul0«01-.b931*  70-00-. 1 760260*01-.  1 7h0260*0 1  1  63 

-.OOOOOOo  -.1771900*01-. 1771960*01  .1609**0*01-. 1771960*01*. 1771960*01  1  6o 

.  2302390*01-.  1  7731 3il*Cl-.  1  /73130*01  . 3912020*0  1- .  17731 30*0 1-.  1 773130*0 1  1  63 

.*6031  70*01  .92103*0*01  .  700000 0*0 1 -. 1 703 790 *0 1 -. 1 783 790*01-. 2302390* 0 1  1  6b 

-.1626330* 01 -.1826330*01-. 6931*70-00-. 1638830*01-. 1838850*01-. 0003000  1  67 

-.18*3160*01-. 10*3160*01  .1609**0*01-. 18*3160*01-. 18*3160*01  .2302390*01  1  66 

-. 10*2630*01-. 16*2630*01  «3912020*01-.18*2630*OI-.16«2630*01  .*603170*01  1  69 

16 

01AUL/3CA7  OOMAHlIl-lA  lt“IM  l -2230 1  1  0KEO  C1/»00  2-16-67 

.1000000*01  .6u10000«03 

112b.  .2100000*02 

.OOOOOOO  .1300000*02  . 63 1 3u20*0 1  .9*033*6*111  .3707379-01  >69l0»*l*Ol  1  1 

.931)3396*  0 1  .2212227*01  .6033137*01  .9292392*01  .*766373*01  .6‘j77*b7*0l  1  2 

.8997217*01  .737*310*01  ,3S09u78*Ol  .022*692*01  .968*303*01  .*776727*01  1  3 

.6090391*01  .1162380*0..  .3300773*01  .3313839*01  .13396*0*02  .20763*1*01  1  * 

.*2333*0*01  .1379*93*02  .6076317-00  .2739032*01  .  I  790800  •  02-.  7|,1  03  12-00  1  3 

.11*2933*01  .iU2O667*o2-.2320oo3*Ol-. 7396010-UO  .22*3339*02-. 32261 17*01  1  6 

-.2371973*01  .**713*3*02-. 3320973*01-. 3*33227*01  .2708111*02  .*05*631-00  1  7 

.1300000*02  .92*8*31*01  .IUO31O0*U2  .1*936*2*01  .909121**01  .1039**0*02  1  8 

.363*303*01  .6016710*91  .100 3ul b * 02  .30792*2*01  .8297*39*01  .9*82962*01  1  9 

.79777*8*01  .7* 10  33* *01  .0b39uol*Ol  .1003126*02  .o28*37**0l  .7ol0722*01  1  Ip 

.  1 1 9b i  39*02  .*.)82*7u*0l  .6060372*01  .1309072*02  .311**31*01  .*295802*01  1  U 

.13777b**02  .1109069*01  .2372769*01  , l 766300*02-. 8320*83-00  .3**9206-00  1  12 

.197*1 73*0*-. 2290292*01-. 1396102*01  .2196033*02-. 2926097*01-. 2*92993*01  1  13 

.2**6123*02-. 3031*07*01-. 296*001*01  .2690336*02  .6109302-00  .1300000*02  1  1* 

•  1 O0l6O3*u2  • 4 12 7061 *02  .2123071*01  .10*331  1*02  .1092698*02  .*136320*01  1  15 

.969*302*01  .10*6*00*02  .62330*3*01  .899*3*7*01  .9760301*01  .8209307*01  1  lb 

•  7 62bl 20*01  .6397733*01  .1UU1902*O2  .6*60033*01  .7093*03*01  .1172712*02  1  17 

.*893732*01  .3561121*01  .1330190*02  .3302292*01  .*178371*01  .15*6*67*02  1  le 

.1309122*01  .237*939*01  .1733303*02-. *363967-00  .61610*1-00  .1966780*02  1  19 

-. 1990826*01*. I2**5l**0l  .2186363* 02-. 266**67*0 l- .2**7260*01  .2*19263*02  1  2o 

-.2761897*01*. 2723*29*01  .2666*69*02  .1223776*01  .1300000*02  .1118321*62  1  2l 
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. 119uu32*u2  .2399920*01  .  1u/<<ju3«Q2 
.iu3»m*u*  .0123997*01  .92300*3*01 

.07391 71»ul  .979a93  l*ul  .6339<13S«01 
.3700936*01  .133b9bl*J2  .3139'j9b*01 
•223o/33*01  . 1722o0o*02-.39Ub-«3  7-00 
lotted 76*0 1  .2132300*02-. 2330909 <01* 
-.2331 J9l*ui  .2o23033*o2  .Iou9t3e*01 
.2203029*01  .1063990*02  . Ioo3o39«02 
.3909600*01  .9197712*01  .9796110*01 
.9323036*01  .0301970*01  ,0997127*01 
.  130  7561*0..  .2700311*01  .3327033*01 

•  16o3e9i*02*. 070933 7-uu*. 97*7539-01 
.2113030*02-. 23797fl9*Ul-.2297jol*01 
•2363979*02  .1993910*01  .1300000*02 
.1063999*02  .1002339*02  .  3003391 *0 1 
.6903103*01  .932 j3o2*01  .7509799*01 
.5013916*01  .6907333*01  .1093*93*02 
.2929990*01  .3169031*01  .1*36/07*02 

*•1113101*01*. 1939030*00  . 10b 12 73*02- 
-.2 160990*01*. 2 120039*01  .2313  j97*02- 
.2302303*01  .1300000*02  .1073031*02 
.1063211*02  .3b 19119*01  .9007^39*01 
.9100009*01  .7101000*01  .0913279*01 
.0100101*01  .1000*33*02  .3701093*01 
.2921227*01  .1923008*02  .2020770*00 
*.33397o7*G0  .1u2 0176*02*. 1933296*01* 
-.2079921*01  .22723lo*02-.2l06O3b*01 
.1300000*02  .1092093*02  .1007239*02 
.3279107*01  .9339330*01  .9000009*01 
.6792003*01  .0707990*01  .7303977*01 
.1023739*02  .3222937*01  .9069o30*01 
.  1301909*02*. 2390203*00  .9096120-00 
, 1779399*02*. 1912 190*01*. 103 79 12 *01 

•  2229 103*02  — • 1901010*01*. 1903300*01 
.1010907*02  .1039920*02  .1103109*01 

•  9102201 *01  .9960390*01  .9667003*01 
.0000999*01  .0031101*01  .0110133*01 
.2713109*01  .3390092*01  .U3l9a9«02 

-.712773B-O0-.2096992-01  . 132339**02- 
*• 163b 101 *01* .1700 07 7*ol  .1999323*02* 
-.109 71 10*01*. 1020339*01  .2916029*02 
.l02l9O7*02  . 7o9270U-00  .9302323*01 
.6019993*01  .9291300*01  .7022211*01 
.3996292*01  « 7o233l6*01  .37h<j71*01 
.29237/0*01  .1102161*02  .3927310-00 
-.2916393*00  .1979370*02*. Iol9177«01- 
-.1717099*01  .1096909*02*. 1701 029*0 1- 
-.1723130*01  .2303313*02  .3912023*01 
.3301239*00  .0300707*01  .0099033*01 
.3703379*31  .0631631*01  .0907969*01 
.7132130*01  .3310930*01  .3629901*01 
.1030395*02-. 5932760-01  .7037701-00 
. 1933106*02*. 1616993*01*. 1961123*01 
.1696199*02*. 1717059* 01*. 1696063*01 
.2310370*02  .9296993*01  .1300000*02 


.1092963*02  .9263121*01  .1010077*02 
.9729367*01  .7930303*01  .0031912*01 
.7330132*01  .1133372*02  .9003600*01 
.9016379*01  .1323932*02  .1316202*01 
.3329053-00  .1935303*02*. 1977303*01 
.2930729*01  .2379069*02*. 2576190*01 
.1300000*02  .1116013*02  .1133201*02 
.9033962*01  .1003116*02  .1091223*02 
.7799099*01  .7929929*01  .0309013*01 
.1127277*02  .9393323*01  .5290036*01 
.1990213*02  .9193009-00  .1772936*01 
.1093192*02-. 20 32930*01-. 1673070*01 
.2  399 120*02-. 2960002*01-. 2 37 7201 *01 
.1103069*02  .1126931*02  .*120369*01 
.1007326*02  .1036233*02  .5703913*01 
.7391939*01  .6036019*01  .9239012*01 
.9162010*01  .9069979*01  .1273307*02 
.3691139-00  .1690909*01  •  1  .>30  7 33*02 
.1909666*01*. 1677003*01  .2002300*02 
•22 06 191*01*, 210 739 9*01  .2333217*02 
•1119250*62  .1067030*01  .1092963*02 
.1013937*02  .3912373*01  .6>i33161*01 
.7723060*01  .097)0000*01  .3337100*01 
.9572299*01  .1237993*02  .2067962*01 
.1202723*01  . 1619020*02*. 1202909*01 
.1736103*01  .2093091 *02*. 2 11 19 11 *01 
.2009102*01  .2312017*02  .2700030*01 
.1333933*01  .1012262*02  .10*3913*02 
.3030393*01  .0132279*01  .0799699*01 
.0329913*01  .3027033*01  .3709738*01 
.1199902*02  .1929090*01  .2276927*01 
.13^2003*02*, 19771 09 *01*. 1079330*01 
.1996077*62*.  1991660*01*.  1973102*01 
.2963996*02  .3113313*01  .1300000*02 
.9960779*01  .1023796*02  .2911229*01 
.7030963*01  .0916999*01  .6917936*01 
.9399290*01  .5099372*01  .9779069*01 
.0393056-00  .1627309*01  .1332303*02 
.15 <9279*01*. 131 0207*01  .1731996*02 
.1009339*01*. 1090739*01  .2177201*02 
.33203oU«Ul  .1360000*02  .97,73393*01 
.9722311*01  .2512913*01  .6937966*01 
.7319131*01  .3932970*01  .5912162*01 
.99/1632*01  .9263219*01  .2033790*01 
.1901136*01  .1263362*02*. 962 1902-00 
.1307139*01  .1461 771 *02*. 1 760351 *01 
.1739670*01  .2126769*02*. 1791500*01 
.1306000*02  .0701669*01  .93<*0137*0l 
.2000193*01  .7016152*01  .6035299*01 
.3971911*01  .3003031*01  .5399666*01 
.6777339*01  .1362761*01  .2206991*01 
.1232190*02*. 1169150*01 -.6 791592-00 
.  1631293*02*. 1702270*01*. 1647097*01 
.2073995*02*. 1719959*01*. 1696537*01 
.0379509*01  .91 19536*01*. 3670793-01 
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.7755333*01  .B*0J5.>5*U1  .16OVu77.01  .  7JU57ol*01  .  7575  Jbu  •  0 1  .3367931*01  1  77 

.0015773*01  . uJU7<»7*ul  .507Jo7l*ui  .7335021*01  ,78J7b7O*01  *6  711766*01  1  7e 

•  265  7  7o6*ul  .  JJ67J7  7*01  .dJ7l37J*C'l  .  9922727-00  .1663723*01  .1010828*02  1  79 

-.7702<21-00  •  3560978-00  .U91n57*02-.l  33 <6*2*C1-, 9387297-00  .1360576*02  1  80 

•  •  16  3  /<  9o*ol- . IbbHo  7o*Ol  .1565756*02-. 1692503*01-. 1670268*01  .1800238*02  1  8l 

lo9/uJJ*ul-.l679uJ9*01  .2025106*02-.  18*720  77*01-, 1673661*01  .2262171*0?  1  82 

•  **60bl70*Ul  .1300000*02  .8132267*01  .6779761*01-. 7772926-00  .76595o0*0l  1  63 

811*7', d*ul  .1227293*01  .o72tJo8*01  .7o7992h*01  . 2927772*01  .5253571*01  l  67 

.5/153/7*01  .7oluJ74*0l  . 35/9jo2*0l  .72501  72*01  .<>277890*01  .1976087*01  1  85 

.277bUaH«Ul  .7(22u6U*01  .30074/6-00  .1221970*01  .96J2J77»0  1-.9J550  72-00  1  8«> 

-.2710186-00  .  11717 J7*u2-. 17962 76*01-. 12 /7799*01  .  1  329534*02- ,  1(^27226*0  1  1  87 

-.1603379*01  . 15J7737«o2-. lb/0396* 01-. 1657710*01  . 1777227*02-. 1670610*01  1  86 

-. 1652653*01  .19/7367*02-. 1656519*01-. 1670161*01  .2212067*02  .50106.15*01  1  89 

. 1300000*02  .779dJ97*01  .6763704*01-. 9729886-00  .7171126*01  .769bb07*0l  1  9q 

.7J37o5l-0J  .600b277*01  .o7II0J56*01  .2731737*01  .7758303*01  . 7  >51 0 65*0 1  1  9j 

. 707<2<J6<0 1  .26.300 Jo *01  .J700267«0l  .5725316*01  .12J7JJO*01  .l77971b*0l  1  92 

.7J77iJ'«ul-.19odoJ7-00  .9720Jo8-00  .70b7Jo9*Ol-. 1119787*01-. 79b7196-Oo  1  9j 

.108J77J«0<-.lbo7b71«01-. 1727*06*01  . 12 72 J76*02- . 161 8670*0 1-. Is9197o*0 1  1  9* 

. 1777620*02-. 16JJ72U«U1-. 1616171 *01  . 16727 J9*02-. 16 Ji97 1 » 0 1 -. lb  1 7660 *0 1  1  9j 

.171 7lJb«U2-. lbJ6<b7*ol-. lbl 7708*01  .21bj781*02  .5716100*01  .1J00000*02  1  9h 

.7167671*01  .  7u6«:  b<)*ol-.  17  76767*01  .6J78078*01  .6777655*01  .  210  J261-00  1  97 

.  528  Ju78*0 1  .5j274U->*01  .1081707*01  .Jfl72a0J*01  .711  7J1  J*01  .3522936*01  1  9 1\ 

•21769b7*ol  -2ub2b77'01  .blb<276*01  .6536860-00  .1271177*01  .677e89b*0l  1  99 

-. 6172706-00-. 7717obJ-01  . 6766670*01-. Ulb995*0l-. 1081797*01  .1026676*02  1  100 

-.lb60J05*01-.lbl2211*0l  . 1217077*02-. 1620557*01-. 160 J690*0 1  .l7lUlJ**02  1  101 

-.lbJJ227«6l-.lblb21b«01  .16J2 176* U2-. 16357 7b*0t-» lb! 7575*01  .1856360*02  1  102 

-. lbJ7o77*01-.l61b2bb*01  . 207<j27*o2  .5628976*01  .1300000*02  .6785971*01  1  10J 

. 71b7au6«ol-. 2020273*01  .5773816*01  .6065bb2«01-. 3510307-00  .4s72Jb7*01  1  107 

.9862316*01  .1305035*01  .3016316*01  .3770933*01  .2993280*01  .1910716*01  1  lO'j 

.1703270*01  .7 50 7o3o *01-. 1747399-01  .7939111-00  .6 1 6?b 1 6*0 1 - . 1023b 1 8* 0 1  1  10b 

-.7657536-00  . 7677b7/*01-. 1755 jO3«01-. 1907972*01  . 9650793*0 1- . 1 5928 1 1 *0 1  1  107 

-.1577707*01  .  1152703*02  - .1623036*01-.  1605281  *01  . 1 356921  ♦  02-.  1,,259 1 8*0 1  1  10? 

-.1607107*01  . 1571231*02*. Iu255b0«0l-. 1607206*01  . 1  7957  6 1  *02- .  1„2  5606  *0 1  l  loo 

-.1607213*01  .2031606*02  .u217uOb«01  .1300000*02  .5676117*01  .6509206*01  1  Up 

-.2576172*01  .5007352*01  . 57 7337 1 *0 1 - . 867 7567-00  .3710236*01  .9079815*01  1  111 

.7573377-00  .217b000*01  .<527256*01  .2362029*01  .6183277-00  .1022890*01  1  11? 

. 3776067*01-. 5967796-00-. 2623207-00  . 560851 7* 0 1- . 129896 3*0 1 - . 1 1 9 1 1 31 *0 1  1  llj 

.7J067JJ*ol-.1577954*oi-.15052uJ«01  .7061977*01-. 1609616*01-. 1591073*01  1  1 1 9 

.  1095700*02-.  1622637*01*.  160525^*01  .  1 2779  J7  *02-.  1625230*0  1- .  160678 1  ♦  0 1  1  H5 

.1513772*02-. 1625797*01-. Iu071o7*01  . 1 737637*02-. 1625786*01- . Ib071 79*0 1  1  ll6 

.1773760*02  .6551060*01  .1300000*02  .7885611*01  .5906672*0 1-. 301 09 1 7*01  1  II7 

.7065351*01  .7u670Jb*01-. 1366047*01  .2739178*01  .3182783*01  .2, ,33801-00  1  lie 

.1271257*01  .1732779*01  .1683527*01*.! 362693-00  .3733638-00  .3798609*01  1  119 

-. 1097353*01-. 7bllb72-U0  .51 10797 *01*. 1955379*01- . 1 367366*01  .6805989*01  1  120 

-.158  7325*01-. 1568787*01  .6577576*01-.  1618862*01-.  1601375*01  .1097993*02  1  121 

-.1627058*01-. 1606217*01  . 12787o5*o2-. 1629070*01-. 1606808*01  .1762972*02  1  122 

-.  16273u3*01-.lbOb710*l,l  .1687168*02-. 1629369*01-. 1606717*01  .1923989*02  1  123 

.6707755*01  .1300000*02  .3776300*01  .50 71525*01- . 3529998*0 1  .3161279*01  1  129 

. J760517*0l-.lh90996*01  .1830022*01  .2375006*01-. 2632007-00  .9037975-00  1  125 

.9300361-00  .1355011*01-. 7256767-00-. 3921971-00  .2966785*01-. 1393791*01  1  12b 

-.1232215*01  . 9576773*01-. 1566e76*01-. 1539618*01  .62706 33*01-. l6l335J*0l  1  127 

-.1573632*01  .6092611*01-. 1620ol2*01-. 1603615*01  .99199 17*01- . 1621 723*0 |  1  126 

-. 1605110*01  .1195967*02-. 1620723*01*. 1609559*01  . 1909970*02-.  1620736*01  1  129 

-.1609580*01  • 1633666*02-. 16207 36*01- . 1609502*01  .1069907*02  .7313220*01  1  13o 

.1300000*02  .2726625*01  .9236279*01-. 9119327*01  .1016900*01  .2063696*01  1  13| 
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-.29» 7539*0 l  .9910/08-0;)  .  18oo«.oo*01-.6hbS109-O0-.  7 1P9836-00-. 3023*69-01 
•7982619-00-.  1 J8  JO/9«ol-.  1 ObJo9B«ol  <2  356928*01-.  1559723*01-. 1  *77731  *01 
.  39b*ol7*01-.lo0593b*Ul-.  15  78835*01  .5002999*01-.  161 5227*0  I 1*97603*0  1 
,7434tlo*01-.  161oo6o*Q1-.  loOl  016*01  .9  3Ob220*01-.  161  7008*01“. 1  (,01329*01 
. 113*049 *02-. lol  736o*ol-.  1601740*01  . 1  346b51*02-.  lb  17369*01-.  lbO 17*7*0  1 
. 15  7/64 7*02-. Ibl7370*01-.lb01 7*6*01  .1809160*02  .7716606*01  .1300000*02 
.1091881*01  .333937o*01-.9711/35*01  .3809798-01  . 1920821 *0 1-. 3009102*01 
-.9301896-00  .9129816-00-. 18 71830*0 1-. 1 392986*0 1-. 8076393-00  .1903863-00 
—  .1881 382*01-. 13932  78*0 1  . 1780790*0 1-. 1609712*01*. 1861798*01  .3360932*01 
-.161 7691*01-. 1597190*01  .8089283*01-. 1620062*01-. 1603870*01  .6626219*01 
-.1620982*01-.  Ib09boil*01  .6690022*01-.  162 1991  *01-.  1606663*01  .1073629*02 
-.1621999*01-. 1606709*01  . 1207831*02-. 1621999*01-. 1606707*01  . lj 12027*02 
“* 1622000*01-. 1006707*01  .17*6396*02  .0000000  .0000000  .0000000 

3 

Ol*Nt  6MUUT  1A/1I.T  L«S/HM  7/27/66 
0.100oO0«Ol  0.981000*03 
1119.  .11000006*02 


0.391202*01  O •  130  000*02  O.622.'l39«0  1 
0.681686*01  0.228193*01  0.b99'.91*01 
0.633631*01  0.886693*01  U. 906689*01 
0.3731*0*01  0.692230*01  0.679871*00 
0.699719*00  0.128007*02-0.122821*01 
-0. 1381 j2*01  0.168891 *02-0.1 89 7o3* 01 
-0.156097*01  0.206969*02-0. 160886*01' 
0 . 130000*02  0.017270*01  0.910988*01 
0.161933*01  ...009167*01  0.738782*01 
0.819899*01  0.381978*01  0.962921*01 
0.059u92*0l  0.959299*00  0.1U6079«01 
0.120992*02-0. 1368 76*0 1-0. 96399b*00 
0.159629*02-0. 156673*01-0.157272*01 
0.203965*02— 0. 16919o*01— 0. 156370*01 
0 .62 1229*0 1  0.90b 52 0*0 1-0. 32 0665*00 
0.636367*01  0.719930*01  O.3089o6«01 
0.309269*01  0 • 9 1 660b*0 1  0.692139*01 
-0.976165-01  0.102139*01  0.978/bO*01 
-0. 139o 36*0 1-0 .1303 79*01  0. 133911*02' 
-0.15661 9*01-0. 157159*01  0.175762*02' 
-0. 15839/*oi-0. 15o55'7*01  0.221953*02 
0.663936*0 1-0.615967*00  0.695516*01 
0.626252*01  0.256960*01  0.915296*01 
0.320125*01  0.863097*01  0.956173*00 
0.13  7029*00  0.91933o*01-0.  119255*01- 
•0.193337*01  0. 127991*02-0. 15bo55*01- 
-0.156135*01  0.1O9b37*o/-0. 1561 77*01- 
-0 .156376*01  0.215690*02  0.591610*01 
•0.133695*01  0.574930*01  0.b51312*01 
0.196951*01  0.329o50*01  0.373397*01 
0.523609*01  0.291769*00  0.603759*00 
0.655011*01-0.139702*01-0.126330*01 
0.121953*02-0. 157363*01*0 .155792*01 
0.163 756*02-0. 1561 96*01-0. 156 363*01 
0.209616*02  0.562695*01  0.130000*02 
0.695799*01  0.567920*01-0.299075*00 
0.220023*01  0.265307*01  0.301266*01 
-0.559999*00-0.916363-01  0.623611*01* 


0.936122*01  0.860303*00  0.775622*01 
0.756190*01  0.393200*01  0.570923*01 
0.502935*01  0.729619*01  0.293655*01 
0.231615*01  0.106719*02-0.913083*00 
0.936179*00  0.199062*02-0.152967*01 
0.155979*01  0. 166025*02-0. I6u5bl*0l 
0.156759*01  0.232127*02  0.929850*01 
0.135226*00  0.763650*01  0.635636*01 
0.350207*01  0.51b967*01  0.616296*01 
0.667517*01  0.197751*01  0.389999*01 
0.102631«02-0.79903«*00  0.266916*00 
0.1 39197*02-0. 158395*0 1-0. 188803*01 
0. 181052*02-0. 160009*01-0.158290*01 
0.227121*02  0.960517*01  0.130000*02 
0.757157*01  0.638595*01  0.137635*01 
0.871087*01  0.571676*01  0.877830*01 
0.192066*01  0.263656*01  0.6093b5»0l 
■0.98857 1*00-0. 98 3893*00  0.115175*02 
'0.135067*01-0. 153955*01  0.158332*02 
0. 158903*01-0. 157062*01  0.1962b2*02 
0.5010b9«01  0.130000*02  0.766303*01 
0.762169*01  0.862302*00  0.571666*01 
0.9  798b 7* 0 1  0.921063*01  0.252037*0; 
0.102880*01  0.788513*01 -0.353912*00 
■0.938628*00  0 . 109213*02-0. 187985*01 
•0. 1 399b6*U 1  0.186829*02-0.137991*01 
-0. 156353*01  0 . 192256*02-0. 1562 13*0 1 
0.130000*02  0.663966*01  0.763727*01 
0.339396*00  0.966137*01  0.520979*01 
0.361719*01  0.171056*01  0.222976*01 
0.685238*0 1-0. 677972*00-0. 896667*00 
0.103233*02-0. 153697*01-0. 151539*01 
0.192335*02-0.156103*01-0.156303*01 
0.160177*02-0.156156*01-0.156316*01 
0.360362*01  0.669956*01-0.169697*01 
0.375927*01  0.933199*01  0.136605*01 
0.656770*00  0.132597*01  0.962726*01 
0.122027*01-0.106322*01  0.7*3225*01 


1  133 
1  139 
1  13' 
1  13, 

1  137 
1  136 
1  139 
1  190 
1  191 
1  19J 
1  193 
1  194 


1 

2 

3 

9 

5 

6 
7 
6 
9 

in 

n 

12 

13 

u 

15 

lb 

17 

ie 

19 

20 
21 
22 
23 

29 

25 

26 
27 
26 
2o 

30 

31 

32 

33 
39 

35 

36 

37 
36 
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-0.  1466(.4*tl-0.  I4o*4n*01  0.9/04<»l*ui-U.13b4'i4*01-0.134b?U*01  0.1137b6*02  2  3b 

-0.13/7.'3*u1-u.13340<*01  u.l3blo4»02-0.137('23*0l-U.13S977*01  0.l37>>9«*02  2  *to 

-0.  13777.i*ul-0. 133431*01  u.l 80 027*02-0.137 7b 1*01-0.155922*01  0.203b61*02  2  »j 

0.621«ol*01  0.13JU00*oi  U  .4  749»7*o  1  0.616366*01-0.243330*01  0.349704*01  2  «2 

0.484O42> Ol-O.oo3423*0o  0.271130*01  0.3*6639*01  0.019904*00  0.121437*01  2  4J 

O.190ool*0l  0.243b37*Jl-u. 140044*00  0.434701*00  0.403020*01-0.101139*01  2  4i* 

•0.66/022*03  3.366092*01-0. 142123*01-0. 130427*01  0 . 73561 3*0 1-0 . Ib429b*0 1  2  «s 

•0.  1303bl*ul  0.912443*01-0. 136/04*01-3.134992*01  0 . 1 1 0020 *02-0 .  i57b32*0]  2  4f, 

•0.133bl)*0i  0.13j4<3*o2-u.  1377:>3*01-0.  133912*u1  0. 131624*02-0. l37767*0i  2  4? 

•0<  133421*U1  0.174244*02*0  •  lb7  7b8*01-0  •  133922*0 1  0.19787b*02  0.633108*01  2  4R 

0.1300311*3.:  0.37  7*00*01  U .  312106*01-0. 242b22*01  0.286313*01  0.381031*01  2  <*9 

-0. 1302o2  vul  U.  Ib0bbu*ui  o.232oe3*01  0.316607*00  0.132242*00  0.  104498 *0o  2  bo 

0  •  193b8b*H-o.  b24oUo*Uo-0 .2'>42h1  *00  0 . 3b401 1*01-0 . 132061  *0  1-0 . 1 1  0007*01  2  bl 

0  .31390  /*u  V-U • 1  bU4  7u*0 1  *0.  1*33h4*o1  0.603349*01-0. 1562b2«01-0. 134, !93*0]  2  b2 

0 .8623eu*ul  ’0 .15 7o 70*01*0.1 33 740*01  0 . 104974*02-0 . 157844*0 1-0. 13ay30*0l  2  b3 

O.1233/7*U2-l.l37063*ol-t.l33/34*Ol  0. 146777*02*0 .  Ib766b*0 1-0 .>  539:b*0  1  2  b4 

0.164147*O2-U.137oG5*Ul-0. 133457*01  0.192629*02  0.6*»0776*01  0.130000*02  2  5b 

0.303409*01  0.44Jb64*ol-0.34bl 70*01  0.2l66b3*01  0.307774*01-0.183262*01  2  5% 

0.64 7ob6*UO  0.,b7o/4*01-0. 213307*00-0.336446*00  0.329761*00  0.140344*01  2  b7 

-0.109377*01-0. "83700*00  0. 301400*01-0. 144706*01-0 . 13615»*0 1  3.462473*01  2  bs 

-O.lbb021*ol-O. Ib2b32*ul  o.o31oo3*01-0.1b7401*01-0 . lbbb64*ol  0.809062*01  2  59 

-0. 130230*01-5. 13b00o*ol  0.99b242*01-0. Ib6304*01-0. 156161*01  0.120026*02  2  60 

-0.  lbb20O*u’.-O  .lbolb/*01  0.141427*02-0. 158280*01*0 . 156158*01  0.163647*02  2  61 

-0.1b6204«jl-0.1bolb«*01  0.18/479*02  0.731322*01  0.130000*02  0.192241*01  2  62 

0.3o36/3*01-U.40j322*01  0.111/u3*01  0.22 7416*01-0. 243b4b*01-0.4lbb08-0i  2  63 

0.6640/1*04-0.813032*00-0. 101438*01-0.422772*00  0 . 74615 1 *00-0 . 14bo 10*0 1  2  b4 

•0.127/38*01  0.240b6b*Ul-0. Ibb3ul*01-0.1449u6*91  0.401658*01-0. Ib6b98*0l  2  6b 

-0.1*  3328*01  0.571U4b*01-0. 134253*01-0. 136670*01  0 . 746242*0 1-0. Ib9344*0i  2  66 

-0. 1566ol*0l  0.935423*01-0.154337*01-0.156890*01  0 . 1 1 39u4*02-0 . l39358*0i  2  67 

-0.130643*01  0. 133343*02-0. 13433/>*01-0. 156044*01  0.137763*02-0.159358*01  2  66 

•0.13oo44*u1  0.181397*02  o.7/10b4*Ol  0.130000*02  0.467017*00  0.260601*01  2  69 

-0.4b3oo4*0l-0. 426232*00  0 . 1 34204*01-0 . 303429* 0 1*0 . 1 1 30 1 2 *0 1-0 . 2581  lb-01  2  7o 

—  0.142301*01*0.1 46748*0 1  —0 . 103<ljb*01  0 . 188123*00-0 . 137334* 0  1-0 . 1 461  34*0 1  2  7l 

0.l74ob9«ol-0. 159460*01-0. 133740*01  0. 340039*0 1*0. 160644*0 1-0. 157623*01  2  7; 

0.310223*01-0.160773*01-0.138211*01  0.687422*01-0. 160797*0 1-0. 158278*01  2  73 

0. 6/4003*01-0. Ib0800*ol-0. 136204*01  0.107862*02*0.160601*01-0.158290*01  2  74 

0.124263*02-0. 160001*01-0. 138240*01  0.131663*02-0.160601*01-0.156290*01  2  7b 

0,173313*02  0.  0.  0.  0.  0.  2  7fe 

4/ 


DIAI*t/3lAT  M— 2 1 A  Tt»P< 1 .-34. )  J-PUT  TAPt  1303  8-9-67  Cl/BCF 
.2100000*02  • 3330000*03 

1001.  .1300000*02  1  o 
.OOOUOOO  .1300000*02  . 64  31 ubb*0 1  . 1 302 323*02- . 1 436320 *0  1  .6404326*01  1  1 
.1236/01*02  •  771004  /-ou  •  6408'*  74*0 1  .1233131*02  .3410457*01  .63903?'»*Ol  1  2 
.1160396*02  .6302030*01  .o3337ul*01  .1031355*02  .9337064*01  .6233361*31  1  3 
.9182164*01  .1243223*02  .5926336*01  .63310/1*01  .13blb93»02  .3092761*01  1  4 
.7430064*01  .1031840*02  .3316609*01  .5970296*01  .2085706*02  .1565716*01  1  5 
.3431442*01  .2294712*02  .1326133-02  .1873272*01  .23131 18*02-. 7265936-00  1  6 
.3246093-01  .27 39463*02-, 403 l 160-00-. 7606b44-OO  .2975822*02  .2231436-00  1  7 
.1300000*02  .U4b70 74*01  .1407222*02  .6675366-00  .6411363*01  .1370490*02  1  8 
.3002943*01  .8404177*01  .1344814*02  .5700993*01  .8371613*01  .1258223*02  1  9 
. 6bu9042*01  .8230326*01  .1143443*02  .1137608*02  .7730864*01  .1035167*02  1  10 
.1433346*02  .6449973*01  .8976269*01  ,1673046*02  .4696694*01  .7307862*01  1  1J 
.1671330*02  ,2706937*ul  .3384758*01  .20b2999*02  .8366493-00  .3339622*01  1  lj 
.2267723*02- .3364432-00  .1231494*01  .2481823*02- . 6 145703-00- . 3242636-00  1  13 


439 


AFWL-TR-67-1  31  ,  Vol  IV 


.*706030*0* 

.9969973*01 

.98*9591*01 

.9128796*01 

.60/4056*01 
.2079972*01 
*.51 738.8-00 
-.690*159-00' 
« 1999600*02 
. 1990290*02 
. Uaob39*u* 
.8  1  2  9  0  72*ol 
.9391350*01 
.3811136-00 
••89750H1-00 
.35 32000*01 
•  6599098*01 
•120600b*02 
.1020393*02 
.1993291*02 
.2911339*0*- 
•2871851*0* 

. 1290096*02 
•1092790*02 
•72853*9«ul 
.321169/401 
.9955309-01 
• • 69  5U0o3-0  0 
.1223/75*01 
.1916093*02 
.1159369*02 
.7709257*01 
.9179  770*01 
.9672/90*00 
•’.696/050*00 
•1300000*02 
.6539055*01 
•9977^05*01 
.1321999*02 
.16600/8*02 
.2059009*02* 
.2990007*02 
.1070320*02 
.6330113*01 
.5336950*01 
•20725o7*01 
-.5199508-00 
-.9269150-00- 
••9356056*00 
.1239959*02 
.9675961*01 
.6995391*01 
•3119066*01 
*.1779057*00 
*.9311889*00 


:-.909l92o-0U 
•1966569*02 
.1920250*02 
•1212075*02 
•6598009*01 
•9oll939«Ul 
• 61229b2* JO 
*•8732009*00 
.2921919*01 
•6028799*01 

•  l2l'917/*02 
•1697569*02 
.2013296*02 
.2931369*02- 
•2691661*02 

•  11896uo*02 
• 107o59D*02 
. 7925969*01 
.3350509*01 
.6093553-01 

-.6191273-00 
•6109302-uO 
.1966196*112 
. 1299953*02 
.9163709«ul 
.5967929*01 
. 1600962*01 
‘.6190259-00 
. 1300000*02 
«6o2920U*01 
.1052793*02 
.1379713*02 
.1726523*02 
<2117733*02- 
.2555936*02* 
.1213672*02 
.9956322*01 
•6903167*01 
•3651700*01 
•2252389-00 
.9012138-00- 
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.2086777*02-, 1587016*01-. 1668762*01  1  75 

.8202991*01  .9152391*01  .1494544-00  1  76 

.5786823*01  ,7136344*01  .3502714*01  1  77 

.2843472*01  .4719791*01  .6888333*01  1  7e 

.1532978-00  .1458003*01  .1025913*02  1  79 

1347735*01-. 8b72393-00  .1393921*02  1  80 

15/1356*01-. 1553913*01  .1812156*02  1  81 

1587490*01-. 1569133*01  .2272676*02  1  82 

9033696*01-. 3190003-00  .7245427*01  1  83 

7042311*01  .3079070*01  .9271624*01  1  84 

4284111*01  ,6424558*01  .1213404*01  1  85 
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.2758472*01  .du5bo74*ul-.n)fcll0»00  •  1119762*01  . 9760448*01-. 9908076-00  1  *6 

-.3o8760o-uu  .  1163413*02-.  1301371 *01-.  12t6404<01  .1  340b24»02-. 1636967.01  1  67 

-.1826606*01  .1644o81*u2-. 1803362*01-. 18o8097.ll  .  1 7*>8t>Stt»P2-.  l'.Beihh’Ol  1  68 

-.18o9*40»ul  .19e2o84»02-.1688897«01-.18o9588*0l  .2219178*02  .5010038*01  1  69 

,13o0000*u.!  .7913150*01  .6705396*01-. 6235767-00  .70b546«»01  .7720151*01  1  9o 

.8600026-00  .5750968*01  .o4U83b9.01  .2874*78*01  .4lllllb*01  .4685051*01  1  9i 

.4224895*01  *2447223*01  .3247-/96*01  .ba47116*01  ,9167996-00  *lh4Sba0»0l  1  9? 

.7459717*ul-.345’967-U0  .10393i>4.00  . 9 1 64 101*0 1-.  1 163162*0 1-.  10» 7684 *01  1  9J 

.1092o27*u*-.1620427*0l-.14'i25'*2»01  . 1279609*02-.  15652*7*01-.  1663120*01  1  9„ 

.1403632*02-. 1692202*01*. 1S7j911*01  . 1697638*02-. 1693029*0 1-. 16*1682*01  l  9s 
•1922036*02-.169J116*01-.16719/9*01  .2166366*02  .6416100*01  .1300000*02  1  9h 

.8679810*01  .  7969586*01-. 13J77u3*01  .672o961*01  .<,762006*01  .34?9772-0C  1  97 

.4406806*01  •  6266o62*ol  .2003092*01  .2924667*01  .3636909*01  .3(l28497«0l  1 

.1342027*01  • 203072 1 *01  .6241au9«01-. 1216230*00  .6019209-00  .6662131*01  1  90 

-. 1144U80*01-. 0364080-00  .0648096*01-. 1621603*01-. 1444731*01  .1031899*02  1  100 

-. 1692132*01-. 1661604*0;  . 1218 790*02-. 1001 6 72*01-. 167762 7*01  .1423012*02  1  101 

-. 1002003*01-. 1j794O2*01  .1037019*02-. 1002794*01-. 1679692*01  .ln61216*0?  1  102 

-. 1802600*01-. 1679717*01  .2097630*02  .6626940*01  .1300000*02  .4i|*6l23»01  1  103 

.6906670*01-. 1892444*0*  .3706j36*01  . 661 0146*01*. 2366504-00  .23’1829*01  1  104 

.4096704*01  .1392862*01  .89u6  i29-00  .2611106*01  . 30 U6v  1  ♦  f.  1  -. 4  34 1 6  1 0-0 0  1  106 

.9401067-00  . 4  o2  3004  *ol -.12  062  04  *01-  .4696463-00  .(,23296***  I*,l 7966*0 1  1  106 

-.  13264u3*ul  .  7920o4M*01-. 1699932*01-. 1663074*01  .,7Ol>8626*0 1-.  1(,140 31  *0 1  1  107 

-.1689100*01  .1167033"  <-.1o1O27o*01-. 1694643*01  . 1361046*02- . lo 1 6673 *0 1  1  106 

-.1696266*01  . 1076092*02-.  K,10u09*ol-. 1696340*01  .1  709266*0?-.  l„ll>Ol2*0l  1  109 

-.1696349*01  .2036009*02  .o214.,06*0l  .1300000*02  .32740(10*01  .6970016*01  1  Ho 

-,243o771*ul  •  2  0  7  o226*0 1  ,4u06  7ol  *0 1-.  6  0340  66-00  .1,386276-00  .3077*32*01  1  111 

•  ol o  7 1  a 3-00— .  6*702600-0 0  « 16U4u90«0 1  .  24  J3t>4 2*  0 1  - .  1 26461 4 ♦  0 1  - .  2',n2t,  1-02  1  112 

.4044o96«ul— .rj2Uo60«Ul-.lU969u6«Ul  . 66644 91 *0 1 -. 161 363 1 *0  1  -. 1 61 3262 • 0 1  1  113 

.734o3oO*ol-.lo249o2*Ul-.  16  77uOU*01  .9120333*01-.  1  (,2  H  799*01-.  li,10777*0l  1  II4 

.1U99214*U2-.1o2943u*J1-.1(-1.u31*01  .  1  3u  32  30  »  02- .  1024614  *0  1-.  1 1, 1  3 10  1  •  0 1  1  lib 

.161  7243*02-. 1029624*01-. 1013133*01  . 1  74 14 39*02- .  1629626* 0 1 -.  li,  1  3 1 37* C 1  1  llr, 

.  197  7  700*02  .OJ6106U*01  .1300000*02  .2011096*01  .6022 164*0 1 -. 2">22 1 2 0 ♦  0 1  1  117 

.  04  U10U4-UU  .3061437*<,l  — .1304740*01-. 6666340-UO  .2012167*01  .3130002-00  1  110 

- •  12  661  10* U  1  .  4 766uU  7-00  .  1929 1  <jb*0  1- .  1  62 39 64  *0 1- .  U 1 22377-00  .3640040*01  1  110 

-.1006489*01-. 1437164*01  . 6149793*01-. Io328l6*01-. 1696436*01  .6043063*01  1  12o 

-.Io307l9*ui-.lo2453'7«ol  .0616o26*0 1-. 10397 74*01-, 1629432*0 1  .1048743*02  1  121 

-. 1039949*01-. lo302lU*ol  . 126* 7o6*02«. 10399 72*01-. 1630313*01  .1466772*02  1  122 

-. 1039/76*01-. 1o30326*01  . lu9U 7o6*o2-. 16399 76*01-. 1630320*01  .1927209*02  1  123 

.0907766*01  .1300000*02  .6441600-00  . 36 19 1 02* 01 -. 396 1962* 0 1- .626684 0-00  1  124 

.  24  1 3ol4*ol-.lo37  712*ul -.12802  66*01  . 90191  36-00-.  2206643-00-.  1", 37(106*0 1  1  12^, 

-.4817990-00  . 1394207*01-. lu20J08*0l-. 1327420*01  .  3006067*0  1  '  .  164  76  77*0  1  1  12(, 

-.1642620*01  .4014 7o#*01-. 1063916*01-. 1606122*01  .0300642 *0 1 -. Ib66* 06* 0 1  1  127 

-. Iao9o43*01  «3060ol 3*ol*. 1 666606 *01-. Id70103*01  .9962416*01-.  Io66694*0l  1  126 

-.1670176*01  .1199204*02  .1666697*01-. Io7ol04*01  , 1413271 *02-.  1 666698* 01  1  129 

-.1670186*01  .  lo3 740 7*02*. 1666 j 98* 01 -.16 701 66* 01  .l«737«7*02  .7313220*01  1  130 

.1300000*0*-. 1100634*00  .2704906*01-. 4066903*01-. 1026066*01  .1261609*01  1  131 

-. 24  42 720*0 1-. 1446401 ♦ 01 -.  1 949776-00-. 82864 J1-O0-. 16941 17*01 -.12363 17*01  1  132 

.7601764-00-. 1639371*01-. 1698021*01  . 2396676*  0 1- . 1661 776*01-. 16594  72*0 1  1  133 

.4000694*01-.  1664030*01-.  16084  76*01  .6  700446*  01- .  1 66661 2*0 1- .  1669946*0 1  1  134 

.7472416*01-. 1666683*01-. 1670146*01  .9394220*0 1-. 1666694*01-. 1670160*0 1  1  135 

. 1130444*02-. Io6669o*01-. 1670164. oi  . 1 362461*02-. 1666696*01-. lb70 1 6**01  1  13„ 

.1670047*02-. 1666690*01-. 1670104*01  .1612966*02  .7716666*01  .1300000*02  1  137 

-.6409347-00  .1999673*01-. 4063447*01-. 1266272*01  .5037347-00-. 3046361*01  1  136 

-.1542159*01-. 6118765-00-. 1434o8l*0l-. 1623631*01-, 1467156*01  .1760276-00  1  139 

-.1647660*01-. 1042962*01  . 1760092*01-.  1663606*01*. 1665605*01  .3390390*01  1  14o 
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l 


-  .16553*2*01-.  1(>69521*U1  .5U922*b*01 
Ib555bb*ul-.lh7xlb«*0l  .873bu22*01 
-.165569X*ul-.l<>  78180*01  . 1291oJl«02 
-.165559**01-.lt  70180*01  •  1  7521*8*02 

lH 

DllllU^IT  LlM/»*hAHl-l<’«  JU  t-HtO. 
.1000000*02  .b970vOU*0j 
1108.  .1700000*02 

.3912o2J*Ul  .lJUOOO  *U2  .7b'0779*01 
.8589*81*01  .26b**9n*01  .6207976*01 
,6389X03*01  .58b39*A*Ul  .2l9bJu**01 
•2123576*01  .  9oB919t,*01*.  7029J5X-00 
-.912**61-00  .  126562n*02-.16M2576*01- 
*•  168971  3*01  ,lb*'j7Jl*O2-.lol9u15*01- 
•*  1601 X  U9*  0 1  .208*93**02-.  1 0200 7* *01- 
•  1  300000*02  .oJbU55b*ul  .0*66270*01 
,20980*6*  01  .Jb9t.ibJ.ul  .OU  73ubb*01 
.63b0o*  7*ol  .657b*91-00  .286«192*01 
.868*650*01-. 1  307692 *01 -.29Q622X-00 
.  1205057*02-.  1618539*01-.  1373^33*01 
.  1396261*02-.  lb3o 731 *01-. 10 lbl 69*01 
.20 JXXb 3*02-. lb3095rt*Ul-. l61OB29*0i 
.31 lox2 7*ul  .O000b2  '*U1-. *7 73333-01 
.2311931*01  .31* 7721*01  . 320*U99*01 
-.3009326-00  .1933639*01  .  bX  J9J  79*01* 
-.16292*3*01 -.937361 7-00  .97*35o**01- 
-.1630333*ol-.l6l*5B**01  . 1338737*02- 
16X0629*01-. lbJil 7J*U1  .1 7b67oO*02- 
-. 16*059 7*01-. Io32*39*0l  .2217203*02 
•b2XUl j7*ol -.6X3Xo Jx-uo  .1 7b9xuu*01 
.32xx6x3*ol  .2697323*01-.6207ol*-00 
. lb2vU7b-UU  • bo3U90X ♦ ui-.l  3  73391*01' 
-.Ib7u972*01  ,913337u*01-,lb31*97*01' 

- . IbbV 1 bU  *u 1  .127791  7*02* . 1 bbbo 3 3*0 1  ■ 

—  ,  1670bX2*  0 1  •  Ib9b9xu*02*.  lbbbt»9X  *01- 
- . lb  70bb 1 *U 1  .2l5u*63*02  .bXlbl00*01 
-.12Xb313*Ul  . 990U 396-00  . 39bb 983*01 

. 199«22b*01-.llbXb77*01  .6992906-00 
.b222bl2*Cil-.1612bbb*Ul-.13972bb*01 
•0b27l 7x«ul-. Ibb37bl *Ol-.lbbbObX*01 

•  121 7u9b*U2- . lobbbb  7*ul*.lb  7U 60b* 0 1 

•  lb3bl2b*U2-« lbbbb9b*  01*. Ib70bb0*01 
«2096bx3*u2  .bb269Xb*01  . 13u0000*02 
•27x6b02-00  . 32221* l*ol-.23*9 733-00- 

—  .130 2b 6X *01  . 121 lbbJ*  UO  • 2991 3X2*U1- 
-.163*230 *01-. 136*23 7*01  .621 373b* 01- 
*. 103*638*01-. 166U69 ’*01  ,9o79900*Ul- 

—  .  Ibbbb03*ul-.  Ib70o2(l*01  .1369193*U2- 
-. Ib33b  73*01-. lbTUbbl*  U1  . 1 79739b *02- 

<621*608*01  .1300000*02  .9bb2dxl-00 
.2Xbbb3b*01-.012bbX7-00-. Ilb3b33*01 
-,5316392-UU  «2xl291x*ol-.lbl2330*Ul- 
-,lb28bOX*01  .3633**8*  01- .1633X63*01- 
-.1889888*01  .9101*0b*01-. 1633632 *01- 
-.18706*8*01  . 130139**02-. 1655695*01- 


. lbbbbbb*01*. 167007**01  .686*218*01 
. Ibb6b93*01 - .1670178*01  . 107762* *02 
. lbbbb (X *01*.  1670180*01  . lb  16827 *02 
•0000070  .0000000  .0000000 

7  C  **P  1 50  •  -22600 . 1  Cl/.L  1/183C2B0 


.9793608*01  .9026BX0-00  .6606788*01 
.7010211*01  .*231161*01  .3769686*01 
.3731792*01  .7*76350*01  .6283979-00 

•  Xi)«19HO-00  .1078327*02-.  1362626*01 
.1X97«9X*01  .1**2709*02-. lbl 66 18*01 
.1600261*01  .1660  738*02-.  17,200  30*01 
.160163**01  .2321266*02  .*2X6X96*01 
.*663230-00  .613133**01  .7b6733**0i 
.3736603*01  .22l'2030*01  .**76133*01 
.09 739*6*01-. 610 7932-00  .126166* *01 
. 102 7867 *02-. 16666 12* 01-. 1311026*01 
.  1  3*2238*02-.  1629237.  01-.  1M  1368*0 1 

.  18 1 0267* U2-.  1631 *6*01-.  lb  16  7b7*0l 
. 2270769*02  .*606170*01  .1300000*02 
.3  766739*01  .obO.'XcX.Ol  .lb7x*lb*0l 
.8131**2-00  .3666921*01  .*u?6319*0l 
.1239697*01  .3893207-00  .80*9668*01 
. lbl 6626*01-. 1607061*01  . 1 16166b* 02 
.16*0026*01-. 1630162*01  .15*2769*02 
.  1 6*0590*01  -.  1632X13*01  . 19609b2*0i' 
•501uo35*01  .1300000*02  .3233510*01 
.*766396*01  ,9711713-00  .29**063-00 
.1692116*01  .*218*93*01-. 137603**01 
.1081996*01  , 7**1388*  1-. 1635117*01 
.165871 **01  .1090736*02-. 1656050*01 
• lb70*93*Ul  .1*819*0*02-. 16*5687.01 
.1670669*01  . 19201*2«02-.l6*5695«0l 
.1300000*02  .2*680*6*01  .5*9*681*01 
. 365230 3-00- . 3  36*51 3- 30  .2*66719*01 
.3610*9**0l-. 16031 38* 01 -.5360066-00 

•  6833200*  01 16*5667*01- . 1633261*01 
.1029917*02-, 1655*90 *01-. 1670066*01 
.1*21120*02-, 1666692*01*. Ih70b52*0l 
.  1869322*02-. 1655695*01-. I6706bl*0l 
•1 712567*01  ,*718*11*01-. 1A61091 *01 
.8398721-00  .1655*21*01  .13793*7*01 
.  15 752 30* 01-. 1077792* 01  .*603571*01 
.  165O9b6*01-,166b717«Ol  .790  7907*01 
.  1655603*01-, 1670*09* 01  .1156171*02 
.  lbbbb '7* *01-.  1670657* 01  .1573200*02 
.16566 96*01-, 1670661 *01  .2033717*02 
.3982097*01*. 2*37751*01-. 3331 506-00 
.9027928-00  .80 1068**00-. 1302*56*01 
.139*237*01  .*025093*01 -.169*633*01 
,  166*90**0 1  , 7  329* 1**01-, 1635*11 *0 1 

16703*5*01  . 1097321*02-. 1635690*01 
1670639*01  . 1513330*02-. Ib33693*0l 


1 

2 

3 

* 

5 

» 

7 

8 
9 

in 

11 

12 

13 

1* 
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lb 

17 

1 8 
19 
2n 
21 
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23 
2* 

25 

26 

27 

28 
29 
3n 
31 
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33 
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3b 

36 

37 
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-.lb'0oul*0l  .1739896*02-. Ibb5u95*01-.lb/0b61*01  .  19  78667*02  .bb510«0*01  1  96 

•1300u00*02  .3737182-00  .3333110.01-.2791bC2*01-.7b69327-oo  .1610776*01  I  9<j 

-. 13123*1*01-. I3b9b70*0l  .2081817-00  .2969753-00-. 186*871*01-. 969*899-00  1  bo 

.19082*2*01-. Io30b32*01-.lb*l  3oH*ol  .3820393* 01-. lb99yj2*ot-. lhS209b*01  t  b| 

.bl3o79l*ol-.lob99’9*01-.lbb7891*01  .682*706*01-. I68bbbb*01-.lb7027b*0l  1  82 

•  889oo9o* 0 1 - • lbbbu  73*0 1 - •  107to02*01  . 1 ObbHbl *02- . 1688603*0 1- . Ib70b83*0 1  1  b3 

.12b0873*02-.lbb8b9b*0l-.lb70<>b0*01  .  lbbbH79* 02- .  1  688b95*0  1- .  lb^Obbl •  0  I  1  bt> 

•lb8 9078*02-.  Iob5o98*0  1-  •  1  o  7000 1  *01  . 1  928396*02  .6907788*01  .1300000*02  1  bb 

-.2o73»>bl-oO  •  lb*  ol  13*01".  3*78096*0 1*.  1  09880**01  . 1 1 1*02 7*01-. In* 71*2*01  1  bf. 

-.l*78183*ol-.38979**-00-.239*2bl-00-.160*l***01-.13;'3*C<B»01  .1373289*01  1  b7 

-.  lb*«:330*oi-.  Ibl87  79*ol  .2988367*01-.  1 6b2 78* *01-.  Ib*>2bl2  *0 1  .*V»8730*0i  1  be 

-.  Ib881b9*01-.  Ibb9*0o*o 1  .b2H9o9**01-. 1688626*01-. Ib70*72*01  .8061686*01  1  bo 

• .  Ibbboob*  u  1” .  Ib700 32 *01  .9933*9**0 1-.  Io58b9**0 1-.  167068**  01  .1197372*02  1  bo 

-.1688o9b*(/l-.l67ooOl*Ul  .  1*  1 1  3 78*02-.  1688696*01-.  Ib70bh2* 01  .1«,3887**02  1  61 

-.lbbboVb»01-.lb70bb2*01  .  1  ti  7  1  u98*  02  .7313220*01  , 1 300000* 02-.  73*2393-00  1  b 2 

.  18b0293*01-.*0828b'>*01-.  1331  lo*t*Ul  .390'i889-00-. 29881 68*01-.  1  bb«80b*0l  1  63 

-•9927887-0U-.8968ob7-00-.1629296*01-.1828929*01  .  7688790-00- .  16*926**01  1  ho 

“.  Ibb0ub8*ul  .237  /  bb1*  *0 1*.  108*286*01-.  lbb  7282*01  .  '967833*  01- .  l6bbblB*0 1  1  bb 

-.Ib701b8*0l  .Subl9i7*ol-. 1688369*01-. 1670877*01  .7983*88*01-. Ib58690*0l  1  66 

-  Ib70o98*01  .932-»29o*01-.1688o99*01-. 1670660*01  .  1 136882*02-.  *.hS8698*0i  1  67 

-  lb 70od  1  * o  1  . 1 380888*02* •  Io88o95*01“.  lb  706b  1*01  .  187978**02-. 1658698*01  1  68 

-.lb70bbl«0l  .181  lo7b*02  .7*lbua8*01  . 1300000*02-.  1098232*01  .10B87bb*01  1  bb 

-.*•667628*01-.  1*7 726 l*0l-.3722*07-0o-. 3063293*01-. 1609616*01-.  1  329909*01  1  7o 

-•1989720*ol-.lb92879*ol-.ibl7o38*01  .1876  29-O0-.  Ibb2808*01-.  Ib6276*  *01  1  7j 

.I7b9339*ol-.lb8811a*01-. 1669300*01  . 33 79336*01*.  16bbblb*0 1-.  lb  7o**3*0l  1  7j 

•8073299*0i-.lb8jo0l*31-.1670o28*01  .68*8291*01-. I688b93*01-. Ib70b86*0l  1  73 

.8717099*0*-. Ibbbb9b*01-.lb'0ool*01  . 1 0 7b 732 *02-. lbbbbbb* 0 1- . 16*0062 *01  1  7* 

. 1289739*04-. 10bb09b*01-.lb70oo2*01  . Ibl393b*02-. lbbbbbb* 0 1*. Ib70bb2*0l  1  7j 

.  1  780256*02  «8l31b31*01  .  1 300  000 *02- .  1  3 39b39*01  .3067b36-00-.828B18**01  1  7fc 

-.18bl2*9*ol-.9ell*o7-00-.3ob37ol *01-. 1629988*01-. 183**90* 01-.2o7822**0l  1  77 

-•16*9811*0l-.lo81010*01*.*(j2b2ol-00-«l68*30b*01-.166  7*36*01  .11*8838*01  1  7fl 

-.16bbbl3*0l-.lo70173*01  .27b6iil0*01-.  1688063*01-. 1670898*01  .**82773*01  1  7b 

-.16bbb93*01-.lb70b7*t*ol  .o22**7uH*0l-.16bbb#b*u:-.l6706B7*01  .8096372*01  1  Bo 

-.Ibbbo99*01-.lb70o90*01  . 10l3o79*02-. 1688699*01*. 1670690*01  .I227b86*0?  1  Bi 

-.  16bbb99*01-.  Ib70b90*01  . 1  *  b  1  Oo2 *02-.  1  bbbb99* 0 1- ,  1 670690*0 1  .16^8203*02  1  82 

.Bbl 7 193*01  . 1300000*02-. 19/6009*01  . 20 » 18 1 9-0 1*. 8866698*0 1 -. Ib0373b*0 1  1  63 

-.  109*32  1*01-.  *2622..  1*01-.  109  122**  *0  1-.  1 8*1 308*01-, 26*978 7 ♦  0 1- .  li,  blb91  *01  1  B>. 

-. 1639308*01-.  1039890*01-.  Iob9u23*01-.  16b73o7*01  . 5783*22-00-. IhSbbbl *01  1  6>, 

-.lbo072b«ol  .218031 7*01-. Ibb9o30t01-. 1661390*01  . 3879279 *01-. lbbbbbb *01  1  Of 

-.lbblblb«ol  .8bbbi70*0l-.  lObb-.s  •  I  -  .  1661838*01  ,  7bl  8078*  0 1-.  Ibbbbb9*0l  1  87 

-,lbbl839*0l  .98b8300*01-.lb‘;bo*9*i  l-.lbblb39*01  . 1  169837*02-.  165*699*01  1  88 

-.1661839*01  ,139bo33*0«-.lb8-  .9  "0  -.lbblb39*0l  .lb303b***02  .0«83665*0l  1  89 

. 1300000*02-. lb**7700*0l-. bib-,  2  -  -.63  >  1 3bb*01-.  162b090*0l-.  1 3bbl69*01  1  9o 

-.b7b091 1*01-. lob  71 b2*0 1 -. Io021u. *f l-.3lbbb89*0l-. 1682926*01-. 1650378*01  1  9l 

-.Ibbb2bb*0l-.lbbbb0b*01-. 1689973*01  .6863989-0 l- . 1659597*0 1-. Ibbl 12b*01  1  92 

.Ib78b09*ol-.l6bbo38*0l-.lbblbol*01  . 336987 l *01-. 1689696*0 1-. Ibbl 829*01  1  93 

.bl91bb2*01-.16bbb9/*01-. 1661838*01  . 70 1 337C*0l -. 168969 7*0 1-. 1 b6lb36*0l  1  9b 

. 9083892*01-. Ib8bb97*ol-.lobl837*01  . 11 19366*02-. 168969 7*0 1-. 1661837*01  1  9b 

•1393 862*02-. Ib8b69 7* 01 -.166 1837 *01  .1879883*02  .9210390*01  .1300000*02  1  96 

-. 1893  718*0 1-. 999 9 878-00-. 6906 3b9*0 1-. 16387  83*01-, 15173 56 *0l-,530 1911*01  1  97 

-.1681 098*01-. 1638389*01-. 3689*97 *01-. 1689 197*01-. 1687 137*01-. 2079256*01  1  96 

-. 1689902*01-. 1681278*01*. 9693779-00-. 1689998*01-. 1662036*01  .1190596*01  1  99 

-.1658016*01-. 1662190*01  .2839558*01-. 1655022*01-. 1662216*01  ,9606550*01  1  100 

-.1655023*01-. 1662223*01  .6976358*01-. 1655023*01-. 166222**01  .6516579*01  1  101 

-.1655023*01-. 1662229*01  . 1 0658b5«02-. 1 655023* 01-. 166222**01  .1290061*02  1  102 
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AFWL-TR-67-131,  Vol  IV 


*•  lu55o^J*ui-.  Ibbdvds'Ol  .  rj.  ftJli.' •../ 

7  jl  *  ju*.  *  U  1  •  • 

••l*i5010i*vl*.*»  9i*..,*,i  *ul*.  li.‘i**.i.««»U  1 
••  llil.l  '.5.  *u  1-.  In  7  7'.7'i*il  1-.  |  in  |' 

••  IbOl  9  J  J*  0 1  *Ul“,  lb'j«7J|  »  u  I ' 

••  10619o9*ul  •  5o  7u  1  uu  *01",  lub*  O/.ul 

*.16tol9/u*oi  •  Iou5o*s*u2*. lob*  J3?«ul' 
*.  1*019/0*01  • 1 *05502 *0t  <IOJt«‘l2  7*u2 
/o**01*.  Io5oui.**ol".  lli 3*2*2  *01’ 
• «*9o*o  /o*ol-,  li>5*5o  I  *u  l*.  lo*.u59?*ii  !■ 
"«  l»M5772«ul-,  Io5*u95*0l-.  lftOlU2't»ol' 
.  Ibi(llu3*ul-.  llib*o7'l<u|-  ,  10l  l  )Ol  *u  1 
.52Gr/..2*ul-.lo5*u'('MUl-.  lool  502*0 1 
.9**22?l*ol-.l  ,5*o9»*ul-.  lftiil5u2*Ul 

•  1*0*  7***u*  •  OUOUUUO  .uuiiouuu 

111 

Ul*Ui  Llil/iil  5u.  tv  -  2? 50.  t V 

•  1 luuuuu*u2  .5l5uoun»u3 

2108.  . 1 dUUUUUL * U* 

.391*023*01  . i 3uuuou*uc  .7o/o//9*o, 
.6589*61*01  .258**9r>*ul  .5207970*01 
.53a9*e**ul  .58bJ9*3*ol  .2196236*01 
.2123508*01  .9JB9l9,i*Ul-.  lu3**bft*01 
-.1010268*01  .125552o*U2-.3652U0*01- 
-.*21 J/u3*ol  .16*6731 *02-. *0hb*o6* 01- 
".2201  7*9*01  .*08*93**02-.*09*9«;t*al- 
.13UUUJU*U2  .0360555*01  .8966270.01 
.*o9oa*6*ul  • 3g9o*03*  ol  .00  73  ji>7  *  01 

•  53600*  7*01  .o3*0uO3-00  .2850188*01 
. 658*550 *01-.*55u51 7«u 1-. 350* 1 Jl-uO 

. 120505  7*u*-.* 75**0 J*01-. 2*61 o*7» 01 

•  1  59b*o  1  *  02-.  *99**9*  .  01*  .  *u7S’#o0*0  1 
.*U3**o3*u*-.*VVa« /«*ul-.*679u*5*01 

•  bl 1 a-2  7*0 1  .8urt0o*u*ui-.*7 75553-01 
.2311900*01  ,51*97*2*01  .320*099*01 

-.77760*8-00  .  19551*2*01  .0*39079*01- 
•• 3913*35*01-. I*o0o5**ol  , 97*35o*  *01- 
-. 571 3957* ul-. 30021*2* 01  . 13387J7•a2- 
"  •  1*63  7992*u 1* • Jl*o3*U*  U 1  .l/5o7ob*02- 
-.566U379*ui-. 31*8731 *U1  17*63*02 

•6**Ol5B*0l-.b*3*B3*-00  .  1  758  7.50*01 
.32**532*ul  .2597323*01-. 1310611 *01 
.1088753*00  .583U9b**01“. **72719*01- 
-.29bJ8U9*ol  .913b370*ul-. 7186579*01- 
- .**0B9*3*U 1  .1277917*02-.778J7bl*01- 
-.*500o2S*01  .  lo959*6*U2-  .7600303*01- 
-.*501*93*01  .215b*b3*02  .5*10100*01 
*.12*5313*U1  .9802900-00  .3980983*01 
.1998220* 01-. 21 18*88*01  .88930*8-00 
.b222al2*01-.b238**6*01-.220b9b*«01 
.0b27i 70*01- .7*8191 3*ul-.«2b*b89«ol 
. 121 7098*02-. 779J03**01-.**9S91 9. 01 
■  1635126*02- ■ 7600*2 1 *0 1 *5U 1  *  36 « 0 1 

•  209bb* 3*02  .38289*0*01  . 13u0000*02 
.2153759-00  .32221 30*01-. 23*9755-00- 


•  Vol  bMilb*U  1  .1 3000011* 02-.li,?313b*0l 
.  1  J9  (ln7  i  ut-,  j>*  1  o MO** *  0I-.  1,  S3UM  *0l 

•  1 '•“>'<  799*Ul-.2*>l>7*b3*0l-.  1 1,  Sim  711*0  1 

.  1  1  *.*«**  •  ti  |  Vi.  ill- ti  n-  #  | ,  ',*9  In  *n  | 

•  lb»  1 9n  7* U 1  .  39‘M1 V,.'*  01-.  lu*.8 932*01 
.  16019  7(1* U1  .  791  U3(i2* 01-.loS*9)2*0l 
.1001970*01  . 1229201*07-. lob*932*01 
.  1 30UOOO*u7-t  lu38S  77*01-i  ligllJiii)*  oi 
• G5182  <2*01-,  i 05366 1*01-,  lf|Sof  'l?»01 
.329b*. *9*0 1-,  *  it*. *i.7  7*  0 1  - .  1  i.*ii 38*1*0 1 
.  7'j *91*01-1*2-,  103*098*0  1-, luOlbbli*0l 
.  3390  lb**Ul*.  lob* 009*ul-,  lo*tlbo2*0  1 

•  730218* *U1-.  llib*O99*01-.looibo2*0 1 

.  1108*21*02-.  lbS*l,Q9»ni-,  li,«.lbn2«01 
.OOUUOUO  .0000000  .0000000 

11  ►«L0.  CMO/GAL  9/30/00  wOOSWC. 


•  9793oU8*01  .90208*0-00  .0s('b707*0l 
•701U2l2*ul  .*231161*01  .3789586*01 
.3731793*01  .7*78350*01  .6075961-0u 
.*052223-00  . 1078327* 02-.25?b200*01 
.1936075*01  . 1** 77C 9*0 2-. *02*8 13* 01 
.2250559*01  . 1660738* 02-.* 09*103*01 
.228235**01  .2321255*02  .*2l*6*95«0l 
.*653230-00  .513133**01  .7b67333»0l 
.3736503*01  .22019*1*01  .**76133*01 
.09 739*0*01-. 9**309* -00  . 1260578*01 
. 1027057*02-. 3971573*01“. 1 732608*01 
. 1392236*02- .*963166* 01-.2o*8*07»0l 

•  Id  1 020  7*  02- .*996067*0 1 - . 2*79286*0 1 
.227078**02  .*605170*01  .1300000*02 
.3705739*01  .0663860*01  .Ib7**l6*01 
.7972127-00  .3558921*01  .*826310*01 
•2352157*01  .3680257-00  .80*9568*01 
.51553*6*01-. 2**3619*01  . 1| 51 556*02 
.58*0099*31-. 3128*1 **01  .15*2759*02 
•5d6ui*7*01-, 31 *8*96*0!  . 1980962*02 
.5010o35*01  .1300000*02  .3233510*01 

•  * 705390* U 1  .9711713-00  .2377816-00 
.10905*8* 01  .*2 16*63*01-. 2960287*01 
. 1*53981 *U1  .7** 1368*01-. 60 15867*01 
.*012917*01  . 1090736*02-. 7o7«36**0l 
.9*88975*01  . 1*619*0*02-. 7796529*01 
.*501350*01  .19201*2*02-. 7600*95*01 
.1300000*02  .2*86027*01  .5*9*661*01 
.3652303-00-. 5*03322-00  .2*665*7*01 
.36 10*9** 01'  . 3698772*0 1-.666539*-00 
.  6633200*01-, 6635699*01-. 3528559*0 1 
.  102991 7*02-, 77**371*0 l-.*«5930**0l 
.1*21 120*02-. 77996 32*01-. *5008*9*01 
.1859322*02-, 7800506*0 1-. *50 1502*01 

17U7***01  .*718*12*01-.  1861091*01 
1353*79*01  .1653699*01  .13793*7*01 


1U3 

10., 

10> 

li'i 

107 

1  OH 

109 

IIP 

lit 

112 

113 

11* 

*15 

lift 

117 
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2 

3 

* 

5 

ft 

« 

8 

9 

10 

U 

12 

13 

1* 

15 
lb 
17 

16 

19 

20 
21 
22 
23 
2* 
*5 
26 
27 
26 

29 

30 

31 

32 

33 
3* 

35 

36 
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AFWL-TR-67  - 1  n  Vol  IV 


-.29344/0* 01  . /- 77301-01 
-  .  54bee 22*  u  1  -  •  2909254*  o  1 
-. 7b40359*ui-.43t57  75*01 
7 7972 32 *01-. 44990b /• 01 
-. 7au04 73*01-.450147a*ol 
.o214o0fl*ul  .I300uo0*02 
.24oB390*Ul-.<J12B„4  7-u0 
-.GblOulU-uo  •  24  1 2914 *  01 ' 
-.34b77a2*ol  .  5o354*9*01' 
-.4440312*01  •  9 1  u  1 40b*  01' 
-.4bo035b*01  .UulJ44*J2' 
-.4501476*01  •  1  739b4o*u2‘ 
.1300000*02  .J2bJbl4-UU 
-.I3l234l*01-.2779lb5«01 
.  1 900242* ul-.5fl3ul  71  •or 
.5i30741*ul-.  7595149*  ur 
.B59i,b9a»ol-. 7794bbb*ul' 
. 12506/3*02-. 7b00423*01' 
. 1669075*02-. 7dUUbl4*ui‘ 
-.366/975-00  • 7  04 14Gb* 0 1 ' 
-.3431166*01-.  /2/lboa-ol' 
-. 640 7469* u I -.299397/ *01 
-.7b94bl6*01-.42b7306*01 
-.7/9 7595*0 l-.43bB23 1*01 
-.7600469*01 -.4 371045*01 
-. 760051 3* 01 -.4371 uBM* 01 
.21 33alb*01-.40b2560*ai- 
-.9  7  74  31  0-0U-.b4t>it,5  7-UU' 
• •  3b  1 J4  u4  ♦  u  1  .2377554*01' 
• . 4 Jo  7  39 l  •  u  1  . bbB 1497*01' 
• . 44 10244* U 1  .9325290*01' 
-.4411403*01  .1 350559*02' 
•*4411 42 1*01  •  till  lU  7->«U2 
-.  Jill  7u.,0*01-.  33,j/4l7M*0i 
-. 240/0  32  *oi-. 4051  ii/l*ui' 
-.139Iuu3*0l  .5459400*01* 
.2121  7b5-u0-.ub3130  7*01' 
•25105/1*01-.  7/5uo4,l*01* 
-,19254b  *01  .I44514o*01* 
-.bU44J4B*0l-.  lb7HB4*Ul- 
-,733l5bb*01-.393471 7*01 
-, 7  776715*  01 -. 4 3b 7255*0 1 
-.7/99437*0l-.43b7ul5*01 
-.7600505* 01 -.4 388159* 01 
-. 7800514*0 1-.43BUI 6 7 *01 
.5205092  -.4lS24bo*01> 

-.7520297  -.2621710*01' 

-. 1 79913b* 01-.  172b302*01* 
-.3135128*01-. 1225313 
-.4170124*01  ..  181657*01" 
3a 

01 AN6/5CAT  LlMtStuHt-lB 
•  1900030431  .bl500uU*U3 
1131.  .1500000*02 

.3912023401  .1300000402 


•2991342*01-.45UI124*01-.1482050*01  .4h03571*0l  1  37 
.O21393B*01-.7124545*01-.39565A2*01  .7907907*01  1  38 
.9b/4/00*01-. 77/5538*01-. 4482805*01  .llbbl71*02  1  39 
. 13b91 93*02-. 79UU128*Ul-.4b0 1220* 01  .lb73200*02  1  4fl 
.1 797396*02-. 7800511*01-, 4501505*01  .2033717*02  1  41 
.97b4u31-UU  .3982122*  1- .2437751*01- .53651 35-00  1  42 
.2114907*01  .89290 b2-O0  .8010664-00-. 3h932 13*01  1  43 
.b22B)lb*01-.219bb74*01  . 4025U93  *0 1- .  6568900  »  0 1  1  4M 
.  7431  179. 0l-.42l3b»37*0l  .  7329414*0 1-.  7  72  72bb*01  1  4b 
.7780808*01-. 4492799*01  . 109732 1*02-. 7798975*0 1  1  4b 
. 7a0033b*01-.4b01357*01  . Iblb3b0*02-. 780049b»0l  1  47 
.7ao0b 13*01-. 4b014A9*01  ,197bab7*02  .bbblo00*0l  1  48 
. 3333197*01-. 2941b02*01-. 119747b*01  .la09718»01  1  49 
.2297929-00  .29b47B3-0O- . 4 3401 1 3*01- . 1 330 730* 01  1  bo 
.2777^54*01  . 3b2 0393*0 l-,b994b38* 01*. 384872b *01  1  bl 
.4344290*01  .b82470b*01-. 7762473*01-. 4472907*01  1  b2 

•  4  49b  746*01  .10*b8bl*02-. 7799739*01-. 4b008bl»0l  1  53 
.*501371*01  .l4b4879*02-.7B00b0b*01-. 4501432*01  1  b4 
.4501439*01  .192539b*02  ,b9f775b*01  .130OOUO*O2  1  55 
.347bj9b*01-.18997b8*01  . 1508481*01-. 1847142*01  1  5b 
.2364.,  >1-00-. 5027200*01-.  1617680*01  .1373259*01  1  57 
.298b3a7*01-.732b894*0l-.39C4b45»01  .4b95730*0l  1  58 
. o289o94*01  — . 7  781 b94*  0 1 - . 4  352b6 1*01  .8061666*01  1  59 
.9933444*01-.7800134*01-.4370717*01  .1197372*02  1  bo 
. 14 113 /B*02-. 7800509*01-. 437 1084*01  .  1, ,355/4*02  1  bl 
.1871895*02  .7313220*01  . 1 300000*02-. 1 157865*0 1  1  62 
.2096904*01  .59 32 0b l -00 -.24 55 186 *01-. 427 1959* 01  1  6J 
.5 7b 1323*01-. 245b563*01  .7656770-00-. 6947648*01  1  64 
.75blob<t*01-. 4192540*01  .  3987533  ♦  0 1- .  7  752075*  0 1  1  b5 
./7  '2110*01-. 4403795*01  . 7453488* 0 1* . 77992 1 7* 0 1  1  6b 
. /ao034b«01-. 4411268*01  . 1136552*02*. 7o00495'(i  1  67 
.  7,100  312*01-. 4411419*01  ,  1574758*02-,  7n 00514*01  1  66 
. /1. 110902*01  .1000000*02-. 2380474*01  .  1027613*111  1  22 
,51114431-01 -.  2/9)141 3*0  1-.3(>,'6442*II1-.24‘>9U2-0i,  1  23 

•  1,4  31  /  /5— Oil— .  20*I2*t44*  Ol*  ,  4  724095*0 1*.  1  314924  ♦  0 1  1  24 
.2049157*01-. 5894966-00-. 6149161*01-. 2736881*01  1  2* 
.3216493*01  .8582077-00-. 7447748*01-. 4024612*01  1  26 


.432813  *01 .47o0271  *01  .7718685*01  .13  *02 

•4bb7u28*01-. 34961 58*01-. 1251106  -.3063293*01 

.145472  *01-. 6420971*01-. 3039836*01  .1576929 
. 1 769359*01-. 7087355* 01-. 4279416*01  .3379336*01 
, 50/3299*01-. 7796773*0 1*. 438458  *01  .b845291*0i 
•8 71 7 099*0 l -.780 04 39* 01 -.4388096 *01  .1075732*02 
.1209 739*02-. 78005 13* 01 -.4 386 166*01  .1513935*02 
.1750256*02  .7824046*01  .1  *02-. 2819758*01 

.37944 36* 01 -.45341 23  -.3 133091 *01-. 4093477*01 

.4482.'27*0l-.ll4  *01-. 24 15127*01-. 5143603*01 

.5852302*01-. 2503016*01-. 9242025  -.6492*48*01 

.691662  *01-. 3549538*01  .5234968  -.7541325*01 

.7772345*01-. *369367*01  .4425556*01 

5-25-67  TEH/M50-1.C4I  A*/A»  INPUT  T*PE(3971| 


.8675739*01  .9610432*01  .4085977-00  .*105946*01  1  1 
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AFWL-T  R  -67  - 1  3 1 ,  Vol  IV 


•  6660  716*U1 
•6639Vo9*ul 
.3blB666*0i 

•  700 79^7-uO 
*.192»319*ul 
-•  lbb (261*91 

.nooooo**;.; 

. ld70849*Ui 
4  692  i95/*ot 
■S3b/9u9«ul 
.1193073*04!- 

•  1  69U1 1 3*  9*.- 
.29294*09*94!- 
46699/96*91 
.6986951*91 
.3570981*91 
.9739*19-00 

-.1921709*01- 
-. 1635093*91- 
-.1690363*91- 

•  6  7oO2b0*01* 
•6bl0120«01 
.3766016*01 

• bbObbl 1-00 
-.  1994!730*01 
-. lb2bo7l*ol 
-.1626096*01 
-.1966217*01 
.1909166*01 
•bl77o?9*01 
.6966669*01- 
.1213102*02- 
.1631926*02- 
.2099039*02 
.6076097*01 
.2693736*01 
-.29622ol-00 
•• 162  7  7u6*01- 
-.1619317*01- 
-.1619799*01- 
.621*006*01 
.60o60/6*ol- 
.21*1962*01 
-.13*76u6-00 
-.1960691*01 
-.169*290*01 
-.1690936*01 
.1300000*02 
-.1366166*01 
. 1666629*01- 
.5121326*01- 
.6666306*01- 
.  1260037*02* 
.16*6.60*02- 
.9003616*01 


.2096976*01 
.69961126*01 
.07*6771*01 
.1230766*02* 
.  1632690*02* 
.2077996*02* 
.6693770*01 
.61)0990(1*01 
.90*0196*01 
.1066991*01 
>.1269002*01- 
*.1699906*01* 
*.1669210*01* 
.9171733*01- 
.7213231*01 
.9999090*01 
.1606113*01 
-.1179669*01 
-.1621662*01 
’  • 1626006*01 
’  .9696196-00 
.2992799*01 
.6763296*01 
.9069009*01- 
.1273o7 3*02- 
.1691996*02- 
.2162963*02 
.6360391*01 
.3792963*01 
.6396969-00 
.1321660*01- 
.1636711*01- 
.1639090*01- 
.6e2o996*01 
.6021692*01- 
. 3u9U602*01 
•607Oe6b-ol 
.1997309*01 
•1699006*91 
.1696921*01 
.1300000*02 
.6796079-60 
.2373701*01- 
.6619661*01- 
.9092212*01- 
.1300606*02- 
*1738711*0.- 
.9393973*01 
.1660690*01 
.0289797-99 
.1969000*01- 
.1609360*01- 
.1613967*01- 
.1619007*01- 
•3020333*0 1- 


. 73I29q6*01 
.9613311*01 
• 1937u20*01 
-.1169262*01 
-.1679699*01 
-.1066936*01 
.9393397*01 
.7977360*01 
,9013149(1  l 
.209129(1*01 
-. 7612999-00 
-.1617063*01 
-. 1636103*01 
-. 9636297-00 
.2921999*01 
.6293(169*01 
.9673220*01 
. 1333636*02 
.1762969*02' 
.2213270*02 
. 7119669*01 
.9679372*01 
.1271912*01 
-.1063307*01' 
-.1619013*01' 
-.1696996*01' 
.6916100*01 
.6910717*01 
,91 069 72*01 
.1092626*01 
-. 1207291*01 
*. l619o5B*0l 
-.1616(497*01 
.1300000*02 
-.3232699-00 
, 2996226*  0 1 
.6179301*01* 
.9699  796*111' 
.  136(11196*62* 
.1796 666*02* 
.9777901*01 
.2677773*01 
-.1267979-00 
-.1921736*01* 
*.1696690*01* 
-.1619361*01* 
-.1619769*01* 
.6606306*01- 
.3162676*01 
.6103329-00 
-.1321213*01 
*.1691333*01 
-.1696093*01 
1696096*01 
*.3513272*01 


.7921689*01 
.6006622*01 
.2136081*01 
-.6237979-00 
-. 1636639*01 
-.1696921*01 
-.1733736-01 
.3361961*01 
•  Mi‘7%  7*  7  *01 
.10ll6l9«U2‘ 
.1309261*02' 
.1009672*02' 
•22669b2*02 
.7S93381*01 
.9979699*01 
.2077966*01 
-.6293367-00' 
-.1607679*01' 
-.16*6210*01* 
.6010636*01 
.7730998*01 
.6201151*01 
.2196038*01 
-.7029006-00 
-.1602233*01 
-.1627616*01 
.1300000*02 
.2399199-00 
.3362672*01 
.6791696*01* 
.1026912*02* 
.1917161*02- 
.1866662*02* 
.6610633*01 
.9016769*01 
.1099096*01 
-.1166119*01* 
". 16069 32*01* 
-, 1619693*01* 
-. 1619602*01- 
.6269760*01- 
.3676127*01 
.9116643-00 
-.1016199*01 
-.1679(106*01 
-.1696200*01 
-.1696999*01 
-.3000773*01 
.2612969-00 
.3607778*01- 
.6816192*01- 
.1096019*02- 
.1969099*02- 
.1929661*02 
.2676969*01 


.3706016*01 
.7100666*01 
.1098226*02* 
.1923191*02* 
.1860871*02* 
.2316317*02 
. 7007102*01 
.6912903*01 
.2013667*01 
• .  3b9'IO02-00 
'.1603930*01* 
■.1669969*01* 
.9606170*01 
.8390902*01 
.6700037*01 
.3106132*01 
*.7339373-01 
*.1667931*01 
‘.1027620*01 
.1300000*02 
.7950793-00 
.9118660*01 
. 73081 02*0 1- 
.1006612*02- 
.1977933*02- 
.19161*2*02- 
.7099279*01 
.6267021*01 
.2168931*01 
.6100969-00- 
.1679950*01- 
.1692377*01- 
.1622630*01- 
.7208937*01- 
.9695(167*01 
.l996M2*oi 
.9979069-00 
.1663173*01 
.  l*i,(57T'**01 
.169(1990*01 
.26^6691*01 
.7633663-00 
.3999013*01- 
.7316961*01- 
.1096972*02- 
.1619619*02- 
.1973032*02 
.3281121*01 
.9918119-00 
.1210063*01- 
.1571091*01- 
.1613377*01- 
.1619003*01- 
.6907756*01 
.3870619*01- 


.6069209*01 
.2908857*01 
-.7073397-01 
-.1596396*01 
-.1^78021*01 
.9290996*01 
•Bh22961 *0 1 
.6107136*01 
■3901790*01 
.6733897-0(1 
-.1966869*01 
-. 16372  70*01 
.1300000*02 
. 1223806*01 
.9615016*01 
.7961391*01 
.1195878*02 
.1638090*02 
.1976915*02 
.8075697*01 
.5907981*01 
.2b09122*d 
-.1602896-00 
-.1971228*01 
-.  I6**17b5*0l 
-.1696957*01 
.8002603*01 
.5692912*01 
.2699193*01 
-.3965872-00 
-.1568377*01 
-.1629030*01 
-.1609198*01 
l995222*0l 
.1319231*01 
,  9‘j62o9H  ♦  0 1 
.7470635*01 
.11532  16*02 
.1*,72329*02 
.2032(141*02 
.3008092*01 
.1137990*01 
-.9799202-00 
*.1366253*01 
*•1611689*01 
-.1619760*01 
.6431080*01 
.9931100*01 
.1920910*01 
-.6968987-00 
>.1351202*01 
-.1393390*01 
*.1396091*01 
.1300000*02 
‘•1869319*01 


448 


AFWL-TR. 67-131,  Vol  IV 


.14427o7«01  .234*067*01-. 2368  313-00  .4  73q7«8'01  .1160399.01  .1363324*01  1  37 

-.8300324-00-. 1479728-00  . 24 71.482*0 1  1  3 32333* U I- *  1 1  ‘•8770 •  0  1  .43*7337*01  1  38 

-•13o31SU*ul-.  1323692*0  1  .o2«l 33**01-. loO#303*Ul-. 1386443* P l  .6033326*01  1  36 

-.lol2227*,.i-.1394li.3*Ul  .4423137*01-. 1o126*7*U1-. 13*3237*01  .1196336*02  1  60 

-.16l2928*u*-.l  343-U  1*01  . 14103*3*0?-. 1612438*01-. 1343*16*01  .1*34739*02  1  61 

• • lbl 2939*ul * ■ 1343*20* 0 1  .lu71jbO*»2  .7313220*01  .1300000*02  .306Hbbl*0l  1  62 

.4323433*Ul-.410462**Ul  .2UO3od2*01  *3037716*01-.2*77b42*01  .6b09440-00  1  63 

.13373Z3»ul-.B373222-0li-.o227073-00  .1064714*00  .  7b7b4b2-00-.  1 330123* 01  1  b4 

-.lulone2*ui  .d364243*ul-.1334ol3*ui-.14B2311*0l  .34792bb»01-.  1*04882*01  1  b*, 

-.1377lul*wl  .3i.7313o*ol-.lMlB14*01-. 1342292*01  .  7**31  34  »P1- .  l*124bb*  0l  l  bb 

-.  1344e3b*ui  .931b9»u*ul-.lbl3lbl*ul-.l*j4b238*01  .113371 6  »0?-.lbl317b*0l  1  b7 

-. 1340242‘ul  .1  34 9723*UJ-. 101317* •  l<  1-.  I‘i'<b29**01  .137341-  *ci?-. 1* 1317»*01  1  b8 

-.  1343244*01  .lulu. 40*0..  .  771*003*01  .1300000*02  .1433*11*01  .34*10-77*01  1  *9 

-,4700377*ul  *c0341 73-00  .20471** *ol— .3000220*01-. 7b *63 10-00  .3*91913-00  1  7fl 

-.1*01 7ol*ul-. 133320o*UI-. 73/4  732-00  . 13U6436-UU-.  13bl437*0 1-. 1 4 1 1 049*0 1  1  7i 

.1 7bll0b*ul-.lbl0l7b*01-. 13*6723*01  . 3371007*01-. 1319934*01-. 1348683*01  1  72 

.30b49b2*u*-.lb2U90b*01-.1003038»01  .bo3b937*01-. 1621 300 *01-. 1*04004*0  1  1  73 

.07ue742»ul-.lb2133u*ul-. 1004134*01  .1074896*02-. 1*21336*01-. Ib04l74*0l  1  7* 

•I2b04u3*02-.lo21337*01-.lb041 70*01  . 131 3o44*02-. 162133 7*0 t- . Ih04 1 7b*0 1  1  ?3 

.1744420*0.  .bl31331*ui  . 1300000*02-. 323b9b4-0l  .23«08b0*0 1-.331 4323*0 1  1  7b 

-.9164400-00  .1074984*01-. 3693146*01-. 13*7242*01-. 3336137-00*. 2060484*01  1  77 

-.13b407u*ul-. 1268677*01-. 4b848BO-OO-.l6tB108»Ol-. 1333274*01  .1141949*01  1  7# 

-.1631342*ul". lbl Ubbb*  0 1  .2 731 o26*0 1-. 16323*4*ul-. 16184 14*0 1  .4*43693*01  1  79 

-. 1633191**1-. l62U64-j»ul  .62170*9*01-. 1633301*01-. 1621033*01  .8089473*01  1  80 

-.Ib33319«ul-.lb21u94«ul  . 1 0 12970 *02- . 163332 1 • 0 1- . 162 1 1 02*0 1  .1226976*02  1  81 

-.1633322*ul-.lo2U03*ul  .  1431 1  72*02-.  1633322*0 1-.  1621 103*0  1  .lb87493*0?  1  82 

•631 7193*ul  .13u0u0O*u2-.83/9736-00  . 1660840*01-. 3690632*0 1-. 1 3*3136*0 1  1  63 

.1771330-UU-.  4270680*  ill-.  1336449*  ill-.  4893637-00-.  2630732  *01-.lh20037*0l  1  6* 

-.I490l76*ul-.104b923«bl-. 1636472*01-. 1611063*01  . 3634662-00- .  Ib43132*0 1  1  85 

- . 1634b33*01  . 2 l73333*ul-. 1644243* 01-.1 634429*01  .3867202*01-. lo443l6*0l  1  8b 

-. 164U320*01  .3634176*U1-. 1644337*01-. 1640474*01  . 731098 1 *0 1 -. 1 6*4363*0 1  1  67 

- • 164U444*0 1  .4331202*01-. 16*40*4 *0 1- . 164*302*01  . 1 16912 7*02- . lb*436* ♦ 0 1  1  68 

—  . 1*4 U3U2* Ul  . 1 343323* U2-. 1*4* j64* 01 -.16*03 02* 01  .16206*4*02  .8833663*01  1  69 

•13UU0U0*02-«13433U4*01  .29104 1 O-UU- .6341447*01- . 1337093*0 1-.931*07o-0o  1  9p 

-. 4 7 73 140»Ul-. Ib2 7b3o*ul-. 131 7*06*01-. 31620 12*01-. 1648033*01-. 16*3486*01  1  9l 

-. 1331*70*Ul-. 163334 7*u»-. 1604 732*01  .38 76660-01-. 1633331 *0 1- . Ib70293*0 1  1  9? 

. 166oo26*  Ul  — . 1 633694 *u 1*. Io70/o3*01  . 3362*94*0 1- . 1633732* 0 1- . Ib7083 1 *0 1  1  93 

•3134467*U1-. 1633738*01-. Ib7u6*6*01  . 7006273*0 1-. 163373»*0 1- . 1670868*0 1  1  9m 

.9U*6444*ul-. 1633737*01-. 167U0*4*01  .1118*36*02-. 1633739*01-. lb70Ub9*0l  1  9b 

•  1342832*02-. lb33734*ol-. 1670869*01  .1374173*02  .92103*0*01  .1300000*02  1  9b 

-.1*666*1 *ol-. 3083461-no- . *422303*01-. 1349281*01-. 1283321 *01-. 3307361 *01  1  97 

-.164U667*Ul-.loU66l»3*Ul-.36,7o490*01-.  1632282*01-.  166  1370*01-.  2086389*01  1  98 

-.1633U47*ul-.lb*4234*Ul-. *762*13-00-. 1633634*01-. 1670384*01  .1133616*01  1  99 

-.1633714*ul-.lb70bl7*.’l  .2B27482*01-.l633733*0l-.lb70860*01  .*699435*01  1  100 

-.16337J8*u1-. 167  1867*01  . 6*71 260*0 1- . 1 633739*0 1- . 1670864*0 1  .6511*81*01  1  101 

-. 1633734*01-. Ib708b9*01  . 1063133*02- . 1633739*01-. 1670664* 01  .1269331*02  1  102 

-.1633739*01-. 1670869*31  .1323672*02  .0000000  .0000000  .0000000  1  103 

33 

018NL/3C6T  Nt-1»  Tt*P 1 1 . 3-1 . t* 1  11-6-67  S»UY  INPUT  T»P£SI 39b6. 39631 

.100U0U0«01  .9840000*^3 
1010.  *  240UU0U  *0  0 

,403*631-00  .13UUOUU*02  .3304146*01  . 1008003*02-. 378304'*0l  .3*71967*01  1  J 

.9744613*01-. 13632*1*01  .34683*0*01  .9*37083*01  .1364030*01  .3**9899*01  1  2 

.833*318*01  .4314791*01  .3386121*01  .7221263*U1  ,7336307*01  .31*3*03*01  1  3 

,63*6392*01  .103*680*02  .2337066*01  .3388130*01  .1311816*02  .11903*9*01  1  4 
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.39  7v*99*|,l 

•  tWI  »  7*«fc0 

■■urwti 

.IMviWOMi 

.  .  •«  '  04  1  *n 

. 1 1304«**u« 

.1930*75*04 
.*307260*02 
.953*13**U1 
. 01*0/oo*ul 
.605/307*01 
.3*1**51*01 
.51702*5-01 
-.23*/  '/( »*ol' 
-.2BUU  305-01' 
.12u5iit3*02 
.11*59 7*-0< 

.4/4/379*01 

t 

-.«*i#i/4*oi 

.IWtJM'ul 

.9040*31*01 

.1*59505*02 

.1**52*5*02- 

.2002933*02- 

.*5oU102*U2 

.104/220*02 

.01/1*63*01 

.5252*09*01 

.2054323*01 

-.100/774*01- 

“«  1431*37*01 
•27u*05u*ul 
.  1 16*/4**0* 

.4334033*01 

.*185302*01 
.2983020*0 1 
-. *1094*7 -09 

-.1 7*9*** *0 1 
. 1 300000*0* 
./91bu57*gi 
.64bl512*ui 

.**1*M*HI 

.I3bwi«u*u«< 
.i7»2»yy*02. 
.<100  72  7*0/- 
.9Tgoi33.g| 
.#920**5*01 
.5731730*0 1 
.18200*0*01 


•153«l***v/- 

•  i*«o->i  r*u 

.2300*09*0; 
...  9*. 504-01 
.o/02*/b*0l 
.50/9055*01 
.2oib* *o*oi 
-.32104*7-00 
-.250093.1*01' 
-.3200101*01' 

. 1263b7u«02 
.  1 1/9001*02 
.0005351*01 

•  52*0o  72*01 
. 1*72990*01 

'.103001**01 
‘.276b/70*ol 
.1930/70*01 
.b*0  7*0o*ul 
.9257103*01 

•  12  •to*'**  02 

•  lb** 0*3*02- 
•2107965*02* 

•2b«t30O*O2 

. i J0o**fl*o 2 

•  '040OB9*t'i 

•9«7651**0I 
<2000595*01 
• lU4U7*0*Ul" 
-.2148*70*01- 
•2302b*b*01 
. 11972U<<<U2 
•9u0*320*ul 
•ob03bO 1*01 
•3203079*01 
-.2020*1 7-uo 

-.10UO1OO*O1 
• 130uu00*02 
.3212077*01 
•*7*bb90*ul 
.1025765*02 

•  1392**1 «U2 
• 10OOU24*Q2 
.22*10V«*02 
•lO7bb2B*02 
.  4*5359*  *0. 
.Ob*10Vb*01 
.30*9# 7. *01 
' . bb*bobo-uv 

'.177ob92*w1< 
.18*«033*tfl< 
.1047?**. 02 
.9537*28*01 
.63576 13*  u 1 
.283*793*01 


.0007 JB2-UU 
*.3*b2  '90*01 
*. 3779384*01 
.122*941*02- 
• 110*7*2*02 
.B*9bl«b*«l 
.•76*  TO*  *01 

•  I bbU* 32*01 
Ibb*9u0*01 

'.  31b7  1  **«01 
.1790199*01 

•bU* 7299. 01 
.930!  *96*01 
.13073*1*02 
.16*5997*02 
.213536**02 
.2*0*006*02 

•  1U53/5*  *02 
.7057001*01 

•  *  7  79|«b*0l 
.20370*1*01 

—  .  1  ll*9y0*.Ql« 

*. 2*51100*01* 
.10*5910*01 
.1*1*7**. 0* 
.0910333*01 
•*403**7*01 
.3*11100*01 
-.  79*  9’tj-01 
-.21297*6«ul 
« 130U00O*02 
.3*77**0*01 
• 7U5U7*2*01 
• lUbb*0O*O2 
.1*23019*02 
.1033406*02- 
.2206*01*02- 
.115*0 *2*u2 
•9*u57u**01 
•**17972*01 
.3*12790*01 
.1726*7*-00 
•17UB918.0I 
'.10*  3797.01' 
.1154157.02 
.10*1*77*02 
.7327037*01 
.*050*01 *01 
.3712201-00 
.1715*53*01 
.102*772*01 
.•03*1*4-00 
.*323031*01 
.7765798*01 
.1111925*02 


.2139229*01 
.1910*  73*U| 
.34*7906*01 
.40 70729-02 
.51*7*51*01 
.96*9177*01 
.1311530*02 
.i6o*ir«*02 
•21*0 3*2*02 
•262501**02 
.09359*3*01 
.7121502*01 
»502U792*0 1 
.  177393*. 01 

■.1357*9**ol 
■.2730518*01' 
.l6U9*30«Ul 
.121  7«)0*U2 
.090*557*01 
.4406030*01 
•3511020*01 
•12/5017*00 
.2332454*01 
•1300000*02 
.J4B30O5*UI 
.72672*7*01 
.10  70747*62 
. l**OC31*U2 
•105O120*U2- 
.2313738*02- 
•  UO2U7>6*02 
.96/10*7*01 
.6620993*01 
•3673767*01 
.*191138-00 
-.17040*1*01 
-• 19021 5**o 1 
•12U7397*02 
.  1001612*02 
.7763711*01 
.*606281*01 
.1265*32*01 
-.1513*33*01 
‘.  10/42. 19*0 1 
.1150  ,03*01 
.444*267*01 
.0100450*01 
.1140974*02 
.1530  307*02' 
.1954520*02' 
.2*17040*02 
.9522104*01 
.7502137*01 
.3702**0*01 
.8847510-01 


•  1 73* 54* *02- 
.215*421*02- 
.2428/40.02 
.69*7310*01 
.6207716*01 
.3595403*01 
.7511151-00 

-.  l***03B-OI 
-.31 1414*. 01' 
.1223775*01 
.1220352*02 
.9602005*01 
•673732**01 
. 352*40* *01 
-.10*5013-00 
■.25731*0*01 

•  13000QC  *02 
.3750110*01 
. 7»7**| 9*0 | 
.1046901*02 
.1*73294.02 

•  1000326*02" 
.23S75J4.02- 
.1216949*02 
.9*11241*01 
.6550690*01 

•  35<*6**/*01 
.*357301-00 
.1961161*01- 

-.2157*05*01- 

.1238920*02 

.1126823*02 

.6206*0**01 

.*9*3723*01 

.1508998*01 

-.1503991*01 

-.1000029*01 

.1*3*319*01 

,*99*7fl**ni 

•852706b*0l 

.1205938*02 

.1500*90*02 

•  2U1686**02' 
.2*77463*02 
.10*1710*02 
.80* 5*24*01 
.*905475*01 
.112*346*01 

'.1910027*01' 
.1829094*01' 
.3926340*01 
-.lB5«|74*«t 
.80122*5*01 
.*623*73*01 
. 1 0*092**0 1 


•23**050*0l 
.3025573*01 
.8100302-00 
.11**004*02 
.1034075*02 
.6506633*01 
.3044513*01 
. 1*8479*— 00 
'.2027279*01 
.1300000*02 
.3679682*01 
.7577950*01 
.111*097*02 
. 1*9*307*02 
.1002759*02 
.2365*5**02 
.112*312*02 
.4*55400*01 
.6262373*01 
.3902120*01 
.3o»3347-0o 
.2 1 3300**01 
.2**63  12*01 
.1296729*02 
.1135056*02 
.03*17*4*01 
.501*780*01 
. 16*6282*0 1 
-.15601*6*01 
-.213**09*01 
•  1703687*0) 
.5259*00*01 
.0019183*01 
.1235972*02 
.1620215*02 
.20562*7*02 
.2532376*02 
.  108*905*02 
.8109213*01 
.5l2B18**0l 
.1895637*01 
'.1157761*01 
'.  1 62696b. 01 
.3113915*01 
.1122079*02 
. 09304 5**b| 
.97011*3*01 
.2222513*01 
.1124311*01 
•I0l94*6*0| 
.1300000*02 
.2989041*01 
.6062*9**0l 
.0*1*5*4*01 
.12093*7*02 


5 

0 

7 

8 
9 

10 

11 

12 

13 

1* 

15 

16 
17 
10 

19 

20 
21 
22 
23 
2* 

25 

26 
27 
20 

29 

30 

31 

32 

33 
3* 
3-, 

36 

37 

38 

39 
*0 
»1 
02 
*3 
** 
*5 
*6 
*7 
*0 
*9 

90 

Si 

92 

93 
9* 

95 

96 

97 
90 

94 


AI  WL-TR-67-1  31  ,  Vol  IV 


-,l0412ul*0l- 
1802401*01- 
-.184171  l*ol- 
.1011146*02 
.6160604*01 
.llJlbo'/*Ul 
.lb42'*44*ul 
-.  1244  Jo4*0l 
-.lO'Jllo/*01 
-.I7lt>dl0*01 
•bl4/o72-01 
.14lloll*01 
,672 /0bl*0l 
.1004104*02- 
.11?4120*0.:- 
.  180*4d7*02- 
•22o4uii*02 
.11867  11*01 
.lol4iol*ol 
.160 1821-00 
-.lll4244*ul 
-.lb024/0*01- 
-.162ll4b*0l- 
.1010011*01 
.7110620*01 
,4441147*ul 
•242ll7V*01 
-.1224120-00 
-.1174020*01 
-•  1604401*01 
.1 100000*02 
.2081141-00 
.llo/ol4*ol 
.08111  /  7*U1- 
.1028244*02- 
.1414411*02' 
•  18b  /ol4*o2* 
.641)7164*01 
,40b*0o0*01 
,  zioi/io-uo 

•  ,  12*i‘J441*0  r 

ll.lOllllt'Ol 

- 1  If, no  |I|*HS' 
,l,/l.'7MI,*ul' 

,»n  7/'«,»f(u 

,04ull/u-uu 

•  ,l421o'/4*oi 
-.1601100*01 
-,1O04o88*01 
-.1604741*01 
-.1000282*01 

.2724284-00 
.1101 771*01 
.0808022*01 


.14110/0-00 
. 1742411*01 

•  lo2 /112*  01 
•4Jlb47|-U0 
.1400714*01 
. 722008b*0l 
.lub42'70*02- 
.1418710*02- 
.1017072*02- 
.2108112*02 

•  ooOl 021*  0 1 
.4488714*01 
.1441414*01 
.1020171*01- 
'.  Ib7  7041*01- 
'.10287/8*01- 
•4o0bl 7 0*01 

. /u80271*01 
.4710271*01 
.24b0l40*01 
.4222142-01 
'.1444182*01 
'.  1001401*01 
.1100000*02 
.  /26O141-00 
.4070201*01 
.74024/1*01- 
. i08o482*o2- 
■  14802b  7*02* 
.1410474*0..- 
.0712048*01 
.4117obO«01 
.4470814-00 
*.1021204*01- 
•.1172006*01* 
*.lol8b74*01- 
*.  Ibl04b4*01- 
.  7o2o240*01- 
.4971ti7/*01 
. 1 7b4ulu*01 

*.4  71/1 1  »-00 
*,  l'.ifl  /M  ''111 
*.  1 1.MO'llt  1 '  II 1 


.14/6168*02- 
. 1044004  *02" 
,2lbbl21*02 
.820b724*01 

•  0 1 41  7'jO*  J 1 
.2700/20*01 
.4ob2454-00 

.  1714041*1)1- 
. 174b7b0*01" 
.424b44b*01 
.0842747*01 
,b440b!8*01 

.241 7 141*  0 1 

• b0MbbO8-00 
.  Ib*»ij4b*01 

•  Ib0bb02  *0 1 
• Il00o00*02 
.  1 2 II 7  lbl  *01 
,4b7el 72*01 

.  /8i*7i.bb* 01* 
.  114boo4*02* 
,  1  b40  411  •  02* 
.  14/4241  *02' 
.Ob4l4lb*0l 
.4081 10b*0l 

•  1441 7ob*01 
.8127777-00 
.  iblb748*01' 
.1014082*01' 
.  102 . 4  u4  *0 1* 
.8180221*01' 
. bOMl 848*0 1 
.  28'IMI12*01 
.1111048-00 
. Ib4  7 /4l*  0 1 
.1002104*01 
. 1002bl0*01 

,20n8blo*01 

•  1 114114  *0 1 
, 411160/41  01 
.  7lt'll  1(14*01' 
,11'*.'  ill.'MI.' 
.l'./l'. 11*11.' 


.  I  ,,1111,114  •  II 1  ..'ll  l.'ll'flIMI.’ 

.  h  '•■'  V.'l’,  *  l’  l  .  1H /l. "»**•<•  1 
•  /  /I'l/llll-llll  ,'»|4lll'*'l-llll 
,4111111.101  *lll-.  I  ."*.'/  1  4  * II 1 
.  7112/21*01-.  Iol0'j/"*0l 
.I04b0bl*02-. I020b4l*0l 
.Ibllo82*02-.lb20717*0l 
.1474194*02  .6111010*01 
.2122810*01  .4440040*01 
.41b821o-00  .11110247*01 
' . lb 14000*  01* . 1 1441ol*0 1 
. 102120 7*01-. 1001404*0 l 


.  1621014*01- 
.1841041*01- 
.1/12021*01 
.4820710*01 
.08/8801*01 
.14(4110*01 
.lbbOOlS-01 
.1727784*01 
•17/b917*Ul 
.1100000*02 
.1701008*01 
.110(021*01 
.8141702*01 
.1182742*02- 
.1004489*02* 
•2012140*02* 
.08(2019*01 
.4400772*01 
.1708214*01 
.1948702-00 
.1100114*01- 
•lbl404l«ol* 
.1021029*01- 
.8114122*01* 
.Ol2bl4b*01 
,17/blbB*01 
.0840448-00 
.1114010*01 
'.1002149*01 
'.1604124*01 
.14/4211*01 
.1900091*01 
. 1144411*01" 
.8110211*01- 
.1211428*02- 
.1011418*02- 
.2041971*02 
.1484418*01 
.2124411*111 
-. 44142711-00 
".  I't*»  14I..1*  01  - 

•  ■  1  (i  ( < .!« .*  •  •  li  1 ' 

».liilii,Vl'»*ill' 

.1..  '(41.  III!  •  II 1 
.'ll  1,1.111, till' 
.1'  I'l'lfl  1  1  '  II 1 
,,*,'/  /ll'.'/ll— III! 

■  .  118004  7*0 1 
■•lb04277*01 
*.  1604717*01 
.1100000*02 
■.1141114*01 
.1840162*01 
.1114004*01 
.6160012*01 


.1117927*01 
.1824112*01 
.1100000*02 
.21b24bl*01 
.1182014*01 
.8846162*01 
.1211118*02- 
.1622811*02- 
.2061047*02- 
.7118771*01 
.1821688*01 
.2961411*01 
. 1201101-01 
. 1118906*01- 
. 1617144*01- 
.1621741*01- 
•86b9bl6*01- 
,b272124*01 
.1418182*01 
.1111948*01 
.9841412-00 
.1141184*01 
',1604740*01 
.9120016-00 
.2191174*01 
.1747148*01 
.9111816*01- 
.1276211*02- 
.1644277*02- 
.2114791*02 
.1641104*01 
.2709182*01 
'.1109214-00 
'.1169064*01- 
-.  161 1102*0  l* 
■.1614427*01- 
. 182894b*  0 1 
.6116142*01- 
.1118284*01 
.2161196-00 
■.11H141AI01 
»,  I'.ll'l  lull  01 
».|f,li(l.'71i*lll 
,  1.11111111111*117 
»,it#,."ll||i,-lllt 
.1*'4  .'*ll'*  111' 
,'j.lilMlilll 
,1/1(64  / 14*11 1' 
.  1294671*02' 
.1717878*02' 
.1546204*01 
.8140881-00 
■,1201411*01 
■, 1606684*01 
•.1628191*01 


.11,80197*02 
.2116801*02 
.8401888*01 
.7470890*01 
.4111291*01 
.1004981*01 
.1180121*01 
.16?6010»01 
.1711104*01 
.9184414*01 
.7144614*01 
.4110878*01 
.7828608-00 
.1226118*01 
.1606170*01 
.1604911*01 
.1784718-00 
.2942912*01 
.6212607*01 
.9620762*01 
.1111947*02 
.1711078*02 
.2211614*02 
.1111249*01 
.2«01240*0l 
.1646782-01' 
.1118760*01 
'.1191911*01 
'.1622141*01 
.1416100*01 
.7114611*01 
.4416059*01 
.1148124*01 
'.1178421*01 
'. 1196091*01 
-.1602470*01 
.1100000*02 
1204607-00 
,2'(64708*0l 
.1.147082*01 
. 41,1,12611*111 
.1  l',71?‘l*112 
,  i  /'i',/.,T*iir 
,4',  1 ,4  111- 1*111 
,24«,lt  /ml  Mil 
»,44l,'ill  l*(1|l 
i,,4n.i','i*m 
-.  lb( '/214*0l 
-. 1620716*01 
-.1620719*01 
.5857917*01 
•28*8111*01 
-.I6i2ll8-0u 
-.1141616*01 
-.i6ti*ti*ei 


60 

61 

62 

61 

64 

61 

06 

67 

68 

69 

70 

n 

72 

71 
7„ 
7l 

76 

77 

78 

79 
en 
81 
82 
8] 
84 
8l 
8( 

87 

88 
89 
*0 

91 

92 
91 
94 
*1 
9b 

97 

98 

'/9 

inn 
nil 
l"  2 

111  4 
1 04 
no. 
in,, 
in  7 
108 

109 

110 
111 

112 
111 
114 


451 


AJ'WL-TR-bT-lil,  Vol  IV 


♦ 


.l048182*u<-. 1029828*01-. 1o1X2u7*01  .1249204*C2-.16?9086*0l-.l6l839l*01  1  11*. 

.14o3211*02-.l629u93*0l-.l6184l3*01  .1oB7407*02-.16?9094*01-.1(,18418*01  1  11. 

.  I'td  3/28*u2  .0907788*01  .1300300*02  .2027883*01  .4b818«8*0 1-.  3sl  1 190*0  1  1  117 

.8923391-00  .3843b88*J1-.1A/3429*o1-.3089198-00  . 1994074*01-. 28699/2-0(1  1  lip 

-.1179186*01  .4i*iubbb*uu  . 1388734*01-. 1498209*01-. 8410872-00  .  2<'6BB48*(J  1  1  119 

-.lbU23o6*oi-.l48o422*01  .4879009*01-. 1631o83»01-.lb038«8*01  .6273013*01  1  12f> 

-.  Ib3/oa2*ol-.  lt>2  71  7b»01  .  aoobuoo  *0  1- .  io  3BB49*U  1- .  Ib3088  3*0  1  .9i)16800*0l  1  l?i 

-.Ib39uol*0l-.lo3l4o3*01  .11987o3*o2-.l639U22*01-.1631839*01  .1409710*02  1  122 

-.1639U24*01-.l631849*ol  .lo339oO*02-.l639024*Ul-.1631880»01  .1870227*02  1  123 

.7313220*01  « 1 3UUU00*02  .10l0ob9«u0  . 302 19o7 *0 1 - . 409387«*0 1- . 8 1» 7949-Om  1  12« 

.1924946*01-. 2478983*01-. 139#839*01  .43 70960-00- .863440 7-00-. Ib74b28*0 1  1  12s 

-.6210908-00  • 7496o3b-o0* .163084 3*0 l-.l 4b 192b*01  .236069b*01-. Ih80 704*0 1  1  126 

- « lbbb793*ol  .39708B2*Ol-.16b4 779*01-. 16687b8*01  . b66481 7*01-. Ibbbbb6*0 1  1  127 

-.1670743*01  .  7436803*01-.  Ibbb7b3*0 1- .  16 Mo23*01  . 9308610*01-.  Ibbb780*0l  1  128 

-. Ib71uo7*ol  . 1134863*02-. Ibbb782*01-. 1671073*01  . 1 348690*02-. l6bb782*01  1  129 

-.1671074*01  « lb7 3obo *02*. 16bb7 82*01-. 16710 74*01  .1809407*02  .77lB68b*01  1  13o 

. 1300000*04-. 472Bobb-uo  .2271874*01-. 4698209*01*. 1204926*01  .760244B-0u  1  13l 

-.3088834*01-. 181 lo27*01-.89343J6-00-. 14 71289* 01*. 1614249*0 l-.l4ll030*0l  1  132 

.141bOB6-0O-.lu4bl27«al-. 1631299*01  . 1 7b2b24*0 1* . 16834fc4*0 1- . lhbbO 72*0 1  1  133 

. 3362690*01-. Iubb474«ul-. Ib70212«01  .b0b6620*0 1- . 16bb726*0 1-. 1670927*0 1  1  134 

.bb2o69b*bl-.10bb774«ol-.lo710bl«01  . 8  7004 1 3*0 1- .  16bb761*m-.  1*71071  *0 1  1  13* 

. 1074063*02*. lobb7B2*Ol-. 1671073*01  . 1 2B8070 *02- . lhVj7e2*0 1- . Ip7 1 074*0 1  1  13f 

.Ibl2266«02-.lbbb782*0l*.lb71074«oi  .1748687*02  .8131631*01  .1300000*02  1  137 

-.9192870-00  . 1496234*01-. 6316636*01-. 1402691*01  .2868667-01-. 3704384*01  1  13b 

-.16  79398*01-. Ill  1672 *01-. 2090280*01*. 1634927*0 1- . 18b9696*01- . 4 777004-0  0  1  13a 

-.1660829*01-. 1686328*01  . 1 133272*0 1-. 16^4716*0 1-. 16686 12*01  .2743426*01  1  140 

-. 1686641*01-. 1670696*01  . 4437383*01 -. 1668788*0 1- . 167 10  1 0 *0 1  .6209338*01  1  14i 

-.1688779*01-. 1671064*01  .  008 1 148  *0  1- .  1 1.88  782*01 -.  167 1072*0 1  .1012137*0?  1  14? 

-.1686782*01-. 1671074*61  . 1 226 143*0?- . 1688782*0 1 -. 167 1 0 74*0 1  .1480339*02  1  14J 

-.  1688/82*01-.  16/1074*U1  .16X61.60*02  .8817103*01  . 1 300000 *02- .  1207334*0  1  1  14*. 

. 77299 jO-Oo-. 8693009*01-. 1810780*01-. 88 73372-00-. 4278062*01-. Ibl3996*01  1  145 

-.1400918*01-. 2668336* 01 -.1648068 *01-. 1631 02 l*01-.l 086189*0 l-.lb83480*01  1  14* 
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01 ANE/8CAT  PHLN0L1C-1A  Tl*»PC  .bblbo7-34.  lEV.  SAUT  INPUT  TAPE  125o  11-8-67 
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1107.  .1100000*02  1  0 
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.2101423*02-. 1750783*01  .1/37945-02  .2 3 lb30b*l)2-.2hl 9Ah5 •  0 1- .  1  83 1?  14 ♦  0 1  1  13 

.2642023*02-.272o942*ul-.25/5849*0l  .2/68385*02  .4064651-00  .1300000*02  1  U 

•  11  b3 7 J4 ♦  02  .13716/1*02  •  1 1  20432* Ul  .11285/2*02  .1337897*02  .34Ab7b3*0l  1  lb 

.1072433*02  , 131 5b0o*0*  .ol01/o9*0l  .9904459*01  .1226202*02  .B.,734lb*0l  I  I  h 

•  8b73u31«01  •  1069237* 02  .  1094918*02  .0865636*01  .8904814*01  .1289567*02  1  17 

, b02bbl 9*01  .7013293*01  .14/0350*02  .3226433*01  .5099725*01  .1851134*0?  1  In 

.1662039*01  •  329071 8*01  .1044ob3*02  .2064309-00  .1634667*01  .2065612*02  1  19 

-,13b4b71*0l-.2090o4b-00  . 2291311*02-. 221Bb47*01-. 1781306*01  .2b20000*02  1  20 

-.243b744*ol-. 2309904*01  .2769j/0*02  .8109332-00  .1300000*02  .1320778*02  1  2l 

.1390296*02  .2027477*01  .12*10130*02  .1362724*02  .4804134*01  .1186231*02  1  22 

.1296660*02  .7040167*01  .1040404*02  .Ilb27h0*02  .9039274*01  .8773396*01  1  23 
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.1400260*02  .3u23132*0l  ,4/118668*01  .1689147*02  .1741286*01  .291o272*0|  1  32 

.1704046*02-. 9482201-01  .9/49307-08  . I  9960 1 4 *02-. 136091 9*0 1 -.884 1 ol*-00  1  38 

•  22l9u90*02-.l83<642*0l-.  10  »63o3*0l  .2460072 * 02- .  1 940448* 0  1-.  1 00991)4 *0l  1  34 

.2069002*02  . 100943. i*ul  .1300008*02  .12890/0*02  .1338732*02  .2(04304*01  1  3', 

.1201917*02  .129o91/*02  .4801/39*01  .1170927*02  .1241926*02  .6843682*01  1  3h 

.1027101*02  .11 22o60*u2  .8429004*01  .8616042*01  .9681904*01  .1017916*02  I  37 

.0669426*01  .  7940944*01  .11  *0688*02  .61  30827*01  . 1, 1<U<<81<0I  .1389097*02  1  30 

.3362900*01  .4341944*01  .1666108*02  .1341639*01  .2616808*01  .1760132*02  I  39 

-.4600/04-00  .6636904-00  .196/110*02-. 1643042*01-, 1184248*01  .2172160*02  1  40 

-.  18000/4*01-.  1  783106*01  .23'*  74  76*02- .  1  403600*0 1  -.  1*184774  *0 1  .2,  ,36041*02  1  4j 

.1946910*01  .1300000*02  .1210413*02  .1301721*02  .2772799*01  .1204018*02  1  42 

.  1 2ol 220*u2  .46*. 0831*01  .11.V8, 79*02  .1284281*62  .t.370!l.O*OI  .1003228*02  1  43 

.  1 0  /O240 *02  .013/0/9*03  .1(339  *01*01  .9119671*01  ,9679928(01  .1(1,19211*01  1  44 

./3o6u  #tl*ol  .H69o/4*u..  .40381.41*01  .6660116*01  .  1 336994 » 02  .2., 13813*01  1  4., 

.3046926*0*  .1610032*02  ./013o00-00  .1/04193*01  .  I  7(15059*  02- .  8*290  /  l-Oli  1  4f, 

-.1296443-00  .191oool*02-. 1042340*01-. 1432611*01  .2 120 1 46*02-. I p2n046*0 1  1  47 

-.100061  7*01  . 2361 U4 1  *02— .  10  /*» 734 *01  —  .  18667 73*6 1  .2*.8M624*02  .2302686*01  1  4fl 

,1300000*02  « 1  1240  72*Oc  .1260606*02  .2601236*01  .1119344*02  .1213170*02  1  49 

.4266116*01  .1070024*02  .1143364*02  .6037999*01  .9616166*01  .Io08b36*02  1  5o 

,7760670*01  .7643430*01  .0341700*01  .950l743*ul  .6631603*01  .6461209*01  1  51 

.1116009*02  .3661616*01  .4o3bb73*01  .1268049*02  .1960236*01  .2804159*01  1  5; 

.1467017*02  .1036813*00  .9730338-00  . 1666776*02-. 1 1 83486*01- . 7426909-00  1  53 

.1800423*02-. 1719764*01-. 1046166*01  . 20 74634*02- . 1858226*01- . 1839512*01  1  54 

.2296743*02-. 1879096*01-. 1861691*01  .2535065*02  .2708050*01  .1300000*02  1  55 

.1004661*02  .1177993*02  .2126617*01  .9925491*01  .1129416*02  .387*772*01  1  5o 
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.9578604*01  .Io4o693*02  .  5b0b7o5*01  .Bo35299*0l  .  94b?P4«01  .7300*24*01  1  57 

.6943/63*01  .717oJiJ*ui  .04621  77»01  .5036142*01  .>377825*01  .1060140*02  1  5p 

.3U23Ul4*ul  .3514554*01  .  1230ib4*02  .1046245*01  .16*0600*01  .1408434*02  1  56 

-.54ol4B4-00-.bu2b<3/-ul  . I54too8*02-. 1501770*01-. 137744b*01  .1794735*02  1  bn 

-. 1606121*01-. 1742502*ul  .2Ul3i5U*02-.l362f.<l*ol-.  1844631*01  .2238997*02  1  61 

-•181345/*0l-.l  7452  76*01  .2440  /86*02  .3113515*01  .1300000*02  .8636216*01  1  b2 

.1094286*02  • 16641uo*01  .  6547  >,»o*  0 1  .1035544*02  .3342075*01  .8064288*01  J  63 

.9296347*01  .5080062*01  .7046/07*01  .7705021*01  .674  7.J.J0*  01  .5<,40b61*0l  1  b* 

.5912249*1/1  .0  384  90  7*01  .3695548*01  .4142503*01  .1000800*02  .1925984*01  1  65 

.2409943*01  .1170731*02  .3301317-00  .8551778-00  .  1 349273*02- . 8910610-00  1  bb 

-.2456566-00  .ls413Bl*02-.1537o03*01-.121tll5*01  . 1751915*02- . lbB5967*0l  1  67 

-♦ 160  7ooB*0 1  .1969364*02-. 1650094*01-. 1622730*01  .2199838*02-. Ibl0l27*0l  1  68 

-.1540031*01  .2440017*02  • 352b300«0l  .1300000*02  .8224901*01  .1013809*02  1  69 

•1150o33*ol  .7310756*01  .9275040*01  .2845473*01  .eS71B36*01  .8077241*01  1  70 

.4513408*01  .5251848*01  .0500244*01  .0158129*01  .3832690*01  .5165085*01  1  7l 

.7805444*01  .2412270*01  .3446801*01  .4474251*01  .4427020-00  .2625664*01  1  72 

. 1122 45 0*02-. 2930220-00  .1235844*01  . 1 305335*02-. 1 150 707*0 1- . 1075674*00  1  7j 

,144B238*o2-.151026l*01-.1146373*01  . 1 704b 74*02-. 1580977*0 1- . I3I6 749*0 l  l  7* 

•  1914020*02-.  1574252*01-.  1556o  74  *01  .  2 145258*  02- .  157270  0  ♦  0  1- .  1 554448*0 1  1  7*> 

.<382493*02  .0000000  .0006000  .0000000  .0000000  .0000000  1  7b 

4 

OlAUtVbCAt  9H6 T C A  14  M*tO.  tc*V .  ( 1 . -2250 . 1  Cl/KTo-APoL  11-25-66 
.1400090*02  • Bbl OOOO  *  03 
1124.  . 2 1 oOOOOt  *  02 

.0000000  . 130000I<<O<  .6360437*01  .  4e /54«8*0  l- .  2662 1 75-00  .6704824*0  1  1  1 

.4504300*01  . 1 908o40*  0 1  .0027136*01  .4381302*01  .4465035*01  .b39Bb74*0l  1  J 

.9004240*01  .  7080687*01  • 5808  >22*01  .8221526*01  .9422521*01  .4918423*01  1  3 

.7171276*01  . 1 1462b 7*02  .3812964*01  .6375975*01  .1363218*02  .2638152*01  1  4 

.4410147*01  . Io00605*02  .U4b4o9*0l  .3156651*01  . 1 822594* 0?- . 5b76764-0n  1  5 

.1324305*01  . 2041762*02-. 2147705*01-. 6503493-00  . 2262645* 02- . 3o83742* 0 1  1  b 

-.24627oV*01  .2488244*02-. 3354154*01-. 3266519*01  .2725677*02  .4054651-00  >  7 

.1300000*02  .4169657*91  .1115098*02  .1271949*01  .9009846*01  .1089895*02  1  P 

.3438773*01  .8750252*01  .1066*35*02  .574/365*01  .8293866*01  .1011945*02  1  9 

.7990001*01  .7512059*01  .9091505*01  .1020165*02  ,6408134*01  .7713306*01  1  lo 

« 122 13o 7 *02  .4950104*01  .0218449*01  .1410003*02  ,314499b*01  .4375091*01  1  11 

.1545904*02  .1182044*01  .2440370*01  . 1 785606*02- . 726 732b-0v  .4*,74919-0p  1  12 

•  1442  7o5*02-.<20599b*ol-. 1305 733*01  .2214446*02-. 281 7475*01*. 2418279*01  1  13 

.<459d37*o2-.2900652«01-.2B50JU2*01  .2711243*02  .8109302-00  .1300000*02  1  U 

.1108015*02  .1183227*32  .2100190*01  .1070339*02  ,11500ir*02  .4228613*01  1  15 

.1015075*02  .1101625*02  .6417363*01  .414^953*01  .100116>«02  .8414305*01  1  lb 

.7864553*91  .8682235*91  .1U21136*02  .6354144*01  .7122866*01  .1190478*02  1  17 

.4637568*01  .5544554*91  .1367614*02  .3247645*01  .4174408*01  .1560791*02  1  Ip 

.1466334*01  .2576704*01  . 1 766697*02-. 4239082-00  .b271b32-00  .1978446*02  1  19 

-.1V360UO*U1-.1214092*U1  . 21 96126*92**2 58 7600*01*. 237444 1*01  .2429720*02  1  2p 

-.2656174*01-. 2622239*91  .2677291*02  .1223775*01  ,1300000*02  .llbb009*02  1  2l 

.1161446*92  .2470241*01  .1115058*02  .1123898*02  ,4429359*01  .1035431*02  1  22 

.1056284*92  .63062 25* 0 1  .4315664*01  .4746144*01  .8105480*01  .8019590*01  1  23 

.8679545*01  .9902027*01  .b5267o3*01  .7460829*01  .1169107*02  .4831070*01  1  2u 

.5619434*01  • 134401 1 *u<  .3146230*01  .4029928*01  ,153480b«02  .1363687*01  1  2s 

.2256114*01  . 1732914*02-. 48O4<47-00  .3845829-00  . 1947120*02-. 1884308*01  1  2b 

-.1344660*01  . 2165102*02-. 2414<28*01-. 2305007*01  .2343038*02-. 2442414*01  1  27 

-.2419647*01  .2638598*02  .1604438*01  .1300000*02  .1144896*02  .1159322*02  1  28 

.2423932*01  .1040408*02  .1106034*02  .4217368*01  .1011773*02  .1047648*02  1  29 

,6063704*01  .9162441*01  .9746392*01  .7889378*01  .7871443*01  .8539757*01  1  30 

.9696406*01  .6327231*01  .7039031*01  .1138832*02  .4619551*01  .5388227*01  1  3l 
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.  1  314242*02  .2u35204*01  .3o10>160*01 
. Ib4oo42*02-.  tali*  73-00  . J104o60-Ol 
.  212O69b*02-.22J'*oJ  3*0 4 -.2  1562w9«01 
,2b00176*02  .19*5910*01  .  1300  jOO  *02 
.1074449*0*  •  1o412  72*02  .4026J'»8*0l 
.4020034*01  .4o03931*01  .7b29974«01 
.59o44u4*ol  .oo71 191*01  .1106490*02 
.253/447*01  .  33316*4*01  .1470505*02 
-. 9963425-0 J-. 39424m 4-01  .16/5346*02- 

-.2054  747*0 l -.2006060 *01  .2326322*02- 
.2302565*01  .1300000*02  .1041  444*0* 
.1076476*02  .3756404*01  .4797o5B*01 
.9345711*01  .  7313724*01  .7075669*01 
.b3403o0«0l  .  1074054*02  .3694  732*01 
.3052667*01  .  1437010*02  .3297190-00 
-.4526322-00  . Ib34763*02-. 1662o66*01- 
-.1965163*01  .2262 1  Ob* 02-. 29* l  706*01- 
.1300000*02  .10b3oo3*02  .109H93B*02 
,3412516*01  .4559423*01  .1002127*02 
.6925074*01  .6853462*01  .74h73*3*01 
.1035404*02  .3269405*01  .4l23j77*01 
.  1391204*02-.  2543009-1,0  .4920940-00 
.176b9o2*o2-.lbb0o79*01-. 160034b* 01 
. 2229b Jl *02-. 1934695*0 . -.1920u97* 01 
.1017*00*02  .1067771*02  .1302516*01 
.9227512*01  .9566973*01  .47o22o3*01 
.6lo32j3*ol  .o765l«i3*ol  .6211593*01 
.2627426*01  . 3251*42 ♦  0  1  .  1 1  J«  5’t  7*  02 
-. 75154 76-uO-.130Bb49-J0  . 15260 16*  02- 
-.1611 741*01-. 1776234*01  .195.u29.02- 
-. 1626051*01-. 10134  30*01  ,24  IB  7j3  *02 
•  1 022  5u0*  02  .O06l.oB-.J0  .9234104*01 
. B  735096*0 1  .4326422*01  .  7020  797*01 
.5602047*01  . 76656/2*01  .3022955*01 
.2736970*01  . 4106165*02  .3121712-00 
-.3760445-00  .147o925«02-.lol9450*01- 
-.1710046*01  .1900659*02-. 1 736920 *01- 
-• 1696o53* 0 1  ..360367*02  .3912023*01 
.42*0144-00  .0374272*01  .0023u08*01 
.3636205*01  .6256613*01  .ob7Bo40*01 
,71 b693  7*01  .2962130*01  .3711504*01 
. 1055005*02-. 227o0o 7-. JO  .7253857-00 
. 142663 1*02*. 1584648 *01-. 14 06490* 01 
. 1654315*02-. Ib5b35 7*01-. Ib40 67 7* 01 
.2316414*02  .4246445*01  .1300000*02 
.8052960*01  .6429943*01  .1722735*01 
,5b64b09*01  ,6211b! 7*01  .5006929*01 
.2341923*01  .3367646*01  .6424123*01 
-.5566596-00  .4317234-00  .1197594*02- 
-.1565914*01-. 1497203* 01  .1591334*02- 
-.1649557*01-. 1636698* 01  .2029624*02* 
.4605170*01  .1300000*02  .8331545*01 
.§164065*01  .1274744*01  .6724069*01 
.5720115*01  .4668983*01  .3482099*01 
,2861677*01  .7980821*01  .2281032-00 


.1502736*02  .1012789*01  .1858067*01 
.  1408842*02-. 1° 11623*01-. 1539000 *01 
.2 3581 52 *02*. 2 257487*01-. 2236838*01 
.1120571*02  .1142562*02  .2250511*01 
.1011399*02  .1046003*02  .5839522*01 
.7484521*01  .6227806*01  .93"2287*0l 
.4231352*01  .5070578*01  .1286741*02 
.7093901-00  .16181*6*01  .ibb4727*02 
,  18544 92 *01-. 153 9436*01  .2o9bl40*02 
.  2087782*0 1-.20 71 191 *01  .25672b3*02 
.1126093*02  .1998267*01  .1055618*02 
.1026464*02  .554356b»01  .87,05514*01 
.7848144*01  .9043327*01  .5522603*01 
.4715410*01  .1251734*02  .2175578*01 
.1314824*01  .1632080*02-. 1204 147*01 
. 1646004*01  ,205630P*02-. 20 17423*01 
.2000591*01  .2620522*02  .2708050*01 
■  16*3027*01  • 1026196*02  .1058640*02 
.51/3321*01  .((342313*01  .8436929*01 
.6b54923*0l  .5111097*01  .5*71957*01 
,1'10603*02  .1426944*01  .2305736*01 
.  1580  710*02-. 1451290*01-. 1071640*01 
.2003282*02-.1938527*01-.  1926138*01 
.246(1715*02  .3113515*01  .1300000*02 
.4937166*01  .1032002*02  .3035277*01 
.7913434*01  .8376405*01  .6523700*01 
.4346714*0;  .4977434*01  .9462666*01 
.7(184234-00  .  1513763*111  .133h516*0? 
.155 7805*01 -.134 7602*01  . 1735745*02 
. 1845055*01-. 1H28«67*01  .2179805*02 
.3526360*01  .1300000*02  .9574930*01 
.4706947*01  .2611*35*01  .8411781*01 
.7377035*01  .6025470*01  .5353279*01 
.4257660*01  .4333313*01  .1m45372*0i 

.  1217026*01  , 128bh*>2  *02-.  94961 3b-Oo 

.  14  322*1*01  .16* 354 3*02-. 1753*58*01 
,17 19540*01  . 2 12928b* 02-.17l25b8*0l 
.1300000*02  .8877927*01  .9575676*01 
.2134793*01  .76*4528*01  .7950531*01 
.551*652*01  .4661174*01  .5209595*01 
. 68163  76*  0 1  .1308127*01  .2lB5795*0l 
.12 3 7225*02*. 1236 10 7*01-. 6308949-00 
. Ib37l 61 *02-. 16*3730*01-. 1610055 *01 
.20  79589* 02-. 1654  4 1 8* 0 1-. 16*0469*01 
.856068**01  .912*735*01  .237*l9b-0l 
.7161131*01  ,7479*52*01  .3*12528*01 
.3462255*01  .4783117*01  .67584*7*01 
.8028744-00  ,1435083*01  .1016491*02 
.1329903*01*. 8756332-00  .1386592*02 
. 1634629*01-. 162 0b76*01  .1805566*02 
.  16922*4*0 1-.  1636’*69*  01  .2266150*02 
.8*5*250*01-. 4196661-00  .7765316*01 
,7102663*01  .2979119*01  .5116818*01 
.431*497*01  .6336060*01  .1854934*01 
.12*8141*01  ,96900*5*01-. 9676575-00 


32 

33 
3* 
35 
3* 
3? 

38 

39 
*0 
*1 
*2 
*3 
*4 
*5 
*6 
*7 
*8 

49 

50 

51 
5  2 
53 
5* 
55 
5h 
57 
5n 

59 

60 
61 
62 

63 

64 

65 

66 
67 
b8 

69 

70 

71 

72 

73 
7o 
75 
7b 

77 

78 

79 

80 
*1 
»2 

83 

84 
»5 
*6 


455 


AFWL-TR-67-1  il  .  Vol  IV 


••.lijj.i.-uu  .  I  I  Hu.MI  i.l  •  *1  »  i  I  -  *  I  »"•  Ml*t  I  ,  l  #  1  n.  *.-.M  n  |  |  t\  , 

I'JU^UUU*  u  i  •  I'jJtll  J$*V*I*.  iuJ*  U  1*.  iii  iui'jti  u  |  l  ftji 

••lto.)lu41+ul  .  i*7o‘/e**u*-.  ioJ«*  .b01U63b»0l  1  89 

•1JUU00U»U2  .?d*!>ul**ul  .6bbb2l7«01-.*2lh4rtto-00  . 721Q**8*01  .7*1862^*01  1  9p 

,765b 725-00  .bUbbuU 1*01  .o*  <0057*01  .24>lb391*ul  .4*41227*0  k  .*973526*01  k  <»k 

.4147866*01  .27*3266*01  .342*170*01  .57/7738*01  ,105B4J0*Q1  .  k  rt  k  k  ••  30  •  0  k  k  <>2 

.7393j72*ul-.  316500O-00  .ioubouk-00  .  906*960  ♦  0 1  - .  k  k  2*699  •  0  k  - .  *280  k  b7 -0  r)  k  9j 

.lU6oo69*U2-.l49146e*01-.14‘t9i,o.ui  .12/5017*02-. 1598095*01-. 1577161*01  k  9h 

.1460413*02-.le0935b*ol-.16936b7*01  .lo963*9*02-. 1609981*01“. l59549a*0i  1  9s 

•  1919  730*02-. lb*  0041 *01-. 1595oe0*0 1  .2156096*02  .5*16100*01  .1300000*02  k  9h 

.6956761*01  .792395o*0l-.1425b0l*01  .61686*4*01  .6799495*01  .2652580-00  k  9? 

•  49  73*2 k ♦ 0  k  .5413  706*01  .1931105*01  .3*25920*01  .3866309*01  .3563*16*01  k  9 8 

.1655674*01  .2425690*01  .516*266*01  .4072000*00  .1092169*01  .bfl063G7*0l  k  *f, 

-. 7509565-00-. Ib60l9a-o0  .651 3100*0 k*. k 361h63*0l-. k 125169*0 k  .1029291*02  1  19o 

*. 155<593*0  1-. 1505526*01  . 1216o90*02-. 15967*9*01-. 1583871*01  .1*20761*02  k  k  01 
-. 1606613*01-. 15937o**01  . 163*646*02- . kbUbk 16*0 k*. 1592361*01  .1659316*02  k  k02 
-. 1602962*01-. 1589u67*01  .2o95'/ao*02  .56289*6*01  .1300000*02  .bl*9165*0l  1  ku3 

•  7 100136*01". 197231  k ♦ uk  .5220465*01  . b9 3b32 1 *0 1*. 3088052-00  .3960702*01  1  1G« 

.4654*94*01  . 1  1363u5*ol  .23rtOlob*01  .3264397*01  .2471*67*01  .8247291-00  1  105 

•  18kb4k  7*01  .4b942kb«ul-.42bk0bl-00  .3b372*3-00  .6208994*01-. 1 180720*01  1  kUb 

-.  b3M2u  7  7-Ou  .7704774*01*.  k4b7»  74*01*.  k4Ubo28*Uk  .9679072*01-. 1566125*01  1  107 

*.lSb42«l*Ul  .  k  kbb4 10*U2*.  Ib9b4  7b  *01*. 1062  0  3b  *01  . 13b9bBO*02*.  k*>99782*0l  1  108 

*.kb8b|39*ul  .1573754*02-. 1600*40*01-. 1566636*01  . 1747960*02- . Io00588 *0 1  1  109 

*. lbobbo  k  *U  k  1*034201*02  .u214b00*0k  .  1  300000*02  .bb09747*01  .6341957*01  1  1 1 o 

- .2b0b9 71 *0 1  .4733128*01  .b209241 *01*. 851b 1 b9-00  .3294443*01  .3918440*01  1  111 

.7950990-00  . Ib322lb*ul  .240b79k«01  .2409178*01  .2020b44-00  .9599931-00  1  112 

.4024iH4*ol*.  74534*9-00*. 2683711-00  .bb37384*01*. 1298391 *0 1* . 1 155915*01  1  113 
.7333o*2*0l-.1524204*01-.l44t.i»a3*01  .41 O6M07*0 l- . 156*93b*01-. 15*2084* 01  1  114 

. 104 7ad2*02-. 15  <4004*01-. 1564 10H*01  . 1301908*02*. Ib00742«01*. 1585447*01  1  lib 

. 1515915*02*. Ib00911*01*. 1565593*01  . 1  740 1 1 1  ♦  02- .  1600930*  0 1  -.  1 585604*  0 1  1  Ilf, 
.1976432*02  .o551Ub0»0l  . 1300000*02  .4818133*01  .b7bl03b*01*. 2974354*01  1  1 k 7 

•  4  03k  2o9*  o  1  .4543595*01*. I3379o3*0k  .2b<8930*01  .3120598*01  .2914567-00  1  Ilf 

.1159796*01  .1670060*01  . 1 91 1500*01 1 8 1 7810-00  .2799366-00  .3b25297*0l  1  119 

-.1034729*01*. 6362427-00  .513bl70*01-.1442olb*01-. 1406881*01  .6h30312»01  1  12o 

*. 1573650*01-. 15579a**0l  . a«.023*O *0 1- . 1 5974 82* 0 1 -. 1 58 280 7* 0 1  .1047416*02  1  121 

-•Ib00oa2*01*. I56b395*01  . 1251438*02- . 1601089*01-, 1 586658*01  .1465444*02  1  122 

*.1601137*01-. 1586913*01  . 1689o40*02-. 1601142*01-. 1586919*01  .1925961*02  1  123 

. b90 7  755*0 1  .130U000*02  .3732840*01  .493536B*U1-. 3489041 *0 1  .3012815*01  1  124 

.3b«03o7*01-. 1861305*01  .1  77179».*01  . 2236129*  01*. 2365078-00  .3362b23-00  1  12j 

•  763b7o0-o0  .13B03b7*ol-. 6140249-00-. 5199476-00  .2991647*0 1- .  1  394071  *0  1  1  12*. 

-•  1265o93*01  . 46U  1492*0 !’•.  1568^ tib*  01 -.1533728* 01  ,6295365* 01- .  1597919*0 1  1  127 

-.1576317*01  . 60673 39*01-,lb02b 39*01-. 156571 0*01  .993914**0 1-. 1 &03357 *0 1  1  128 

-.1586646*01  . 1197937*02-. 1603451*01-. 1586998*01  . 141 1943*02- . 1603462*0 1  1  129 

-.1567015*01  .163o139«U2-.1o034b3*01-. 1567017*01  .1672480*02  .7313220*01  1  13n 

.1300000*02  .2297704,01  .4107050*01-. *064454*01  .1292870*01  .2665509*01  1  13l 

-.2*61421*01  .7726327-01  . 122009b* 01- .64 1 5712-0C-. 9333929-00-. 1 925517-00  1  132 

.7730174-00-. 1*19711*01-. 1151122*01  .23836* l *01-, 1 564823*01-. 1 *9071 7*0 1  1  133 

•  3993334*0 1-.  Ib999,»3*0l-.  1570977*01  .568?  I  74*  01- ,  1606696*0  1-.  lb»5961  *0  J  1  13* 

. 7*59143*01-. Io07a81*01-. 1568535*01  .93309*7*01-. 1608069*0 1-. 1568942*0 1  1  13J 

. 1137117*02-. Ib0809**01-. 1586996*01  . 1351 123*02-. 1608097*01-. 1569002*01  1  13b 

•1575319*02-. 1608097*01-. 1569o 03*01  .16116*0*02  .7718665*01  .1300000*02  1  137 

. 73*9222-00  .3220927*01-. 46654 76*01-. 3336182-00  . 1791591 *0 1-. 3064224*01  1  138 

- , 1 1 03u77*0 1  .3002559-o0-.14*6b32*01-. 1452166*01*. 8898676-00  .Ifc50206-0C  1  139 

-.1572372*01-. 14260*0*01  . 1775*86*0 l- . 1608680*0 1-. 156*364*01  .33651*5*01  1  l*o 

-,  161 777§*0l-, 159 3b 78*01  .5078978*01-. 1616(40*01 -, 1597937*0 1  .68509*5*01  1  1*1 
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16 14iol«0l-. 1696694*01  .0722  749*01-.  lol92 12*01-. 
-.1614*18*01-.  1644071*01  .  1240304*02-.  1619219*01-, 
1614214*01-.  IWi  74*01  .1760d21*02  .0000000  . 


i  r>«»9o?>  i  *01 
1549073*01 
00O0000 


.1076297*02 
. 1514600*02 
.0000000 


OUNt/iOAT  ubLTft  IV  Futv.  T£*V,  I 
. 1900000*02  •  86 1 000  0  *  0  3 
1125.  .2lOOOOOt*U., 

.OUUUOUU  .130UJOO*02  .0300467*01 
.95046  U*i*Ol  . I40do40*0l  .0027136*01 
.9004240*01  .  708Uod?*01  .6806622*01 
.71/12/0*01  .1146207*02  .3812)04*01 
.4V101V7*0l  .1600006*02  .ll4t*oV*01 
. 1324306*01  .2041702*02-.21V77a6*01- 
-.2462  7oV*01  .248024  4*02*. 336V 16V*01- 
.1300000*02  .V16V06'<*01  .11160Vb*02 
.3430773*01  .6760262*01  .1006)38*02 
.7VVO0Ol*ol  .7612060*01  . V0V16o6*01 
• 12213o/«o2  .4VBol04*oi  .o21644V«01 
.  16V8jo4»02  . 1  162044*ol  .2440370*01 
.  1VV2  706*02*.  220 6  Wo* 01*.  1306  733*01 
.246V637*02-.2V08o62*Cl*.2d60002*01 
.1100018*02  .1163227*02  . 21 OOVVC«01 

•  10180 76*02  .  1 101o28« 02  .o4173o3*01 
.7604863*01  .8062238*01  .1021136*02 
.4837666*01  .88V4884*m  .I3h7ol4*02 

•  1 48o33V*oi  .287o70**01  .17o6o07*02- 
-. 1V3oo00*01*. 1214002*01  . 214bl2b♦02- 
-.*65ol  74* ol*. 2022230* 01  .2677241*02 

.1161440*02  .2470241*01  .1116388*02 
.1066264*02  • u30d2  2  6*01  .V318oo4«01 
.8674848*01  . V40202 7*01  .o8267o3«01 
«  881  VV34*u  1  ,  134  Vol  1*02  .3141,2^1*01 
.2286114*01  . 1 73241 4* 32*. 46042V  -00 
-, 13o4on0*01  . 4 168 102 *02*. 24 14226* 01* 
-.2414047*01  .2o36846*02  .1604*38.01 
.2426432*01  .10VO40b«o 2  • 1 10b J34*d2 
.6068  704*01  .4162441*01  .4746342*01 
.9048406*01  .0327231*01  .7034331*01 
.1314242*02  .2836204*01  .36100(10*01 
,1646042*02-. 7613473-00  .3104„o6-01 
.21 200 80 *02-. 22 3463 3*01-. 21 60204*01 

•  26001  78*02  .1948410*01  ,130U0O0*02 
.10 744  44*02  .  1091272*02  .4U26o48*01 
.9026634*01  . 4o03931 *  ul  .7624974*01 
• 84049d4*U 1  .6671191*01  .1108490*02 
.2837447*01  .3331644*0*  .1470808*02 

-. 9463428-00-. 3942464-01  .  1875348*02- 
-.2084 747*0 1-.2UU606O* 01  .2320322*02- 
.2302885*01  .1300000*02  .10404*9*02 
.1078476*02  .3788904*01  .9797<j88*01 
.9348711*01  .7313724*01  . 7075do4*01 
.6340360*01  .1074084*02  .3894732*01 
.3052887*01  .1437010*02  .3297140-00 
-.4828322-00  *1839763*02-. 1662866*01- 
-.1988183*01  . 22821 06*02*. 2021 708*01- 


1  •  -*7280.  »  C1/HT»-»F»L  1 1-28*60 OQUOv 


.96 78488* 01 -.2662 178-00  .6704824*01 
.9301 302*01  .4466038*01  .6398674*01 
.8221820*01  .9422621*01  .4918923*01 
.6375976*01  .1363216*02  .2c3eiS2*01 
.3166661*01  . 1822694 *02-. 6676764-Oy 
.6603443-00  ,2262646»02-.3083742*0l 
. 3266619*01  .2726677*02  .4^4651-00 
.1271944*01  .4004848*01  .1089896*02 
.6747365*01  .8243866*01  .1011945*02 
.1020165*02  «b406134*01  .7713306*01 
. 1 4loo03*U2  .3149496*01  .4378091*01 
. 1708606*02-. 7 26 7326-00  .46 79919-0 t 
.22 14446* 02-. 28 17478* 01 -.24 182 79* Ol 
.2711243*02  ,ul04302-00  .1300000*02 
.10/0339*02  .1150010*02  .4226813*01 
.4194053*01  • 1001 160*02  .8414305*01 
.6354144*01  .7122866*01  .1140478*02 
.3247645*01  .417440b*01  .1660791*02 
.4239082-00  .6271632-00  .1778446*02 
.258 7600*01 -.237444 1*0 l  .2429720*02 
.1223776*01  .1300000*02  ,llb6009»02 
.1123898*02  .4424354*01  .1035431*02 
.4746144*01  .8105480*01  .8019590*01 
.7400629*01  .1169137*02  .4d31070*0l 
.4029428*01  • 1614806*02  .1363887*01 
.3846624-00  . 1447128*02-. 1«843U8*01 
.2306807*01  . 2343038*02-. 244241 4 *01 
.1300000*02  . 1144896*02  .1169322*02 
.4217368*01  .1011773*02  .1047448*02 
.7884378*01  .7871443*01  .8539757*01 
. 1 1 38032*02  .4619551*01  .6308227*01 
.1502736*02  .1012784*01  .1858067*01 
. 1 408642*02-, 191 1623*01-. 1639000*01 
.2368152* 02-. 2257887*01-. 2238838*01 
.1120671*02  ■ 1142562*02  .2250511*01 
.1011394*02  .1046003*02  .5839522*01 
.7484621*01  .8227806*01  .9382287*01 
.4231362*01  .6020578*01  .1286741*02 
.7043401-00  .1818186*01  .1664727*02 
.1854442*01-. 1539936*01  .2096140*02 
.2067782*01-. 2071 191*01  .25672b3*02 
.1126093*02  .1998267*01  .1055618*02 
.1026464*02  .5543566*01  .8605514*01 
.78*6149*01  .9043327*01  .5522603*01 
.4715410*01  .1251734*02  .2175578*01 
.1314824*01  .1632 080*02-. 1204147*01 
.1648064*01  .2056308*02*. 201 7423*01 
.2008591*01  .2520522*02  .2706050*01 
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4 


I 


.1300000*02  .1y33oo3*U2  .1096936*62 
.J»i« lo*oi  .V3bv»2j«„i  ,iuu2127*u2 
,o9«;3e/4*ui  . odbJ»o«!*ui  .  7* j 7 j» 3* o l 
.1033464*02  .3269403*01  .41230/7*01 

•  1  391,;J4*u*-.2343j64-uu  .4920990-00 
.  1  ;869o2*U2-.ldbUd/9*01-.  1600  346*01 
.*22  9t,3l*o2-.  1  I»j4b,7'j»U  1*.  1  920u*7*0  1 
.101/466*02  .106)771*02  .1332316*01 

•  922/,»12*0  1  .9366973*01  .47b22O3*01 
.6103233*01  .  b’b_ilb3*ul  .b211j93*01 

•  262  7126*01  .3231422*01  .11503*7*02 
-.731347o-UO-.13tU643-dU  .1328016  02- 
-.Ibll74l«ul-.l;7b23n«ul  . 1932u29>02- 

1 620051 «01-.1o1343u* 01  .2* lb  733*02 
.1022506*02  •  bob  1206*00  .<7234166*01 
.6733096*01  .4326922*01  .7U2099?*ul 
* 1  »6020*  7*ui  «7o6b(»72*ol  .37*22  7bb*Ul 
.<73a97b«ul  .1100165*1.2  .3121  712-00 
-.3/604^5-00  .147092  3*02-. lb  194 50*01 - 
-. 1 710046*01  .1900eb9*o2-.l 736920*01- 
-. 109oo33*ui  .2366367*02  .3912023*01 
.4210761-00  .6346731*01  .U622773«01 
.3623674*01  .6166949*01  .6616400*01 
.7l3/3o9*01  .31 14620*  „  1  .3611047*01 
.103371 7 *02-. 1930454-00  . 734902b-00 

. 142o2dO«02-.lo07bOl *01-. 1439616*01 

. 1650929*02-. 1o94 1 73*01*. 1679043*01 
.2312332*02  . 4246493* ■'  1  .1300000*02 
.7946710*01  .6373069*01  .1714193*01 
.5617365*01  .0230369*01  .3071979.01 
.2440973*01  .3372261 *o 1  .O>02o74*01 
-.57636.2-00  <3o3239/-oo  .11943oH*02 
-.  1613260*01-.  153(1640*  J1  .  133  7/29*02 
-.167331 7*01*. 166233 7*^1  .20272o2«02- 
.4603170*01  .1300000*02  .0223/33*01 

•  bl 23b  79*0 1  .1239970*01  .o7b2o7*>*01 
.5737333*01  .4644429*01  .3370266*01 
.2705364*01  • 7946000*01  .1670631-00 

-,297o493-00  . 114372J*02*. 1467972*01- 
-.1 39322'! *ol  .  13304  41  *02-.  Ib33uo0*01- 
-.le39o61  *01  . 197ol03*l.2-.  1041 016*01- 

•  1300000*02  •  77933«.u*0l  .6494260*01- 

.7611031-00  .60/0*36*01  0470399*01 

.4116416*01  .2o93443*01  ,3421307*01 
.73/0960* 01 -.2363462-00  .3756033-00 
.1063331 *02-. 1302602*01-. 1427003*01 

•  14  79302*02-.  lblbn77*Ul-,lb)l20U6«01 

•  1916004*02-.  lOlltl.92  *01-.  Ill043.'4.01 
,7003432*01  •  /HI103O  7*0 1-.  144(vol<«lll 
.3133o09*ul  .33940211*01  , 19llli'7i;‘*01 
*2069303*01  *2o0o/04«ul  .31 70367*01 

-.71130/7-00-. 0/41.31  7-0l  .1131*410***01  — 
-.  134  7329*0  t-*  1499233*01  ,1213.121*02- 
"«  1610.120*01-*  lou  322  2*01  .  16331194*02- 
-. 16160 71 *01-* 1604763*01  .2094411*02 


•lb63027*ul  .102ol96*n2  .1036640*02 
.31  73321*01  .6342313*01  ..*o3l*929*01 
.6634923*01  .3111097*01  .3«7l937*0i 
.1210003*02  .1426944*01  .23 03736*01 
.1340 7 10*02-.  1431290*01-. 10  71640*01 
.2003242*02-. 1936327*01-. 1 92b 136*01 
.2466713*02  .3113313*01  .1300000*02 
.9937166*01  .1032002*02  .3033277*01 
.7913439*01  .6376403*01  .6323700*01 
.4346719*01  .4977939*01  .9462666*0] 
.7669234-00  .1313763*01  .1336316*02 
.133 7603*01-, 1347602*01  .1733743*02 
. 1043035*01-. 1626667*01  .2179603*02 
.3326360*01  .1300000*02  .9^74936*01 
.9706997*01  .2611433*01  .6411781*01 
.7377033*01  .6023970*01  .3333279*01 
.4237660*01  .9333313*01  .1693372*01 
.1217026*01  .1266632* 02-. 99961 36-00 
.1432^*1*01  .1663343*02-, 1733436*01 
.1 719340* U1  .2129266*02-.l7l2368*0l 
. 1 3U0000*U2  .6633362*01  .9363493*01 
•2131319*01  .7308066*01  .7937224*01 
.3303063*01  .4633143*01  .3200844*01 
.6604341*01  .1394416*01  .2232636*01 

.12334 13*02-. 1240777* 01 -.6324323-00 
•1634261*U2-.1676713*01-.l645336*Oi 
.20 73794 *U2*. 1693020*01 -.16791 09* 01 
.6439308*01  .9092123*01  .1709401-01 
.7122704*01  .7428963*01  .3400666*01 
.4179007*01  .4820057*01  .6741209*01 
.7969074-00  .1860301*01  .1013747*02 
.  1340098*01-. <136087 1-0  0  .  13630  30*02 
. 16 71330*0]-, 1633913*0 l  .1*02340*02 
.16 71 11 9*01-. 1637234*01  .2264273*02 
.8797972*01-, 4302433-00  .7717416*01 
.7111471*01  .2939102*01  .3246066*01 
.4299422*01  .6307073*01  .1618904*01 
.1201)332*01  .9636843*  01-.  9397912-00 
.1292720*01  . 1331667*02-. 1612734*01 
.1641907*01  .1731033*1)2-.  1653805*01 
•  1626632*01  .22 13612*02  ,30l0i.33*01 
.9421111-00  .7204234*01  .7683030*01 
.2438714*01  .4460602*01  .4975707*01 
.3749039*01  .1073157*01  .1933308*01 
,9073679*01-, 1126680* 0 1- .0376812-00 
.12 74114*02-, 1604371* 01 -.1361233*01 
.1694486* 02*. 161 6453* 01*. 1694 105*01 
.2133229*02  ,3416198*01  .1390099*0? 
,(•31)7379*111  ,i.7li71*. 3*1)1  .2383703-911 
.36  3/4  72  *  01  ,40  3  3  4  94  *  01  .3<j4439?*0l 
.3330973-00  .1234204*01  ,6796009*01 
.  1  333313*01-,  1 1)6931,#.*  ()1  ,1028421*97 
.  160  33  73*  01  -.1390963*0 1  ,  1419887*11? 

.  It.  16346* U1-,  1684831  *01  .1636090*07 
3<l2)(94o«Ul  ,1300000*07  .6236197*01 
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. 7U6U7o2*5*-.199197b*Ul  .5523oo3*Ul 
.4778931*01  .1  324462*01  .2430476*01 
.  l4Ju50U*i;i  .45844Co*0l-. 17661  74-00 
-.01)52  7b4-uu  .  7895*  7m*01-.1452i,2  3*01 
-. 15  73u&5*ul  .  lib  J4  3i)*o2-,  U.ltou7«Ul 
-.1604043*01  . 157l97b*U2-.lbl 7l32*Cl 
-.1001520*01  .2032747*02  ,u21“*oUB»tl 
-•252U4ol*0l  .4a3778o*ul  .54i9uub*ui- 

•  7748530-00  .2021b74*01  .2476940*01 
.4ol27o2*ul-.659o2l4-oo-.397bd2l-oo 
.  731  7nb*ol-.  1550151*01-. 1531  746*01 
. 1090321*02-. Iollb77*01-.  154bJ3IJ*0l 
.  I514424*02-.lb04e54*ul-.1594uo2*ol 
.1975539*02  .b5510du*01  .1300000*02 
.  369o9o7*oi  .4595476*01-. 1346  ,23*01 
.9227557-00  .1537u37»o)  .1097446*01- 

11319  73*ul-. 6 781145-01  .5120386*01- 
-. I5e3ib5*ul-. 1545434*01  •eb‘71u3b»01« 
-.  1608041*01-.  1594579*01  .  1250541*02- 
-.  16ti45c5*0l-.  1595051*01  •  1686  748*  02- 
.6407755*01  • 1300000*02  .J595o47*cl 
« 3b0  7245*01-. 1874210*01  .1106)79*01 

•  7ul44u6-0U  •  13o5o25*0l-.44„Uu76-00- 
•.111  /u  10*01  .4', 91  393*01-.  1 330335*01- 
••  lb 702 j3*U  1  .003o371*Ul-.lUll/„,«  >ol- 
-.15942j7*01  •  114  7u44*U2-.li>04i,32*Ul- 
-.15944u9*01  .  1635247*u2-.1O04u72*01- 

.  1300000*02  .289o433*U1  ,4lu6  72l*0l- 
-.24  7»ool*01  .5o72U20-ut  .1467410*01- 
. 7o24301-00-.il 75432* 01-.09563d7-00 
.  39a**  331*01-.  1592094*01-.  1367534*01 
.7450220*01-. 160897 1*01*. 1542094*01 
. 11 36225*02-. 1604299*01-. 1542668*01 
.  1574427*02-.  1609304*01-,  1592o77*01 
. 1849413*01  .3361u72*ul-.4647381*Cl 
1602004-00  . 08631 26-U0-.  145621 1«U1- 
-.1497041*01-. 1343345*01  .1766551*01- 
-.Ib0e349*ul-. 1562243*ul  .5070056*01- 
1610340*01-. 1590941*01  .8713028*01- 
-.  16104 35*01-. 1541 162*01  .1209412*02- 
-.  Iol0436*ul-. 1591160*01  .  1749924*02 
1 


. 544 luo7»Gl-. 3270 114-00  .4  506921*01 
.3373bb6*01  .2460760*01  .I2b4485*0l 
.4380700-00  .0200040*01-. lo771bb *01 
. lo 1 bbO 1  *  u  1  .9667527*01-. 1579054*01 
• Ib00b9b*01  . 13b79b2*02-.lh17774*01 
.1603947*01  •  1796229*0?-.  l,.154  33*0l 
.1300000*02  .5461529*01  .O38o76b*0l 
.063,1611-00  .  3b0b°28*0 1  .4027004*01 
.2399292*01  ,bClb271-00  .9481002-00 
. bb2 3129*0 l -. 1 309991 *01-. 12490 b9. 01 
.9089043*0 l-.lhOb 133*01-. lb«8242*0l 
. 1300647*02-. 161 Cb21*0l-.lb9bl72*0l 
. 173920 7*02-. 160 9792 *01-.lb94b22*01 
•4b33b08*01  .b7647b9 *01-. 298043b* 01 
.237b217*01  ,30bb927*0l  .2799058-00 
.3342476-00  .1199165*00  .3609203*01 
. 1485076*01-. 1376092 *01  .6816911*01 
.1603367 *01 -.158 7143* 01  .1046467*02 
.  1609452  *01-.  1595575*01  .U64552*02 
. 16095 7J*01-. 159b656*0 1  .1925069*02 
.4909267*01-. 3503015*01  .2559291*01 
.21 1131 3*01-. 2512039-00-. 9860691-01 
. 34lb002-00  .2979394 *01-. 137 1996*01 
.1469005*01  .1,266181*01-.  15931  40*0  1 
.  1592581  *  u  1  .  9930217'*  01-.  Iii095»3*0l 
.1594447*01  1 14 1  lob  1 *02-. 1609670*01 
.1594472*01  .1871568*02  .7313220*01 
.4097992*01  .1880767*01  .2776061*01 
. 8535426-00— • 5134067-00  .1689166-00 
.23  74427*01-.  149b095*01-.U315?0*0l 
■5078242*01-. 1606993*01-. 1568,  *01 
.9322020*01-. 1609261*01-. Is92fa01*0l 
.  13502 31 *02-. 1609303*01-. 1592676*01 
.  1610740*02  .7718685*01  .1300000*02 
.1030730*01  .2 112 704 *01-. 30750 12 *01 
.110 7390*01-. 6 139606-00  . 1559514-00 
.15716600*01-.  1542523*01  ,337b226*0l 
.1609768*01-. 1569694*01  .b842624*01 
.161 0424*01-. 1591 137*01  .1075405*02 
.  16 10436*01-. 1591 165*01  .1513306*02 
.0000000  .0000000  .0000000 


01ANL/34AT  u 
. 1900000*62 
1105. 
.0000000 
.9651599*01 
•4dd4542*01 

•  7135162*01 
,4950495*01 
.1412451*01 

•.2362798*01 

*  *  300000*02 
. 3431 160*01 
*601 ’853*0 1 


10**  19  *i<l8 

•  60 1 0  uou  *0  3 
2  1  U0UUOL«U2 
.  130Uu0i)*U2 
.1976810*01 
.7143350*01 
.1146995*02 
.1605199*02 
.2049140*02' 
.2495546*02' 
.9200978*01 
.6768544*01 
.7546231*01 


* .001-1.06) 


.6342381*01 
.6636737*01 
3->463U4*Ol 
.3.  5056*01 
.1254798*01 
.2108497*01 
.3300871*01 
.1134496*02 
.1085370*02 
•  9196162*C 1 


It***'  1 1  •  -2250,  )  Cl/L«b  11/7/66 


.4857336*01 
.9514618*01 
.6224276*0  1 
.6383667*01 
.3233931*01 
.5625346-00 
.3205007*01 
.1320996*01 
.5778039*01 
•1024455*02 


.1976742-00  . 6720846*01 
.4531641*01  .6395561*01 
.9468754*01  .4816231*01 
.1363020*02  .2716024*01 
. 1629475*02-. 4bll600-C0 
.22 70 105*02-. 3018897*01 
.2732079*02  .4o54»51-Oo 
.9044389*01  .110b969*f'2 
.6338228*01  .1027645*02 
.6416701*01  .7604317*01 


104 

105 

106 
107 
106 
10n 
110 
111 
112 

113 

114 
116 
lib 

117 

1 1 8 

119 

120 
121 
122 

123 

124 
12* 
12, 
127 
1?M 
1  if  *1 

130 

131 

132 

133 

134 
13b 
13b 
137 
13a 

139 

140 

141 
1*2 

143 

144 


1 

2 

3 

4 

5 

6 
7 
6 
9 

10 
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AFWL-TR  -67  - 1  31  ,  Vol  IV 


.122/831*02  .49bo74/*01  .63  )8236*1)1  .141/236*02  .31826*1*01  .4456543*01  1  li 

.1602865*02  •  1 192565*01  .25018/7*01  . 1 742410*02-. 7652075-00  .4,,35127-Ot  l  12 

,l997/5/*U2-. 2217912*01-. 13114/0*01  .221624 1 *02-. 2 79 32 1 1*0 1 - .2 398404 *0 1  1  13 

.2463246*02-.<o/obl0*01-.2o21o45*01  .2714361*02  .J1P9302-00  .1300000*02  1  U 

.1115652*02  .1200300*02  .*  1  39  J4  7*  ol  .10/8243*02  .llbbbbU«02  .4268390*01  1  1*. 

.102*640*02  . 11 19151*U2  .8467 72 /*U1  .4231642*01  .1012761*02  .8«7(j919*0l  1  lh 

• 76BlbJb*Ul  .8744702*01  .1026112*02  .634250(1*01  .7146312*01  .1196983*02  1  17 

.4639991*01  .5575546*01  .13  7£o2b*U2  .3239160*01  .4156711*01  .1,84530*02  1  1* 

.1484984*01  .2578613*01  . 1 7i,9o  14 •  U2-. 423 1 145-00  .8282967*00  .1961382*02  1  19 

-.1425u/2«0l-.122331J*Ul  .22UO3.7*o2-.257bl90»Ol-.2373706*01  .2431177*02  1  2o 

-. 20446/4*01*. 2bl2b50*01  .26’64bl*02  .1223775*01  .1300000*02  .1172467*02  1  2l 

.1194396*02  .2b2239b*ol  ,11221o3*02  .1133357*02  .4466601*01  .1060098*0?  1  22 

.108ooU6«d2  .6387910*01  .9324u26»01  .97/9222*01  .nl5''223*01  .8010325*01  1  23 

•685/&l7*ul  .9942290*01  .o531i)66*01  .72/0768*01  .1172298*02  .4m8bO45*0i  1  24 

.5852948*01  • 1361804*02  .3146/34*01  .3937031*01  .1538596*02  .1350616*01  1  2b 

•2195900*01  . 1734161*02*. 4951u99-u0  .3445699-UO  . 1 94 790 1 ♦ 02* . 1 900469* 01  1  ii 

*• 1431 gl2*01  . 2165021*02*. 2424 /4b*01*. 2324658*01  . 2392473*02*. 244«588*0l  1  27 

*.2420/69*01  • 2638020*02  .1809436*01  .1300000*02  .1145528*02  .1163577*02  1  26 

.1474112*01  .1089573*02  .1108/08*02  .4263921*01  .1010072*02  .1067123*02  1  29 

.6103236*01  .9137466*01  .9741375*01  .7918610*01  .767b666*01  .64B4097*0l  1  30 

.96691 //«0l  .83236/4*01  .0/61206*01  .114U173*02  .4585867*01  .5305680*01  1  3l 

.1320045*02  .2761863*01  .3530038*01  .150273U*02  .9643433-00  .1783839*01  1  32 

.1646411*u2-.o1071U5-00*. 2332945-01  . 1 908292*  02- .  1  '»2b224  ♦  0  1- .  1587647*01  1  33 

.2 1263 18*0^-. 224403 9 *01*. 2 167 3/9*01  .235 /655*02*. 2263088*0 1 *. 2243883*01  1  34 

.2599714*02  .1945910*01  .1300000*02  .1118672*02  .1142436*02  .2287042*01  1  3b 

.1074420*02  .1091422*02  .4057516*01  .1008348*02  .1042b22*02  .5462884*01  1  3ft 

.895/013*01  .9577580*01  .7643937*01  .73/8021*01  .nl3bO21*01  .9388924*01  1  3/ 

.5817122*01  .6585862*01  .1108409*02  .4179129*01  .4956075*01  .12«b302*02  1  3« 

.2486620*01  .3284411*01  .1469985*02  .8598904-00  .1790757*01  .lfc64230*02  1  3Q 

-. 1021122*01*. 5945b02-01  .16/4947*02*. 1882885*01*. 1550034*01  .2095789*02  1  40 

-.205/3/2*01*. 2606135*01  .232U191*02-.20B8153*01-.2071423*01  .256724b*02  1  4t 

.2302565*01  .1300000*02  .196D4h4*u2  .1124207*02  .2019b22*01  .1051B15*02  1  4j 

.10/0657*02  .3776047*01  .9718d97*01  .1024459*02  .5553317*01  .84/9390*01  1  43 

.928/373*01  .7315269*01  .U9b0//U*01  .7848003*01  .9040141*01  .5»12B37*0l  1  4* 

.6304856*01  .1073599*02  .3837/63*01  .46954/1*01  ,1251324*02  .2147082*01  1  45 

.3036140*01  . 1 4 3o75 1 *02  .31  70136-00  .13067/5*01  . 1 6320 06*02- . 1207399*0 1  1  4h 

-.4552919-00  . 1 «39o 14 *02- . 1 062335 *01 -. 1 645569*0 1  .205b539*02*. 20 1 4064* 0 1  1  47 

-.1981542*01  . 2282465*02-. 2Ulb44/*01-. 2003293*01  .2521048*02  .,'708050*01  1  4B 

.1300000*02  .1052564*02  .1095099*02  .1692070*01  .1021291*02  .1055729*02  1  49 

.3416154*01  .9455022*01  .9993110*01  .51/3465*01  .6255674*01  .891B1B2*01  1  50 

•6923526*01  .6798032*01  .7473321*01  .bb53330*01  .5063305*01  .5R68b52*0l  1  51 

•  10354  76*02  . 325 7 ob  7*01  .4126912*01  .1210959*02  .1429703*01  .2314281*01  1  52 

•  1391bc’9*02-.247 /952-0O  .5046458-00  . 1 58 1205* 02- .  14443 IH ♦  0 1- .  1  o5 7797* 01  1  53 

. 1/6/629*02-. 1852U25*ol-. 1789326*01  .2004120*02-. 1928905*01-. I9»626l*0l  1  54 

.2230592*02-. 1926 76 8 *01 -.1912/75* 01  .2469502*02  .3113515*01  .1300000*02  1  55 

,1019536*02  , 1066536*02  .1306/65*01  .99390/8*01  .1031334*02  .3037798*01  1  5* 

.92397oU*01  .957943b*ui  .4743/27*01  .7909128*01  .6404294*01  .6525816*01  1  57 

.6107i29*ul  .6792844*01  .6215212*01  .4361637*01  .5002418*01  .9868092*01  1  5s 

•2645647*ul  .3280276*01  .1759309*02  .7997861-00  .1541915*01  .1339357*02  1  59 

-.7529844-00-. ll/4962*0U  . 15293o4*02-. 1552633*01-. 1343097*0 1  .1736301*02  1  bo 

-• 16050 32 *Ul-. 1770963*01  . 1953 1 79*02-. 1841230*01-.  1 825463*0 1  .2160160*02  1  61 

-.18*5469*1)1-.  1810921*01  .2419005*02  .3526360*01  .1300000*02  .9b64721*0l  1  62 

.102*961*02  .8902562-00  .9244978*01  .9723945*01  .2615891*01  .8429702*01  1  63 

.6756611*01  .4334373*01  .7046967*01  .7414270*01  .6033001*01  .53^9466*01  1  64 

.5633412*01  .7693243*01  .3667127*01  .4277732*01  .9339584*01  .1906727*01  1  65 
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AFWL-TR-67-1H  ,  Vol  IV 


.2/3  'o0/*Ul  .ll007lu*U2  .3ltUju2-U0  .  1224043*l>l  .  126  70«?  ♦  02- .  704  1040-On  1  bh 

302/oO4-uu  .  1*4  /714:)*u2-.  lul  3)J3*0l-.  14  >2946»U1  .  168  3023* 02- .  i 749 1  76*  01  t  67 

-.1/06220*01  .1901130*0..-. 1734jJ4*01-.171bb03*0l  .2129370*02- .  1 70971 1*0  l  1  66 

-.1043/03*0.  .2300b/4. 02  .39  12023*01  .13UOOOO*U2  .m8u65I6*01  .9<,9b336*0l  1  bo 

.4e24049-uO  .o3H3/04*Ul  .0038o43*Ol  .2132274*01  .7636604*01  .7946778*01  1  7n 

.3b3l4l4«ui  .020 2742*ul  .O/201U4.O1  .3326340*01  .4669114*01  .5241129*01  1  7j 

.7163400*01  .3o2li23u*01  .i7H4.iub.ul  .6d3U332*l,l  .  0 1  .2203233*01  1  1} 

.  lUbbH0b*u2-.iH2nu7  7-0u  .7344/10-00  .  12303ft7«U2-.  1244192*01-.  62  79192-1)1  1  73 

.142933U*02-.l363477*u)-.14U4u74*01  .  1037773*1)2-.  1641477* 0 1-.  l/.OOoOl* 01  1  7h 

. l0bHOo3*u2-.  Io5ouo2*ol-.  lbHU/17*01  .20 74041  *u2-.  1655943*0 1-. lb»20 14*01  l  7* 

•  231u2ul*U2  .H2HOH9  j*u1  .1300JuU*02  .  tt’«22001*Ul  .9120313*01  .4059822-01  1  7ft 

. bo2 1  u 34* u  1  ,bHb/ob**Ul  .1  MbJoH.ul  .7199927*01  .7330613*01  .34731)31*01  1  77 

.37i43o3«bl  .O22llb0*ul  .3099197*01  .39b4431*Ul  .4804317*01  .6770097*01  1  7a 

.2309000*01  .3370321* J1  .bH33j7o*Ul  .7222712-00  .1920800*01  .1017171*02  l  79 

-.3974233-00  «411Uo37-UU  . 1 190JUU*02-. 1 331363*01-. 8929606-00  .13«b716*02  1  8o 

-. ibb3oH6*ul-. 13047o3*ui  . 139124b. 02-. 1641239*01-. 1623300*01  .1803430*02  1  «i 

-. 16303 7o*01-.lo3774/*ul  .2029/34.02-. Io32b07*01-. Ib307b0*0l  .2266122*02  1  07 

.46031 /0*ul  .1300000*0..  .0222933*01  .011402 71  *0 1- . 4U3607 3-00  .  772(>9bh*01  1  8j 

.0100037*01  .1206131*0)  .6733/17*01  .7109419*01  .2908746*01  .3113243*01  1  84 

.3713672*01  .4o76739*01  .3404321*01  .4207303*01  .e3414t,U*01  .1738936*01  1  64 

.2799644*01  • 7403o1J*01  .16U44/3-U0  .1190260*01  . 9690440  *  0 1 -. 9&7 74h4-Oo  1  8h 

-.3210212-00  .1140oe4*U2-. 1433941«ul-. 1243381*01  .1334004*02-. 1397324*01  1  67 

-.1360041*01  .133ot27*02-.lO40743*0t-.lb3u2b3*01  . 1 732294* 02*. Ib42373* 01  1  86 

-.1620303*01  . 1477227*02-. I6274o0*ul-. 1613073*01  .2215164*02  .3010633*01  1  89 

. 1300u00*02  .7011423*01  ,03o23o4*oi-. 9118936-00  .7217014*01  .7741046*01  1  9o 

.7421244-uu  .6030009*01  .o4o30o4«01  .2441152*01  .4369310*01  .4913367*01  1  9) 

•  4130244*U1  .2003424*01  . 3330o48  *01  .3770166*01  .1046432*01  .1767596*01  1  9j 

.7393411*U)-.3267623-00  .224U32>-0U  . 4040323*0 1 -. 1 1 31BbU ♦ 0 l* . 926 7319-00  l  9j 
.1UU0U74*U2-.14O7O00*O1-. 1434030*01  . 12 73492*02- . 1380493* 0 l- . 1 363026 *0 l  1  94 
.  140ll4U*U2-.1394473*ul-.13il3i..  3*01  .1646323*02-. 1549797*01-. I3»3276*0l  1  4« 

.l42u7u7*u2-.l349ol3*Ul-.13H3'i32*ul  .2137110*02  .5416100*01  .1300000*02  1  9* 

.64621)06* 0 1  .79l344/.ul-.l42U2lln*0l  .<>!*’ 73  11*01  .07411004*01  .2i,63371-0l)  1  97 

.4424029*01  .3321)0  74*0  1  .  14). Ill  .  34  )  »7U  7*  II 1  .  )M4tlllV)»Hl  .  3<,<>42'l  7*  0 1  1  4|, 

,14u04*'.*ui  t,:4.)'-4.4M01  ,  3  ll4.„<4  >  II  |  .  4  VI  7li' V-llll  .  1 1  4  /.•.•*/«  01  .bill  I.VMIM1J  1  •).( 

-.  721 /uU3-uu-.  lululoiii  uu  .  u3.'liii'l«u  1-.  13403  )i  1UI-.  lilnuil'jMMil  ,lo'02’.M*U2  1  1  Do 

-.1344032*Ul-. 1407743*01  . 1 2 1 7 /u3* U2- . 130820 1 *0 1- . 13 /24  Mb  *  0  I  ,l42l77b*02  1  101 

-.134uoJ3*01-. 1303421*01  • 1033420*02- • 1347919*01*, 1384213*01  .1060131*02  1  102 

-.1346014*U1-. I'.  <12433*01  .2040391. *02  .3820446*01  .1300000*02  .6199604*01  1  103 

•  71u  7323* U1-.  146020  0*01  .324/uo5*01  . 38  732 1 0*0 1-  . 306330 7-00  .40035711*01  1  104 

.4626100*01  .1341606*01  .2341029*01  .3313011*01  .2977886*01  .9b03622-0u  1  10'j 

•  16900  01 *01  .4e03030*0l-. 3333073-00  .4443643-00  .621 8781*01- . 1 157b 13* 01  1  I0fc 

-.704312  7-0U  .79l44b4*ui-.1437u36*0l-. 1343367*01  . 9687b22* 0 1 -. Ib502 1 7* 0l  1  107 
-•  1344433*ul  .113ou62*U2-.1314jo0*01-. 1377549*01  .  I  360204*02- .  1 394904*01  1  10ft 

-• 13bl332*0l  . 1374243* U2-. 1343347*01-, 1501739*01  . 1746449* 02* . Ib9>4l8*0l  1  109 

-,130131b*ul  .2034790*02  .6214oU8*0l  .1300000*02  .5351066*01  .6403731*01  1  llo 

-.2301226*01  .4773263*01  .333433B*Ol-.6439634-00  .3386084*01  .3949856*01  1  111 

.7431000-00  .173b971«ui  .2300703*01  .2418340*01  .2845437-00  .10017bl*01  1  112 

,4032  722*01-. 71 3 723 3-00 -.3 046090- 00  .5644339*Ul- . 1263882*01-. 1 166328*01  1  113 

.7334309*U1-. 1500063*01-. 144U096*01  .9111839*01-. 157941 0*01-. 1566060*01  1  II4 

.1090393*02-. 1393063*01-. 1378310*01  . 1302458*02-. 1394713*01-. 1379531*01  1  II5 

.1316499*02-. 1394090*01-. 1374o30*01  .1740705*02-. 1594911*01-. 1 579639*01  1  lift 

.1977027*02  .6351000*01  .I3000u0*02  .4737535*01  .5822462*01-. 2967387*01  1  117 

.3903114*01  . 4590499*01-. l330Ob0*01  .2600289*01  ,312l7tl*01  .2995714-00  1  118 

.1166998*01  .1629602*01  .1910336*01-. 1493574-00  .2074792-00  .3530957*01  1  119 

-. 10164 77*01-. 0721204-00  . 5141393*01-. 1428460*01-, 1400272*01  .6633726*01  l  120 
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AFWL-TR-67-1  31  ,  Vol  IV 


-. 1339268*01-. I346u72*01  .U6'JBJ69*(jl-.  15B884U*01-.  ^bb’B^ol  .1048007*02  1  121 

-.1394u39*ui-.l,,B016/*ol  .1232u32*0i-.l344663*01-.15n0723*ni  .1466040*02  1  122 

-.1394733*01-. 1360790*01  •  16902 36*02- . 1394743*0 1“, 136079 7  *01  .1928557*02  1  1 23 

.b907735*Ul  .l300oU0*02  .33<Jj4o3*01  .4930216*01-. 3472728*01  . 2 n 32b45*0l  1  12k 

.  JoJ04U1*01-.1654oJo*(;1  .lat)7jl3*01  .2137183*01-. 2303942-00  .3381946-00  1  12b 

.643UU69-Uo  .1363928* Jl-. 7343730-00-. 3321134-00  .299725U*01-. 1 324394*01  1  12b 

-.1243137*01  .4607314*01-. 1333374*01-. 1304007*01  . b30 1267*01-. 1363474*01  1  127 

-•  136/624*01  .8073263*01-. 1594u75*01-. 1578160*01  .9945093*01-.  1545189*01  1  128 

-,  1374387*01  .11483 32 *U2-.1545J44*01-. 15/47 75 *01  . 1412536*02-. 1595362*01  1  129 

-.1879798*1,1  .  1636  7 34*02-.  Ib9b3o4*01-.  15/9800*01  .I87305b*02  .7313220*01  1  130 

• 1300000*02  .2272u90*01  .40Hh 744*01-. 40 /83b4*01  .14b251**0l  .2b4l2ft3*0l  1  I3l 

-.2*53732*01  .4JO673/-00  .  12132  37*01- .  6338231-00-.O314222-00-.  1523335-Of,  1  132 

.77B4U38-0U-. 1312021*01-. 1094047*01  .2389585*01-. 153071b*01-. I4bl708*0l  1  133 

. 3999278*01-. 1363433*01-. 1553910*01  . 5893124*01-. 1594998*01-. 1574747*01  1  134 

. 7485094*01-. 159  72  83*01*. lb  78 742*01  .9338898*01-. 1597589*01-. 1579265*01  1  1>5 

. 1137712*02-. 1597o28*01-. 1579331*01  . 1 Jbl 719*02-. 1597b33*0l-. 1579339*0 l  1  I3f 

.1373413*02-. 1347633*01-. 1379340*01  .1812238*02  .7718885*01  .1300000*02  1  137 

.8458228-00  . 3183975*01*. 4079o04*U1-. 5578589-01  . 1783411*01-. 30bSl84«0l  1  138 

-.8803872-00  . 3359822-00*. 144 0714*01-. 1345014*01-, 8227564 -00  .1709941-00  1  139 

-.1529411*01-.  1381533*01  . 1701433*  01- .  1588838*01*.  1539291*01  .3391092*01  1  140 

-.1800815*01-. 1574002*01  .3004929*01-. 1803881*01-. 1580888*01  .6635897*01  1  141 

-.1804158*01-. 1581049*01  . 8 728 70 1 *0 1- . 1804237*0 1- . 1 5620 33*0 1  .1078892*02  1  142 

-. 1804247*01-. l5B2ob/*01  . 1290 399*02- . Ib04248*0 1- . 1 582 060 *0 1  .13*3095*02  1  14J 

-. )804249*ol-. 1582000*01  .1751418*02  .0000000  .0000000  .0000000  1  I64 

5o 

01*i*V3C/.t  hl>-l*  ItMTMl.  5-2250.  ItV.  S»0»  INPUT  1 8PE31 1619. 1818  I  11-8-67 
.1000000*01  .4840000*03 

1  lUo.  .190000  1*02  1  0 

.4054obl— ou  .1UOOOOO*U2  .892bdUb«0l  .1145091*02  .1332377*01  .Bsn88'B*ai  1  1 

.1121985*02  .3341357*01  .8841333*01  .11001UO*02  .3891182*01  .8284119*01  1  2 

.1043205*02  .8185900*01  .7ol0075*01  .9260513*01  .1032272*02  .8588743*01  1  3 

.7038295*01  .1230595*02  .3121oJB*01  .8286330*01  .1418777*02  .3372307*01  1  4 

.4490705*01  . 1604009*02  .15490u9*01  .2670440*01  . 1 796063*02-. 2335276-0 1  1  3 

.9021198-00  .*009843*02  .8109302-00  .1000000*02  .1109926*02  .1203966*02  1  t 

.2205454*01  .1077394*02  .1171039*02  .4344166*01  .1027336*02  .1122467*02  1  7 

.8322086*01  .9381773*01  .1019726*02  .851^111*01  .8095612*01  .6637b46*0l  1  6 

.1030823*02  .0082337*01  .7302920*01  .1201730*02  .5112719*01  .3d82905*0l  1  9 

.1363226*02  .3464538*01  .4305922*01  .1576249*02  .1690282*01  .2715354*01  1  10 

,1777246*02-. 3911364-01  .8291032-00  .1987440*02  .1223773*01  .1000000*02  1  ll 

.1176756*02  .1202631*02  .2359247*01  .1129837*02  .1145796*02  .4523764*01  1  12 

.1053921*02  .1083039*02  .6412750*01  .9313182*01  .1008389*02  .6231463*01  1  IS 

.6178999*0*  .6901081*01  .1003292*02  .8846207*01  .7435494*01  .1179860*02  1  14 

.4962697*01  .5617734*01  .1359439*02  .3320159*01  .4100517*01  .1587221*02  1  I3 

.1574206*01  .2461787*01  . 1 744862*02-.  1235042*0  0  .8439988-00  .1957467*02  1  If, 

.1809436*01  .1000000*02  .1137594*02  .1178310*02  .2524695*01  .1H2663*02  1  17 

.1126203*02  .4329929*01  .1033759*02  .1073226*02  .8161299*01  .9394073*01  1  In 

.9966273*01  .7997572*01  .6039886*01  .8725154*01  .9781432*01  .6416511*01  1  19 

.7235476*01  .1150232*02  .47805o8*0l  .3374590*01  .1330049*02  .3009852*01  1  20 

,3623643*01  ,1314aJ3*u2  .1214892*01  .2U59039*01  . 170682 7*02-. 4330207-00  1  2l 

,2411105-UU  .19100111*02  .1943910*01  .100000U*02  ,1133206*02  .1163304*02  1  22 

,2332717*01  *109993(1  *  02  .Hli-34i'«u2  .4  lJM  7t,*0  1  ,inS4W14io7  ,  I067’>'/n*02  1  2J 

,5947746*01  .9161679*01  .97o4oob*01  .77311(41*01  ,7b47(*08*01  .6353138*01  1  2 4 

.9464433*01  .6080230*01  .6784736*01  .1119509*02  .4351703*01  .5136363*01  1  25 

.1294973*02  .2600881*01  .3394095*01  .1479222*02  .8370342-00  .1788600*01  1  26 

.1671386*02-. 6784426-00-. 8926094-02  .1880127*02  .2302385*01  ,1000000*02  1  2? 
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AF'  W  L  -  TR  -67-131,  Vol  IV 


,1U91S23*U2  .1143UUU*U2  .2l)97ul)7*01 
.  1UU  7943*u2  .lU45U/<*02  .  io»  3  7  i)3*  U 1 
.  71*>/**l*i*Ui  ./87o452*01  .91265U?*i)l 
.394ji2b*Ul  ,4o34U65'Ul  .125bd')6*U2 

.4011351-00  .1224873*01  .1033345*02- 

,*70b0jU*Ul  .1000000*02  , i 0 44 22 0 • 02 
.1001944*0  2  .344/o53*01  .459,.  'O()*01 
,b/4591b*ol  .64/7o74*ul  .u776  <18*01 
,  570*d48*ol  .1030660*02  .3227456*01 
,2l6lo37*ol  .  1341  lb/ *02-.  14oS9o3-00 
9414 /34-uO  .176o362*u2  .3113315*01 
.I3b0020*01  .4794944*01  .1014212*02 
,461ov4b*ol  .7742590*01  .7490235*01 
.62u3J01*Ul  .4,;u40o4*ul  .47463/2*01 
. 1 16  7640  *u2  .6447340-00  ,1443uO4*01 
. 1524036*02-.  1245607*01-.  1104 j74*01 
• VbobuUl *01  .101b34b*o2  .4147lo7-o0 
.0200607*01  .0544742*01  .433b363»01 
.  bl)  74ob7*ol  .5b6ol4b*oi  .7b/7oo0*01 
.3412023*01  • O0U0  00  U*0 1  .41<61u2*01 
.64b0970*0l  .21024«:4*01  .7518/72*01 
•  bbl  72U2*01  .6644942*01  ,‘*443401*01 
.3b4ob/4*ol  .bu7bl4U»ol  •  42‘*b496*ol 
.54033oU-01  ,62497bo*0l  ■ ob2  Uubb*  U 1 
.64354O8-01  .8244760*01  .ob2Ubu6*01 
.3450040*0.  .662o3hl*ol  .8226612*01 
.bbl024l*(,i  ,,111 3b 1*01  .335o310*01 
.b63/48b*ol  .40,2480*01-.  3737122-00 
.b/2/b43*01  ./0644ll*ol  •  3024j34*01 
.3265345*01  .41B4o67*0l  .0350436*01 
, 501 0o35*0l  .b0OJOO0*Ol  .7784b44»01 
.7o7b3b3»ul  .8232141-00  .O0210o5*0l 
.4761437*01  «4J  84  i  7u  *  0 1  ,  203090  1*01 
.1553300*01  • 734374o*01  .5418100*01 
-.  134b553*01  .5902786*01  .u720433*01 
.1935045*01  .313b742*01  ,3647/15*01 
.5183460*01  .1951048-00  .4b234>*3-00 
.5471420*01  .89b3563*01-. 1460553*01 
.3ul3542*ol  .44lboo9*ol  ,133(>231*01 
•5323j5O-0o  •  1 743320*01  .4598036*01- 
,b214uUb*0i  ,b000U00*ul  «b331 142*01 
. 5103 779*01-. 643632 1-0U  ,30b32o3*01 
•2282935*01  .2404632 *01 -.30 164 15-01 
-,blbbo74-ou  • bb3b0b9*0 1  ,ubblU80*01 
-.29o5b79*ol  .3461434*01  .4421363*01- 
,291 7bb9-00  ,b71282b-00  .1377426*01 
.2897134*01  .490 7766*0 l-.3464bl 0*01 
.4101617-00  . 19b0a74 *01 -. 23b 1 293-00- 
,771bbbb*01  . 4000000*01 -.061 6 lbb-0 l 
. 1267920*0 l-.306b07b*01-.  1412206*01 
-.1197488*01  .1602400-00  .0000000 
60 

OlANt/bCAT  SEA  6A1EK-1A  TEWM1.-1. 
.1000000*01  .9840000*03 
1136.  .2400000*02 


.1071799*02  • 1 048660*02  . 3466861*01 
•b8322b0*01  .9364664*01  .7399724*01 
•6ul324b*01  .6246933*01  .Ifl6ll91«02 
.2144480*01  .2967282*01  .1440164*02 
.4334664-00-. 4  247087-00  .1140220*02 

•  11  06961  *  02  .  1766662*01  .1(1?4540*0? 
.4430719*01  .6262033*01  .8328913*01 
.7241966*01  .b66206i*01  .5061203*01 
.3967058*01  .1211234*02  .1412502*01 
.4144063-00  . 1580364*02-. 1164642*01 
.1000000*02  .1005011*02  .1065392*02 
.3067840*01  .90692611*01  .9.76240*01 
.6530747*01  • 597664b*  0 1  .636b944*0l 
.4654134*01  .2571041*01  .3101164*01 
.  1337690*02-.  5529675-00-. 421 72b3-0l 
.  1  737620*02  .3626360*01  .6(100000*01 
.4120658*01  .9553957*01  .2.,  31614*01 
.6730981*01  .7106534*01  .6014437*01 

•  34  7  7b30*01  .4213701*01  .9338156*01 
.4682416*01  .4694944-00  .8676602*01 
.7463641*01  .3061734*01  .5916971*01 
.5281614*01  .7215101*01  .2681370*01 
.8000000*01  .6881964*01  .9326650*01 
.1762315*01  .8882644*01  .9327451*01 
.1762316*01  .7155194*01  ,7616941*01 
.5138776*01  .3821185*01  .4b23b04*0l 
.0466352*1)1  .4606170*01  .6000000*01 
.7922646*01  .6224138*01  .1324182*01 
.6113300*01  .5677471*01  .4701928*01 
.1572076*01  .2bb9362*01  .7991797*01 
.6586496*01-.  88 19303-00  .7191169*01 
.6337203*01  .2604389*01  .4391443*01 
.3150647*01  .5778804*01  .1014041*01 
.601)0000*01  .0746161*01  .7846466*01 
.2841906-00  .4696295*01  .5221803*01 
.3561490*01  .1548046*01  .2237596*01 
.6807775*01  .5828946*01  .6000000*01 
.4436915*01  .  56444  8b* 01 -.2966722-00 
.20/2908*01  .3144276*01  .2971840*01 
,5464486-00  .3587404-00  .6212626*01 
.62 62 6 36*01-, 24422 95 *01  .4506615*01 
.3763440*01  .7875002-00  .1373671*01 
.76/5013-00  .402401 7*01-. 9145189-00 
.4000000*01  .4353814*01  .5b56920*0l 
, 1 333000*01  .2031924*01  .2855975*01 
.1906540*01  .6907755*01  .4000000*01 
.17/3010*01  .3530612*01-. 1859695*01 
.7382239-00  .4405983-00  .1375212*01 
.2736894*01-. 4686890*01-. 96*8246-00 
.1671261-00-. 1449681*01-. 1574346*01 
.0000000  .0000000  .0000000 

4  EVI  1  FRE0.  CI/JR  10-9-67 
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AF  WL-TR  -67-1  31,  Vol  IV 


.4054o51-0u  .1300uUd*d2  .'/0/U3I4.CI  .1316246*02  .1245527*01  .8423726*01  1  1 

.1262334»u2  .3229671*01  .0  li>9  10  7.  0  1  .1260674*02  .5695761*01  .7664971*01  1  2 

.12UU7u9*u2  .t>t6U29J*ul  .72u7UU*01  .Ii)b2b7u«02  .1085060*02  .6016017*01  1  3 

.6925489  *01  •  1 30U 1 3d*U2  . 423U7J0*U  1  .7139141*01  .1487126*02  .2264416*01  1  1, 

.5lj6326*Cl  . loOdloo*U2  .2/02316-00  .31/0401*01  . 1868084* 02-.  1 314347* 0 1  1  b 

.  1 12442 7*01  . 2000bb0»0^*.21t'4b, ,4*111-. 01  3OO43-00  .227720 1  •  0?- . 23°4 1  69*0 1  1  » 

-. 190099/*0l  .251  J,jbl<0*-.^4.,.il3b*01-.2J“*lil77*lll  .27l’0‘<b,'«  02  .«in*l30*'-00  1  7 

.  1  3  10000*04  .111/42)1*0*'  .13)11.014*02  .23*».‘jlt3* 0  1  .  1 1U'0'»7  / •  02  .  134o94l.*tl?  1  0 

.4li95uuU*Ui  .  Iu2o'j4  t*02  .12)/. ,21*02  .  70bbb))b*0 1  .'ll /H2*|h*0 1  .llb372H*0l'  1  4 

.41bl447*ul  .700/404*01  .40/0030*01  .10444(12*02  .6726193*01  .7743442*01  1  10 

.1200044*02  .40b23bO*01  .0007 024*01  .l43340b*02  .2744446*01  .44774/4*01  1  ll 

.1010733*02  •  13b4V03*01  .2663596*01  . 101  /6 74*02*. 4392896-00  .8i4o432-0t  1  12 

.i02b4a/*o2-.1764o03»ol-.4400i)4b-00  .2242  184*02-. 2265/6 /*01-.  2o7b264*0 1  1  13 

. 24oboo3*o2-. 2284501 »ol-. 2243100*01  .271bbb4*0 2  .l22377b*0l  .1300000*02  1  U 

.1267044*0*  .  13o/42b*o2  .3062041*01  .1201676*02  .1300300*02  .b043264*01  1  1*, 

.1100200*02  .1222334*0*  . /007„o4*01  .4o3/414*01  .1041019*02  .6773236*01  1  1(, 

.6llbobb«o 1  .430/406*01  .1U44416*02  .64/6041*01  .7672«04*01  .1221266*02  1  17 

,4b76o39*o 1  .6430372*01  .1346462*02  .2860217*01  .4146367*01  .1677064*02  1  la 

.1284044*01  .2400878*01  . 1 7 / 1 43 1 *02- . 36 7 l flb 7-00  .0126214-00  .1*86301*02  1  14 

-.1032976*01-. 1108346*01  . 2202627*02-. 20 /7400*01-. 196 1460*01  .2430228*02  1  20 

-.20722o9*01-.204163l*01  .267o060«02  .1604436*01  .1300000*02  .1302660*02  1  2l 

.1320220*02  .3020412*01  .12361/2*02  .12/1672*02  .4838698*01  .1119367*02  1  22 

.1200643*02  .0646434*01  .4o27o/8*ol  .10/0766*02  .6407742*01  .7930646*01  1  23 

.9094080*01  .1010400*02  .o307o44*ol  .7462309*01  .1179674*02  .4(l17226*01  1  24 

.5722733*01  .1367o7o*02  .2742234*01  .3412637*01  .1640400*02  .lf)96276*01  1  2b 

.2236131*01  . 1734246*02-. 606Oo09-00  .4626370-00  . 1446442*02-. 1 593813*01  1  26 

-.1149/69*01  .2164700*02-. 1804926*01-. 1764264*01  .23962 70*02* . 18/6889* 0 1  1  27 

-.1860920*01  .283(1617*02  .1945410*01  .1300000*02  .1262296*02  .12948d3*02  1  2p 

•2777oo0*01  .1211141*02  .1261826*02  .4663117*01  .1046616*02  .1168910*02  1  29 

.6328027*01  .9469293*01  .1064143*92  .8067060*01  .7736678*01  .89*4119*01  1  3o 

,97  74  750*01  .6040677*01  .72298«1*01  .1146410*02  .4474232*01  .6't9B731*0l  1  3l 

.1324382*02  .2747462*01  .3746*47*01  .1608322*02  .9696773-00  .2054260*01  1  32 

. 1702008*02-. 8o3o29h-00  .2628369-00  . 1 91 362 1*02-. 1602478*01-. 1 168923*0 1  1  33 

.2 13381 1  * 02-. 170 7040*- 1-. 1060181*01  .2383970*02-, 1 743943*0 1-. 1 722826*01  1  34 

.2601736*02  .<302606*01  .1300j00*02  .1194032*02  .1260916*02  .2469860*01  1  3b 

.1162030*02  .1223066*02  .4232819*01  .1062140*02  .1161366*02  .6969121*01  1  3f, 

.9164610*01  .1029417*02  .769/6/6*01  .7602617*01  .8644416*01  .9421124*01  1  3? 

.596740 /*0l  .6960794*61  .1111044*02  .41498b4*01  .6196736*01  .1289438*02  1  3n 

.2427026*01  .3447463*11  .14/3520*02  .5727550-00  .1662648*01  .1066956*02  1  39 

•• 936960 3-0 0* . 1332294-00  . 1873447*02- . 1 6 /6347*01*. I3602lb*01  .2087906*02  1  4o 

-.1722920*01-. 1662911*01  .2312222*02-. 1 742236*01-. 1724502*01  .2568605*02  1  4i 

.2706050*01  .1300000*02  .1096082*02  .1204820*02  .2088940*01  .1084310*02  1  62 

.1177563*02  .3835252*01  .1022556*02  .1105044*02  .6566574*01  .9032275*01  1  43 

.9669273*01  .7291653*01  .7347696*01  .7964776*01  .9006634*01  .5454349*01  1  4* 

.8176133*01  .1069404*02  .3398661*01  .4295398*01  .1243156*02  .1414074*01  1  4j 

.2434263*01  . I 42 1672*02*. 3152 do 7-00  .5905908-00  . 1609172*02-. 1 342246*0 1  1  4< 

-.9546343-00  .1813317*02-. 1646751*01-. 1601741*01  .2027431*02-. 1/24049*01  1  47 

-.1711730*01  . 2251 769*«2-. 174 l 2*6*01-. 172 37o0* 01  .2468155*02  .3113515*01  1  *n 

,1300000*02  .9845139*01  .1140278*02  .16/2926*01  .9728796*01  .1108683*02  1  *9 

.3408313*01  .9291702*01  .1019703*02  .5126427*01  .8155811*01  .85/2620*01  1  50 

.6936514*01  .63*7823*01  .6730674*01  .8507501*01  ,4269362*01  .490891b"0l  1  5l 

.1013972*02  .2295699*81  .3099981*01  .1184005*02  .5063691-00  .1296859*01  1  52 

.1361*47*02-. 8101634-00-. 3679629-00  . 1548769*02-. 1470597*01-. 1410814*01  1  53 

, 1752992*02-. 1693671*01-. 1681528*01  . 1966984* 02-. 1 735348* 0 1-. 1716023*01  1  54 

.2191263*02-. 1739403*01-. 1721150*01  .2427684*02  .3526360*01  .1300000*02  1  55 


464 


AFWL-TR  67-151,  Vol  IV 


.6o65o74*ui  .l(,bJ71o*0i  .120bo39*01  .6412427*01  .  10C4b36*02  .2915384*01  1  5*, 

•  7  76u20 1  ♦  1 1  .b9323o5*ul  .4t>14i)7B*01  .bol4190*01  .7187704*01  .0273624*01  1  67 

.5039ob4*ul  .6h167u3*01  ,  7409236*')1  .3204952*01  .  3641639*01  .9b26b54*01  1  58 

•  1440937*01  .192529b*ul  . 1122302*02-. 1611099-00  . 24  12286-00  .1299914*02  1  bo 

-.U9/691*ul-.lU46p04*01  .  l4,i/300*02-.  162U45o*01-.  1566646*01  .1o92137*02  1  60 

-. Io760b3*ul-. Io41o44*ol  .14U49a4«u2-.lb32805*01-.1611U96*01  .2139923*02  1  61 

-. 15906  06*01-  •  157ou29*ul  .23M004b*02  .3912023*01  .1300000*02  .7797999*01  1  6r 

.9700059*01  .7541540-00  .  7396314*01  .bH94611*01  .2*13147*01  .6719672*01  1  63 

•  762  /595*0l  .4079401*01  .b4b4cto9*01  .603o732*01  .6714172*01  .3010324*01  1  69 

.4414194*01  •  733o4bo*dl  .2046139*01  .2864390*01  .8964698*01  .6m90441-Oo  l  6S 

.1690207*01  .1007b6o*02-. 5037096-00  .40/6632-00  . 12»97b2*02-.  1290666*01  1  6h 

- . b4 16374-00  . I441ol6«02-. 1 44ol 40* 0 1- . 1260656*01  . 1 66 1 2 4 2 » 02- . 1 s 1 6 74 1 *0 1  1  67 

-.1400031*01  . lOOOol 7*02-. 1617023*01-. 1446o12*01  .209371 7* 02-. lbl 7634*01  1  66 

-.1499017*01  .233U12*  *02  .4240496*01  .1300000*02  .7678164*01  .9180064*01  1  60 

.2466042-00  .0901 77  7*ul  .01/4640*01  . 19*7210*01  .bU7466M*01  .6607232*01  1  7o 

.3691036*01  .4003409*01  .66409/7*01  .6236633*01  .2968768*01  .4366802*01  1  7i 

.0660364*01  .14b2o8>.*ul  .3230392*01  .6666164*01  .1441897-00  .1910067*01  1  7; 

.  Iu30i40*02-.061d*87-00  .4634960-00  . 1 2 1 1806* U2- .  1 360678 *0 1 -.  7^64 1 32-0(>  1  7j 

.1400/40*02-. 1 460 3 oo«0 1 - • 1 3649  71*01  .  Io06099*02*.  1609206*0 1- .  U8261 1  ♦  0 1  1  7* 

. 1819194*02-. I613o49*ol-. 1496630*01  . 2043446*02- . 1 61 6 706* ft  1- . 1 497683* 0 1  1  7s 

.2279022*02  .4006170*01  .1300000*02  .7636416*01  .o96b7jp*01-.2o22921-0o  1  7 b 

. 06280*3*  0 1  .00419*0*01  .1*60427*01  .6o/0746*01  .6474361*01  .3126202*01  1  77 

.41000*0*01  . 6061 9o9  *o 1  .4003923*01  .2406*17*01  .43*1411*01  .6474663*01  1  7p 

.0020413-00  .2672o66*ul  .  01221  ol  ♦  01 -.  464 1 74  7-00  .1260936*01  .9)129116*01  1  79 

-.1162976*01-. 2303277-00  . 1 160437* 02- . 134b680*01- . 1 1 72 170* 01  .1347721*02  1  80 

-.14b700U*01-.l44oo44*01  . 166 lno2*02-. 1606361*01-, 1491*62*01  .1766628*02  1  61 

-. 1614o43*ul-. I49ooo2*01  .1990020*02-. 1616768*01-. 1497431*01  .2226346*02  1  82 

•6010o36*01  • 1300000*02  .7736108*01  . 87 76437*01- . 7462239-00  .b786114*0l  1  83 

. 7933666*  u 1  .9367200-00  .5429o76*01  .6667062*01  ,2624912*01  .3742614*01  1  8* 

.4990097*01  ,42bo743*ul  .1637/o9»U1  .3363169*01  .6916407*01  .2660796-On  1  8b 

.1/82130*01  ,  7b3U2oO*ul-.O9921ol-U0  .2466132-00  .4226670*01-.  1146117*01  1  8*, 

-.9131741-00  .1099793*02-. 1391344*01-. 1381729*01  . I 2F 098 l *02- . 1 49*447* 0 1  1  87 

-.1461022*01  .1441006*02-. 1613240*01-. I446ol6*01  .1706016*02-. 1616316*01  1  80 

-.1490997*01  , 1 929t3 7*02-, 1614  724*01-, 14  9063 1*01  ,2l66b22*02  .6416100*01  1  Bn 

.1300000*02  .0907201*01  . 0103227*01-. 12 70193*01  ,o012264*01  .6986699*01  1  90 

.41212  70-0*  .4ol47o4*01  .6392046*01  .2Ub6174*01  .2«O0394*oi  .3706060*01  1  9j 

.  3b9  7  uo9*o  1  .1200.04*01  .2164746*01  . 6312840*0 1-.  6322  166-01  .6263131-0(1  1  92 

,0923oo6*ul  - , 094 6682-00- .o‘* 9. 3o 3-00  . Ool 7642* U 1- .  1 329660*0 1-.  1287 778*0 1  1  93 

•  10 39 00d*U2-.  1460040*1  l-,14u0 69 4*01  . 1226243*02-. I6094flh*01-.  l'»90998*0l  1  9* 

. 1430333*02-. 1613373*ul-. 1496013*01  . 1044376*02-. 1613846*01-. l4964b8*0l  1  9b 

.Ibb8je3*u2-.lbl309b*ui-.l44b498*01  .2104907*02  .b628946*0l  .1300000*02  1  9t 

,b397lo9*01  . 7170717*01-. 162Bb6«*01  .4376186*01  . 67262 74 *0 1-. 1 71 0793-Ofl  1  97 

.3116647*01  .4206192*01  .1469496*01  .17U6218*01  .2662311*01  .3081928*01  1  96 

.3294096-00  .1106462*01  7>*b44  7o3*  0 1- . 6666060-00- .  22687 72-00  .6306602*01  1  99 

-.12610 38 *01-. 1099610* 01  . 6000091 *01-. 1463269*0 1- . 141480 1*01  .977*412*01  1  10o 

— . 16022 19*01  —  , 1462609*01  . 1 164432* 02- . 1 6 1 22 30*01- . 1 49382 7* 0 1  .1368467*02  1  10i 

-.1613717*01-. 1496299*01  . 1682404 *02-. 1 613696*0 1-. 1496474* 0 1  .1606660*02  1  102 

-. 1613916*01-. 1496492*01  .2042961*02  .6214608*01  ,1300000*02  .4063753*01  1  103 

,61064o7*Cl-. 2373666*01  .3262171*01  .4762620*01-.  7298630-00  .2052635*01  1  l()u 

.32377b/*0.  .6890826-00  .0714390-00  .1706286*01  . 2506338*0 1-. 4461956-00  1  10b 

•289b0o0-00  ,411774b*01-. 1101331*01-. 807O3b3-00  . 5728006* 01-. U0l4b2*0 1  1  10b 

-.1329227*01  .7  22041*01-. 1491o73*01-. 1463958*01  . 9194050*0 1-. I5I 1418*01  1  107 

-.1490927*01  .lU66bb«02-.  1614633*01-. 1495224*01  . 1310608*02-.  1518030*01  1  106 

-.1495759*01  .152  616*02-. 1515077* 01-. 1495822*01  . 17488 1 1*02-. 1513082*01  1  109 

-.1495829*01  .1981132*02  .6561060*01  .1300000*02  .3149894*01  .5368528*01  1  1 1 0 


465 


AFWL-TR-bT  -1  51  ,  \  l  IV 


i 


-.28403*4*ul  .<314V5**J1  .34*5220*01-.  122So*2*Gl  .11  *2725*01  .2*34616*01  1  111 

•  36702o7-0u-.'j87*u38-01  • 4 1 7*u 1 0*0U  .20U  lb  18*  b  1-.  9*0  1956-00- .  3l|79  390-00  1  112 

.361334b*ol-.l3*3*5d*01-.118t«72**Gl  .5223*:)l*d!-.l*M2'>05*ol-.l*272B2*01  1  113 

,6417  096*  u  l  —  »  151538  3*  o  1  -  •  14  0622 1*01  .86643*0*01-.  1  521*72*  o  1  1  »9bB36*0  1  1  11* 

.1056115*02-. 1522**  7*ol-. 1**1  826*01  .126U13B*02-.1522877*01-. 1**87*4*01  1  lib 

.1*741***02-. 1822842*01-. 1*46778*01  .16483*0*02-. 1522504*01-. U4g778*oi  1  lib 

.1434ool*02  .u9l)7755*01  .  1  3OU0O0  *02  .1631211*01  .401  0274*  ol  - .  3  3771  bl  *0 1  1  11? 

.7233M7-UU  .287  7512*01 -.  1  761964*0  1-.  3340405-OU  .  1 0*9b71  ♦  0 1  -.  1 48981 O-Oo  l  11* 

-.1055*83*ol-.2232362-l'o  .  1*66422*0 1-.  1 34 3283*01-.  1 0*3271  *0 1  .3078*60*01  1  lib 

-. 180ub38*ol-. 1*04*12*01  .*6*b*o8*01-.1837277*Ul-.l*4168U*01  .63«23*7*01  1  120 

-,18433UV*u1-.180/oo4*j1  . ol 84 334 • o 1 -. 1 844o2 1  * U 1 -. 1 81 Obb 1  *  0 1  .Io02bl4*02  1  121 

-  .  1844  74b*ul-.  181 1  10**ol  . 1206u36*02-. 18**821*01-. 181 1 162*01  .l420b43*02  1  122 

*  •  184  4824*01*.  1811  lb  7*  0 1  .Ib44034«ll2-. 1844824*01-. 181117U*01  .ll\Pllb0*02  1  123 

•7313220*01  .130U000*02  .347634*-U0  . 32*3198*01 -. 3981 3 38* 0 1 -. 5o24881 -Oo  1  12* 

•  1  773427*ol-.<3ob* 7l*ol-. 1144231*01  .  32m4o48-00-.  7848b04-00- .  1 4 Ib8b4*01  1  12b 

-.7444003-00  .8880888-00*. 1827404*01-. 1337238*01  .2470202 ♦ 0 1 -. 1 8*42 72* 0 1  1  1 2i 

-.1443142*01  . 4080214*01-. l8/42b7*01-.182tih82*0l  .87741  80*0  1 -.  1  b7b33h*0 1  1  127 

-  •  18384u3*0l  .784bl3o*01-.18/t-/o3*0l-.l83bo80*0l  .  441  7044  *  o  1-.  Ib7b7b2*0 1  1  l2i 

-.1838038*01  . 1 1'. but  7*02*. 1 87fc  7o4*01-. 18368u3*l  1  . 1  380823* 02- .  lb?677n*0 1  1  12o 

-  •  1 83bbub*0 1  .Ib6*0l4*0<-.  1S7*.770*01-. 1830800*01  .18203411*02  .77l3o85«0l  1  130 

.130000U*02-.487Uo8-OU  .  2*80  7*3*  0 1  -  .48872  70*  01  -  .  1 1 84422  •  0 1  .9b72334-Oo  1  131 

-.<47801  7*0l-.1444'j2»*0l-.  3b  72O/.-U0-.  1382401*01-.  1848180*01 -.1191808*  01  1  132 

•  <8U  7219-00- . 1 80881 1*  0 1  * . 1 4  8283b  *01  . 1 8821 1 0 *01 -. Ib02284 » 0 1 -. 1 883394  *  0 1  1  133 

.347202U*01-.1o08778*C1-.1  888  8871  ♦  0  1  .81  88483*0  1-.18T  8327*01-. 1  069807*0  1  1  13* 

. 843  7934*0 1-. 18084 8 1*01*. 1870008*01  . 8dU47*o* 0 1 -. Ib084 7 0 ♦ 0 1- . 1 870084*0 1  1  13b 
. 1084447*02-. Io08473*01-. 1870044*01  . 1 244003*02*. 1608»73* Ol-. Is7oo9b*0 1  1  13b 

.1823144*02-.l608*73*0l-.187oj46*01  .178982U*02  .8131831*01  .1300000*02  1  137 

-.9708280-00  . 1648183*01-. 8208390*U1-. 1407890*01  .196 7824-00-. 38*7496*01  1  13* 

-. 1 887bb 7*oi-.428db81-oo-. 14 77ul6*01-. 1806022*01 -.1434234* 01 -.3b*48b2-0o  1  1 3o 
- . 1 822388*0 1- . 1869948*  0 1  . 1 2*2 881 *U 1 - . 1 62 736 1 *U 1 -. 1 844478 *0 1  .2h52784*0|  1  14p 

- . 1 62 8606* U 1 -. 1 60 1 32 d *01  .484b63b*01-.l626*38*Ul-. 1602*08*01  .83lBb71*0l  1  1*1 

*  .  1 6280  78*01-.  1 6(12666*  U  1  .  o  1  404  78  •  0 1  -  .  1  b26882*0l- .  1802  7 1  8*0  1  .1023070*02  1  1*2 

-. 1626863*01-. 1602722*01  .1237077*02”. 1626083*01- , 1602722*01  .1461273*02  1  1*7 

*  .  1626063*  Ul  — .  lbU2722*l<l  .1647894*02  .6817193*01  .  1  3000  00*  02- .  1270  1  96*0  1  1  ’*4 

. 647bb44-0U-. 8 7832 16*01*. 1827 828*01 -.4828968-00-.* Ib870 1*01-. lbOB483*01  L  l*b 

-. 12db431*0l-.288bU4 7 <01-. 1 632327*01-. 1888390*01 -.9487894-00-. ' b39*71 *01  1  l*b 

-.1618394*01  .Ob43b28-'.'o-.l64l274*01-.l62T869*0l  ,  227*26  1  *0  l- .  16*1693*0 1  1  1*7 

• « 1630108*  ol  .3968192*01-. 1 o* 1  773*01-.  1630877*81  , 87*0 177*0 1- . lb* 1767*01  1  1*6 

— . Ib30b84*0l  ,7bll464*Ul-. 16*1764*01-. 1630672*01  , 468220b ♦ 0 l- . lb* 1789* 0 l  1  1*9 

-.l63oo74*ol  .1174227*  J2-. 16*1764*01-. 1630674*01  .  1403*23*02-.  Ibb!>l3b*0l  1  I8f 
-.106818**01  . 1  o3474* * u2  .BU83o68*01  .  I  300000 *l>2- .  1 41  9783*  0 1 -.  5753o73-0 1  1  18l 

-.620 7368*01-. 1863684*01-. 1181 638*01 -.46 70307* 0l-.lb38382*01-. 1872839*01  1  182 

-.3060b37*0l-.lo80o8 7*01 -.1684802*01-. 1 480*86*0 1 -, 16840 7 1 *01-. lbb8bB8*01  1  183 
.189761 7-00-. 168*698*01-. 1667089*01  . 1 769blO*01 -, 1688090 ♦ 0 1 -. 1 666063*01  1  l8o 

.3463464*01-. 1688128*01-. 1688134*01  . 8238*69* 0 1  lb881  38* 0 1- .  lb<>81 82*01  1  18b 

. 7107270*01-.  Io88136*ol-.lb66184*01  .91*7498*01-.  1688 1 3b* 0 1-  .  Ib66 184*01  1  l!>e> 

.1126786*02-. I6b8l3b*nl-. lbOfclS4*01  . 1 382982*02-. Ib881 36* 0 l- . 1668184*01  1  187 

.1864273*02  .9210340*01  . 1300000*02-. 181b626*0l-. 62788*0-00-. 6022181*01  1  186 

-.1618134*01-. 1*17241  *ol-. 8208106 *01 -.16**926*0 1 -.162923 7*01-. 3895624*01  1  189 

-.  1682978*01-.  lbb2142*'M-.  1988463*01-.  1684878*91-.  16b698l  *0  1-.  3752267-00  1  160 

-. 1688017*01-. 16b741**01  .  1234898* 01 -. IbOSl 14*0 1-.  16681  10*0 1  .2928*71*01  1  161 

-.1688132*01-. 16661*7*01  .*700*87*0 1-. 1 688138*01 -. 1066183* 0 1  .68722b4*0l  1  162 

-.  1658136*01-. Ib0618**3l  .8612*85*01- .  1655136*01-. 16b8l5*» Ol  .1075255*02  1  163 

-. 1655136*01-. ibb8154*01  . 1299*51*02-. 1655136*01-. Ib6ei5**0l  .15*5772*02  1  16* 

56 
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AFU  L-TR-67-1  31,  Vol  IV 


DlAKL/jlAt  S-1A  lU"  I  >U.-10U00.)tV.  ',*U»  IV’ol  TA,‘L  332 7  ll-P-67 

.10UUUU0*Ui  .oi'jUjIK'uJ 

lulu.  *  1  jUUuOL  *0.  1  0 

.3412G23*ul  .I3u000u*u2  .47<4.Ju0*0l  .  10  )9243*t2  .  10037(1  3*  HU  .8h"7201*01  1  l 

•  1034  704 ♦ y2  .lolJ43J*0l  .7oO?-.lb*0l  .941(3372*41  .  JbuJ10h«01  .b70b31?*0l  1  2 

.62u4b(2*u*  .327l7lx*ul  .b3i.21ol*0l  .t>32933((*  Jl  .u4'>4  72G*Gl  .373ua‘)b*0l  1  3 

.40u34j3*ul  .Oo48l4/*ul  .2U2i,ji3*Ul  .2  I/O! 'j7*i>l  .  1  Ua7n<.«* 02  .33100bo-0G  1  4 

•1323/b2*ul  .  12 J2o2o»u*.-  439o7/b-00-.24lb02l-UG  .  I4?54b9*02-.  lshbUI4*0l  1  5 

-.1  Juooab*ul  ,io3191  7*02-  ;7201ob»01-.lo/boo7»0l  . 164b3b4*C2-. 1 744890*0 1  1  t 

-.1  72J*a0*ul  .2U/uolb*U2-.l  /4hu23*  0 1*.  1  730720*01  .23<'b442*l>2  .424a49b*01  1  7 

,13uuU0u*02  .94334 33*ui  .10b403U*02-.2327ao4-0u  .b''l 0 l>.b» 0 1  .1009145*02  1  (1 

•  149  7bob*u  1  .  797bt2l*Ul  .913bljb*ul  .3230312*01  .u7u3227»(il  8334  7*  0 1  1  o 

,49b733o*ul  .bub447u*ul  .3832302*01  .6o/4927*0l  . J2C4b92*0l  .4(iAj44b»01  1  10 

.a3bba9a*ol  .1366245*ul  .*369  (42*01  .  lul  1 1  39*02-.  3063144-00  .b3’lb4°-00  l  ll 

,1190244*u2-.l  30?723*«l-.i)43hj46-uG  .1  j7/fc4G*U2-.lbMbir*m-.lb»'b642*0l  1  12 

.13bi938*u2-.1723oll*ul-.17lu77b*Ql  . 1  745954  *112-.  1745723*0  1-.  1  ?29o82*  01  1  13 
.202ul31*o2-.1744171*ul-.l  7J1u2!1«U1  .2236472*02  .4bGbl7t>*0l  .1300000*02  1  14 

.BbUJ448*ul  • 1004004 *u**.b J3 7 J09-U0  .  tt  323942  *  U 1  .9323030*01  »1142o91*01  1  lb 

.7023022*01  . 0434213*01  ,*8710 92 *ul  .01  73334*01  .6772923*01  .4s«09h0*0l  l  lb 

.4l2*797B*ol  .4rtb4obb*ul  .02001(43*01  .2140332*01  .3lbUhl4*oi  .7o*77a02*Ol  1  l? 

. 3*70*7300*00  .13uU4uu*o»  ,93411b  74*01-. 6644946-00-. 27 15603-00  .1137213*02  1  Ip 

-.14b0bo8*01*.  132*7831*01  . 1324420*02*.  1oM0449*G1-.1o70037»01  .1528447*0?  1  l9 

-.1  73*720/*0l*. 1723314*01  . 1742434*  02*.  1  747(4  74  *01*.  1 730434*01  .I9bbb51*02  1  20 

-. 1744330*01*. 1731032*U1  .2202)03*02  .0Ul0o3b*01  .1300000*02  .7290308*01  1  2l 

.9200734*01*.  10**0o21*01  .oH‘)4ibb*0l  .8073044*ul  .a90b297-0n  .b06B744*0l  1  22 

,71o298b*01  ...3801b4*ul  .4O2O034*0l  .02  71028*01  .40474hU*01  .2ul8842*0l  1  23 

.3012312*01  «0o80o2  3*  Jl  .12004  00*01  .1804009*01  . 7246b70*0 l*. 2b98blb-00  1  24 

.2490'jae-uu  .0991900*01*. 1142044*01*. 1012414*01  .  I07b433*02*.  Ibl37bl*  0 1  1  2*, 

-.1070738*01  .12o3b92*02-.l7237a0*Ul-.170U48b*0l  . 14b8252*02*. 1 71390b* 0 1  1  2( 

- ,  1  o92o  7  7*01  .lb«444b*02-. 1071210*01*. 1602044*01  . 1913b3«*02-.  l(,J0291*0l  1  27 

-.1011  773*01  .2104U82*  02  .0416100*01  .1300000*02  .59b010«*01  .82ll02b*0l  1  2  8 

-.1033020*01  ,02‘*33bJ*01  ,7214080*01  .1602172-00  .40897bb*01  .5b*>0987*0l  1  29 

.1822021*01  .2701203*01  ,39b02a7*01  .3400603*01  .1243005*01  .2331026*01  1  3o 

.0077313*01-. 4300383-01  .8431482-00  .6644841 *0 l*. 4bh5l20-00-. Ib072 12-00  l  5l 
.84001  30*01-.  144  74ou*ol-.uo3(i036-00  . 1  021607*02*.  1093287*01-.  I33787b*0l  1  32 

.  1213030*02*.  Ibl3o04*01*.  104M«.94*01  . 1 414036*02*  .  Ibl 5272*01-.  1391521  *0  1  1  33 

. lb34u91*C2-. 1610024*01*. 1047078*01  . 1 808305*02- . lb  10987*0 1-. 1 b97b77*0 1  1  34 

.2094084*02  •  082094b*  U 1  .1300000*02  .0163293*01  .  7089772*  0  1  -.  21)  79423*0  1  1  3b 

.410  7180*01  . olOl oOa* 01-.418G  700-00  .2886572*01  .4bbl787*01  .1228115*01  1  3f, 

.1000001*01  .34iao7b*01  .2800304 *01  .303l07b*00  .2387584*01  .4518917*01  1  37 

-•6012000-OU  .1227440*01  . ol 70094 *01*. 1226305*01— . 738974 1-0 1  .7889272*01  1  3b 

-.1000036*01-. 1098007*01  . 9oo8uJ8* 0 1 -. 1 580 357*0 1 -. 1 003209*0 1  .1154185*02  1  39 

-.lb03349*ol-. 1580514*01  . 1 308231 *02*. lo 14731 *0 l* . I09b88b*0l  .1572240*02  1  40 

-.1610824*01*. 1097090*01  . 1790437*02-. lblOoU8*0l-.l547b39*0l  .2032758*02  1  41 

.b214b08*0l  .1300000*02  ,0297o32*01  .b706239*01*. 2098035*01  .4074703*01  1  4J 

,5b34400*Ol-. 9467739-00  .2737400*01  .4030661*01  .7115879-00  .I2b4287*01  1  43 

.3294209*01  .237lb62*01-.8329l08-0l  .1880133*01  ,400b800*0l-.9l98483-0o  1  44 

.4306240-00  . 062 Jo9o*01*. 13 14 l 91 *01 -.7980060-00  . 7319451*01-. lb0O726*Ol  1  45 

-. 1438 022*01  .9091703*01-. 1097400*01-. 1580640*01  . 1 09b3b2* 02* .1613739*01  1  4b 

-.1590830*01  .1300360*02*. 1614727*01*. !59b983*Gl  . 1514391* 02-. 1614828*01  l  47 

-.1097109*01  ,17 36 08 7* 02 *.10140 39 *01-. 1597122*01  .1974908*02  .6551060*01  1  48 

.1300000*02  .0323020*01  .b40286l*01*. 3062222*01  .4255087*01  .5369638*01  1  49 

-,134b572*01  .2713966*01  .3900045*01  .2588l9b-00  .I085b97*0l  .2516647*01  1  5o 

.1893064*01-. 1950729-00  .1014468*01  .3509832*01-, 9396022*00*. 3432934-00  1  51 

.5120941*01-. 1402854*01-. 1283075*01  .68 15076* 0 l*. 1584194*01-. 1556721 *01  1  52 
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.658/103*01-. 1610663*01-. 1592300*01  . 1095692*02-.  1613206*01-.  1595709*01 
.1299919*32-. 16139 78*01-. 1596165*01  .  1963921*02-.  161351  1*01-.  1596219*01 
. 1666117*02-. 1613519*01-. 1596225*01  .1929938*02  .6907755*01  .1300000*02 
•  9S97307*01  .5833017*01-. 3598718*01  .3b39928*01  .9* 38897*01-. 1b92163*0i 
•2Ulbb9b*bl  .303b29b*01-.2bbb927-00  .9bb7099-00  .19807bb*01  .1362929*01 
-.7272392-00  .3939916-01  .2976999*01-. 1371971*01-. 1109991*01  .9586166*01 
-, 157669 7*01-. 1525719*01  .02801 10*01-. 1611030*01-. 1588618*01  .8052098*01 
-.1619980*01-. 1596222*01  .9923906*01-. 1619957*01-, 1597350*01  .1196913*02 
-.1615021*01-. 1597999*01  . 1910919*02-. 1615028*01-. 1597517*01  .1639615*02 
-.1615029*01-. 1597519*01  .1670936*02  .7313220*01  .1300000*02  .2965662*01 
.9899956*01-. 9122999*01  .1762687*01  .3981617*01-. 2983735*01  .3617111-00 
« 1996239 *01-.65971 79-00- .7920 108-00  .9110869-00  .7559323-00-. 1372672*01 
-.8559097-00  .2366019*01-. 1569523*01-. 1952331*01  . 3978023*01-. 1619589*01 
-.1582921*01  .5671922*01-. 1622093*01-. 1603972*01  . 7993902*01-. 1623277*01 
-.1606761*01  .9315706*01-. 1623969*01-. 1607289*01  . 1135593*02-. 16*3999*01 
-.1607353*01  .1399600*02-. 1623997*01-. 1607361*01  . 1573796*02-. 1623998*01 
-.1607362*01  .1810117*02  .7716685*01  .1300000*02  .1350257*01  .3909669*01 
-.9715093*01-. 9861305-02  .2356590*01-. 3065169*01-. 9273155-00  .8921359-00 
-.1966296*01-. 1397016*01-. 9879620-00  . 1981107-00-. 1569900*01-. 1328007*01 
.1759902*01-. 1620297*01-. 1566652*01  .3369899*01-. 1632355*01-. 1619959*01 
•5063 726*01-. 1639669*01-. 1622959*01  .6835705*01-, 1635089*01-. 1623898*01 
.6707510*01-. 1635157*01-. 1629069*01  . 10 79773*02-. 1635166*01-. 1629098*01 
.1286 760 *02-. 16351 6 7*01-,  1629101*01  . 1512976* 02-. 1635167*0 1- . 1629 102*01 
.1799297*62  .6131531*01  . 1300000*02-. 19 79999-00  .2759501*01-. 5321959*01 
-.930  7577-00  .1900356*01-. 3695206*01-.  1395593*01-. 9986262-01-. 2081619*01 
-.157202.6*01-.  1130700*01-. 9709925-00-.  1625813*01-.  1536260*01  .1190673*01 
-.1690527*01-.  1620731*01  .27505d9*01-.  1699196*01-.  163686(1*01  .9999962*01 
-.1699797*01-. 1639729*61  .6216937*01-. 1699919*01-. 1690226*01  .8088293*01 
—• 1699933*01-, 1690307* 01  .1012896*02-. 1699935*01-. 1690318*01  .1226853*02 
-.1699935*01-. 1690319*01  . 1951 099*02-. 16«9935*01-.  1690319*01  . 1687370*02 
.8517193*01  .1300000*02-. 1060825*01  . 1176001*01-. 5889996*01-. 1955176*01 
-.2929500-00-. 9272688*01-.  159581 1*01-.  1252175*01-. 2659822*01-.  Ib39657*0l 
-.1600225*01-. 1098292*01-. 1651972*01-. 1660919*01  .5621976-00-. 1659979*01 
-.1669122*01  .2172095*01-. 1655690*01-. 1670618*01  .3065969*01-. 1*55727*01 
-.1670831*01  .5637999*01-. 1655 792*01-. 16/0892*01  . 7509799*01-. 1655795*01 
-.1670890*01  .9599970*01-. 1655795*01-. 16/8899*01  . 1 169009*02-. 1655795*01 
-.1670899*81  .1393200*02-. 1655795*01-. 16/9899*01  .1629521*02  .0833665*01 
.  1300000*02-.  1273(107*01  .5571208-00-. 6387855*01-.  1533838*01-.  7508531-00 
-.9776901*01-.  1620631*01-.  1963308*01-. 3169387*01-.  1698991*01-.  1639668*01 
-.155291 1*01-. 1653760*01-.  1665970*01  . 5799960-01-.  1655968*01-.  Ib70123*01 
.1667389*01-.  1655691*0.-.  1670  756*01  .3361261*01-,  1655736*01-.  1670875*01 
.5133235*01-. 1655793*01-. 1670095*01  . 7005091*01-, 1655795*01-. 1670899*01 
.9095262*01-. 1655795*01-. 1670899*01  . 1118533*02-. 1655795*01-. 1670899*01 
.1392729*02-. 1655795*01-. 1670699*01  .15/9050*02  .9210390*01  .1300000*02 
-. 1923399*01-. 72 56559-01-.  6922009*01-. 1565093*01-, 116 1302* 01-. 53l 8598*01 
-.1636333*01-. 1579628*01-. 3699269*01-. 16511 19*01-. 1657927*01-. 2087898*01 
-. 1666759*01-. 1668626*01-. 9775059-00- . 1658609*01-. 1670520*01  .1132378*01 
”•1655718*01". 1670829*01  .2826299*01-. 1856790*01-. 1670887*01  .9598223*01 
-.1685799*01-. 1670697*01  .6970028*01-. 1656795*01-. 1670899*01  .8510299*01 
-. 1685795*01-. 1870899*01  . 1065032*02-. 1651795*01-. 1870099*01  . 128^228*02 
-.1655795*01-. 1870899*01  .1525599*02  ,0000000  .0000000  .0008000 

59 

OIANL/SCAT  SHAU-18  INPUT  TAPtSU926.a«*08.9027)  11-7-87  CI/LN 

.1800880*01  .9890000*03 

1U9.  .2900000*02  1 


1  59 

l  55 
»  5fc 
1  57 

1  50 

1  59 

1  60 
1  61 
I  62 

1  63 

1  69 

1  65 

1  66 
l  67 
1  68 
I  69 
I  70 
1  71 

l  72 
1  73 

l  7, 
I  ’5 
»  ’6 
1  77 

l  78 
1  7, 

1  80 
1  81 
1  82 
1  83 

1  89 

I  »5 
I  8b 
1  87 

I  88 
I  89 
1  90 

1  91 

1  92 

1  93 

1  *9 

1  *5 

1  9„ 

1  *7 

I  98 
1  99 

1  100 
1  iOl 
1  102 
1  103 


l  0 


I 
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.4034651-00  .1300000*02  .1209713*02  .1313172*02  .1407073*01  .1173684*02  1  1 

.1273210*02  . 3553500*01  .1106455*02  .1230631*82  .5B140B»*01  .9958061*01  1  2 

.114223b*u2  .795b44V*Ul  .6461625*01  .99/b41b*01  .1007414*02  .64/5009*01  1  3 

.8390024*01  • 120bb2b«U2  .53U9024*01  .6732670*01  .1395916*02  .3351515*01  1  4 

.4020072*01  . IbO 3413*02  .1279907*01  .2a33b9t»01  . 1773862*02-. 7o7 1361-00  1  S 

.7b7bb4l-00  .1979271*02-. 2177021*01-.  1000797*01  .2201373*02-. 2863699*01  1  (, 

-.2312400*01  . 2444920*02“, 2903 Jbb* 01". 2892999* U 1  .2702304*02  .8109302-00  1  7 

.1300000*02  .1312012*02  .1336dcu*02  .2100872*01  .236020*02  .1297988*02  1  n 

,41buo0b*01  .117 3b49« 02  .12bblO2*02  .b301b43*01  .1046103*02  .U4a940*02  1  9 

.8274792*01  .8899907*01  .9763972*01  .1008081*02  .7093812*01  .7914443*01  1  10 

.1178096*02  .8283121*01  .8144491*01  .1388066*02  .3829428*01  .4860963*01  1  11 

.1849708*02  , if «* .-*4 94*01  .26b8o4l*01  .1787264*02-. 3121217-00  .8803373-00  1  12 

.1469004*02-. 1669863*01-. 1033220*01  .21697Q4*02-. 2640660*01-. 2381830*01  1  13 

.2421772*02-. 2726809*01-. 2b81u34*01  .2669498*02  .1223778*01  .1300000*02  1  14 

.1304946*02  .1320262*02  .2382166*01  .1284662*02  .1270896*02  .4315073*01  1  18 

.1172769*02  .1218480*02  .6161684*01  .1048852*02  .1115693*02  .7982703*01  1  lb 

.8840401*01  .9677084*01  .9790905*01  .7099170*01  .7961490*01  .1159444*02  1  17 

.5245060*01  .6136086*01  .1340095*02  .3354704*01  .4317653*01  .1526423*02  1  18 

.1464316*01  .2436653*01  . 1724945*02-. 4352428-00  .5158792-00  .1938952*02  1  19 

-.1913936*01-. 1339326*01  .2136104*02-. 2492631*01-. 2336796*01  .2383396*02  1  20 

-.2531234*01-. 2503231*01  .2629244*02  .1609438*01  .1300000*02  .1272018*02  1  2l 

.1290964*02  .2323337*01  .1230217*02  .1232336*02  .4104277*01  .1153024*02  1  22 

.1202673*02  .3956238*01  .1030321*02  .1064929*02  .7790547*01  .8397644*01  1  23 

.9290960*01  .9336094*01  .6732369*01  .7317192*01  .1130407*02  .4829606*01  1  24 

. 3620998*01  .1310935*02  .2403604*01  .3734300*01  .1493800*02  .1052238*01  1  25 

.1971748*01  .1087570*02-. 7455193-00  .1308546-00  . 1899334*02-. 1952746*01  1  £6 

—  • 153o159*01  « 211 7o02*U2-. 23 162o3*U1- .2226 161 *01  ,2349003«02-.23474B0*0l  1  27 

-.2323446*01  .2391117*02  .1943410*01  .1300000*02  .1223101*02  .1260711*02  1  28 

.2138342*01  .1193723«U2  .1224976*02  .3928737*01  .1119692*02  .1168631*02  1  29 

.5744214*01  .9836409*01  .1040481*02  .7334608*01  .7933886*01  .8704504*01  1  3p 

.9290733*01  .61281/3*01  .o42U4o4»01  .1049350*02  .4395373*01  .3138034*01  1  3l 

.1277473*02  .2374431*01  .3366384*01  .1461257*02  .7244482-00  .1638427*01  1  32 

. 1633377*02-. 1UU3297*01-. 1633776-00  .166^384*02-. 1916176*01-. 1594696*01  1  33 

.2067462*02-. 2131026*01-. 20734U2*01  .2320300*02-. 2161023*01-. 2139838*01  1  34 

.2339666*02  .2302383*01  .13OUUO0*02  .1169093*02  .1223239*02  .1004721*01  1  3b 

.1141063*02  .1187767*02  .3061646*01  .1033862*02  .1123802*02  .5453303*01  1  36 

.9111233*01  .9909040*01  .7210103*01  .7410783*01  .8234993*01  .89*4964*01  1  37 

.5693743*01  .6337o6U*U1  .1U647o4*02  .3928641*01  ,4804401*01  .1242827*02  1  38 

.2169303*01  .3097611*01  .1428724*02  .3697033-00  .1377260*01  .1624303*02  1  39 

-.1193o79*01-. 4193719-00  . 1632u37 *02-. 1906343*01*. 1639844*01  .20*9916*02  1  *0 

-. 2073393*01-. 203237b*Ul  .22/6220*02-. 207*109*01-. 2036028*01  .2515299*02  1  *1 

.2706030*01  .1300000*02  .1134137*02  .1160964*02  .1396253*01  .1095346*02  1  *2 

.1143383*02  .3319236*01  .1009904*02  .1068998*02  .3084488*01  .875*167*01  1  *3 

.9326636*01  .0830166*01  .7033973*01  .76*9466*01  .8369340*01  .5246343*01  1  44 

.592ouUU*Cl  .1026026*02  .3341o29*01  .4140532*01  .1204093*02  <148*207*01  1  *5 

.2363308*01  .1385182*02-. 1886436-00  .5837179-80  . 1375363*02-. 1440379*01  1  46 

-.1013441*01  .1782323*02-. 1884390*01-. 180*606*01  . 1999363*02-. 1972761*01  1  *7 

-.1933761*01  .2226291*02-. 196*963*01-. 1946715*01  .2465686*02  .3113313*01  1  *8 

.1308000*02  .1100579*02  .1144710*02  .1223508*01  .1061827*02  .1106283*02  1  49 

.293*250*01  .97*6662*01  .1012007*02  .*709600*01  .02*0276*01  .863196**01  1  50 

.6**6*16*01  .6379661*01  .6932999*01  .01*7*30*01  .*570003*01  .5231016*01  1  Si 

.*60«910«U1  .2611337*01  .3508*19*01  .115*200*02  .101)1*3*01  .100*023*01  1  52 

. 133*0*9*02-. 3§3**54-00  .1137229*00  . 1325*03*02-. 13I22«0*01~. 12**3*8*01  1  S3 

. 17328 56*02*. 1*21105*01-. 17722*3*01  .1950*52*02-. l*63*«l«tl*.l**30*2*01  1  5% 

.2177729*02-. 10*5270*01*. 1026699*01  .2*17009*02  .3326368*01  .1300000*02  1  53 
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.1027323*02 

.9096300*01 

.3797011*01 

.2222231*01 

-.046/333-00 

1764230*01' 

-.1733107*01' 

.1011104*02 

•  02  73900*01 
,3440bo9*01 
.2416736*01 

-.6031o49-00 
-.1663023*01 
-.1694972*01 
-.1391990-01 
.3368132*01 
.6719339*01 
.1011961*02' 
.1301027*02' 
.18002/3*02' 
.2262139*02 
.7069209*01 
.3237034*01 
. 1001b22*Ol 
-.0909014-00' 
-.1629036*01 
-.1073410*01 
.3010o3b*ol 
.7027173*01 
,b013bbl*01 
.1940222*01 
-.0134909-00 
-.13032 7b«ul 
-.1607918*01 
.1300000*02 
.2 164b23— Oo 
. 3319b b0*01 
.6700001*01' 

•  1027bb3*02' 
.1419109*02' 
.1037319*02' 
.0393910*01 
.4371046*01 
. 12b6bo9*ol 

-.1070930*01 
-.1302132*01 
-.1623014*01 
-.1023013*01 
.6324931*01 
.4170100*01 
.1004033*01 
-.12034  70*01 
-.1391494*01 
-.1600243*01 
-.1399670*01 


1099734*02  .0200131-00 
9570331*01  .4274036*01 
0330303*01  .7042374*01 
2963941*01  .1103370*02 
2037137-00  .14  74933*02- 
1713733*01  .1094140*02- 
1714773*01  .2300340*02 
3933294-00  .0734439*01 
3763330*01  .6319204*01 
7127009*01  .3241043*01 
1032174* J2-.0O6 7 339-01 
1424643*02-. 1610432*01- 
1040436*02-. 1714 1 20*01- 
2310324*02  .4240**43*O1 
02O237o*O1  .0710213*01 
3837094*01  .6207314*01 
2333103*01  .3403341*01 
337130O-UU  .3044014-00 
1020744*01 -.13301 36*01 
1090274*01-. 1074032*01 
4603170*01  .1300000*02 
0342060*01  • 1234o30*Ul 
3742001*01  .40142/1*01 
2823744*01  .7920303*01 
296034O-00  .1141040*02- 
1610243*01  .1334302*02- 
16332b9*0l  • 1974 14b*02- 
>300000*02  .7071947*01 
7399097-00  .61:4718*01 
4092032*01  .2790231*01 
7349336*01-. 13b071O-OO 
1003303*02- . 1 3069o6*Cl- 
1470414*02-. 1023336*01 - 
1910104*02-. 1620490*01- 
7122771*01  .7943022*01- 
3120011*01  .3404307*01 
2131o39*01  , 2O4b993*01 
6333372-00  .3062010-01 
1530006*01-. 1442307*01 
162 3263*01”. 1600301*01 
162631 1*01-. 1606143*01 
7222b44*01-.2Ol 2474*01 
477 lb04*  01  «1300o30*01 
2043290*01  .4374033*01- 
7212004-00  .7087446*01- 
1371033*01  .1133167*02- 
1007323*01  .1371204*02- 
1603222*01  .2032007*02 
2330743*01  .4931393*01 
7609339-00  .2076295*01 
4004237*01-. 6246334-00- 
7309449*01”. 1344033*01- 
1093330*02-. 1619625*01- 
1314 103*02-. 161012 1*01- 
,1974713*02  .6331080*01 


.4406992*01  .1034140*02 
.7300967*01  .0147647*01 
.4002432*01  .4632202*01 
.3e33972-00  .1307348*01 
.1390204*01-. 1380303*01 
.1733463*01-. 1733158*01 
.3912023*01  .1300000*02 
.9333920*01  .2094253*01 
.6849119*01  .3460402*01 
.4026608*01  .6784380*01 
.0203147-00  .1233911*02- 
.1441421*01  .1632424*02- 
.1644704*01  .2073780*02- 
.1300000*02  • 0706593*01 
.1670003*01  .7268054*01 
.3043110*01  .4232366*01 
.8304733*01  .8779872-00 
.  1 192434  *02- . 1 34 1 510*  01- 
.1303612*02-. 1090396*0 1- 
.2023161*02-. 1642347*01- 
.8400974*01  .9071832*01- 
.6620023*01  .7208133*01 
.3303024*01  .4341419*01 
.2643763-00  .1235804*01 
.1435124*01-. 1295752*01 
.16/3994*01-. 1038233*01 
.1630296*01-. 1037919*01 
.8672108 *01-. 9670003-00 
.6499836*01  .2430238*01 
.34/1477*01  .5727393*01 
.4001046-00  .9032307*01- 
.1413898*01  .1272317*02- 
.1603737*01  .1093641*02- 
.1000139*01  .2134437*02 
.1471424*01  .6337321*01 
.1879335*01  .3650343*01 
.3130172*01  .6233367-00 
•0< 43081*01-. 1336238*01- 
.1213036*02-. 161 1923*0 1- 
•1033123*02-. 1626126*01- 
.2093040*02  .3828940*01 
.3407414*01  .6002000*01- 
.2044396*01  .3477470*01 
.1660537-00  .5680126-00 
.1433595*01-. 1390869*01 
.1019447*01-. 1603389*01 
.1623846*01-. 1607483*01 
.6214600*01  .1300000*02 
.3317181 *01-. 6804014-00 
.2634351*01  .2388220*01 
.2901344-00  .5613234*01- 
.1324724*01  .9081894*01- 
.1600773*01  .1299844*02- 
.1399742*01  .1738382*02- 
.1300000*02  .4746233*01 


.2348563*01 

1  56 

.5969311*01 

1  37 

.9299309*01 

1  38 

.1284336*02 

1  39 

.lb81909*02 

1  60 

.2127397*02 

1  01 

.9229295*01 

1  02 

.7804737*01 

1  63 

.4040406*01 

1  64 

.1583223*01 

1  65 

.1199173*01 

1  &6 

.1696067*01 

1  67 

.1713335*01 

1  68 

.9433793*01 

1  69 

.7641731*01 

1  70 

.4934413*01 

1  71 

.1942083*01 

1  72 

.9331904-00 

1  73 

.1669290*01 

1  7h 

. 1674372*01 

1  75 

.4617382-00 

1  76 

.2432991*01 

1  77 

.6266020*01 

1  78 

.9636436*01 

1  79 

.1329379*02 

1  80 

. 1748900*02 

1  61 

.2212292*02 

1  82 

.7294575*01 

1  83 

.4518821*01 

1  84 

.1249873*01 

1  85 

.1090427*01 

1  6h 

.1615130*01 

1  87 

.1626346*01 

1  88 

.3416100*01 

1  89 

.6846880*01 

1  90 

.4010133*01 

1  9> 

.1343101*01 

1  92 

.1029191*01 

1  93 

.1592399*01 

1  94 

.1687967*01 

1  9b 

.1300000*02 

1  9U 

.3475837-00 

1  97 

.2944811*01 

1  98 

.6191702*01 

1  99 

.9639796*01 

1  100 

.1337191*02 

1  101 

.1793434*02 

1  102 

.3656698*01 

1  103 

.3672535*01 

1  IO4 

.5356671-00 

1  103 

.1263461*01 

1  106 

.1610796*01 

1  107 

.1616698*01 

1  108 

.1618064*01 

1  109 

.5952726*01 

1  110 

470 


AFWL-TR-67-1  31 ,  Vol  IV 


-.3002100*01  .  3685479*'j1  •  ■*b0**ti'4 1  .UI-,1361169*U1  ,ibfcO»6B»01  .3225920*01  1  111 

.2067695-00  .1055000*01  .1552025*01  . 15571 04*U1*. 2481685-00  .2217642-00  \  112 

.  3500055*01-.  1094u.:2*01-.6J12  725-0D  .51 12451*01-.  1550051  *01-.  1371031*01  1  113 

.60U6911*0»-.  1566090*01-.  15>*bJ6H.Ul  . 5553509*01*.  161 1 291  ♦  0 1*.  1590557*  01  1  1U 

.  1045563*02-.  loluu 0u«01*.  1590531*01  . 1249715*02-.  1517917*01*.  1599566*01  1  11;, 

.  1963726*02— •  ltol5022*ol*.  1599u4O*01  . 1607923*02*.  16 1  BO  30  *D  1*.  1599653*0 1  1  lie 

.1924244*02  .6907755*01  .1300000*02  .3762156*01  . 5091725*01*. 3615428*01  1  117 

.27<*5532*ol  .3719193*01*.  10 OH 359 *01  .1371961*01  .2227399*01-. 2bl7208-0o  1  1 1 8 

. 2592309-01  .5920909-00  . 1 355 766* 0 1- . 8393990*00*. 2929993-00  .2970939*01  l  119 

-.139/576*01-. 1095356*01  .9553139*0 1*. 1 539977*01*. 1967915*01  .6277926*01  1  120 

-.1600739*01*. 1552267*01  . 6050116*01*. 1615779*0 1*. 159 7923*01  .9921960*01  1  12l 

-.161/922*01*. 1599299*01  . 1196219*02*. 1617590* 01*. 1509465*01  .1910225*02  1  122 

-.Ibl7ol0*0l*. 1599991*31  . Ib3992 1*02*. Ibl7bl2* 01*. 1599999*0 1  .1h70793*02  1  123 

.7313220*01  .1300000*02  .2961555*01  . 9230671*01*. 910670b*01  .1976535*01  1  129 

.2895152*01*. 2909692*01  .6935671-00  . 1539792*01-. 6635972-00- .9619299-00  1  125 

.2077193-00  .7530500-00*. 1153975*01-. 57392011-00  .2365893*01*.  1996210*01  1  12b 

-.192/336*01  . 397o033*01*. 1596360 *0 1*. 15/0963*01  .5669979*01 -. Ibl31 71*0l  1  127 

-.1599116*01  .7991962*01*. 1615256*01*. 1597798*01  .9313769*0 1 -. lbl 5583*01  1  126 

-.1596317*01  . 1135399*02*. 1615o26*01*. 1595393*01  . 1399906* 02*. Ibl5b3l*0l  1  129 

-.1596901*01  .1573602*02-. 1615631*01*. 1596902*01  .1609923*02  .7716665*01  1  130 

.13001)00*02  .1590226*01  . 390393 1*0 1- . 9 70 7951  *01  . 100120M*01  .2122609*01  1  13l 

* •  30030 u5* 0 1  *.  1710 365-UO  . 712 /535-00-.  I9b9069*01*.  1 105120*01*. *JO'H>291-O|i  1  132 

„  .1900919-00*. 199653 /*ol*. 1335312*01  . 1 75/950*01-. 1590797*01*. IV 95035*0 l  1  133 

.3Jo/9U2*Ui*. 1609611*01*. 15il/ol5*01  .5U6l7il9*Ul*.  161  3363*01*.  »5’*59llb*0l  1  13<t 

.6833/66*1)1*. lblJ'/uHtdl-.lb'/i.jllJ*!)!  .0/05572*01*. 1614056*01*. 1-, 97029*01  1  13*, 

•10745/9*u2*. Iul406d*0l*. 1597052*01  . 1260586* 02* . 1014070*0 1 *. 1 597055*0 |  1  13b 

.1512/62«U2-.lbl4u/U*Ol-.1597il55«0l  .1749103*02  .6131531*01  .1300000*02  1  137 

.276/546-00  .2379004*ul-.6J13965*01-.h03H533-00  . 9036716-00*. 36*'5b37*0I  1  13b 

-.1235992*01*.  3/4950  /-00*. 20i>32»0 *01*.  1516224*0 1 -.  1243 /?5*ni-.47.'ro23-0|1  1  139 

•  -.  159455 /*Ui-.  1522656*01  .  1 1 311  /  33*  U  1- .  16 1  3934*0 1*.  I6)mll72*0  1  .274111.45*01  1  19  II 

—  ,  III  111  755*0  1*  •  1 5494911  •  U 1  ,4442,.53*O|-«l»l,'54tt*Ol-.l*ill?394*01  .Ii2l449'i*0l  1  I  4  J 

iiil)miiO*oi-.t6iH!>*i/*9l  .mi)'i.3ii|Mtii-.ii.lM'iiiii«iii-,if.iii*,Mi*(ii  ,iui?»53'n?  1  14? 

U>lli9UJ»tll*.  Il.01ii5tl*lll  .12. 9. i.S9*ii, •-«l(illl9li3Mil-,ll.0l».*, 9*01  •  1 », •i0*»,>*» •  «,'•  1  143 

*.ltlll)903*Ul*.l60lb59*lll  .169/1  It. *112  .H5l/l’*i*01  .  1 3IIMI0"  *52-.  /l*4 124  /-till  1  14i, 

.16U/044*Ui-.5U69952*Jl-. 12/9469*01  . 194 1 307-00*.  4273 1?7  •  0 1* .  1  •,135;>5*0 1  1  14., 

-.  946U136-UU-. 2o6l475*01*.  159b644*01*.  14511301*01*.  1050  124»01*.16?220b*01  1  14(, 

-.1554696*01  .5602559-U0*. Iu264 /6*0 1*. 1610190*01  ,217D155*D1-. lb29910*Ol  1  14? 

*. lbl5**6U*U*  . 3u64u3u*61*.16J0o1 1*01-. 1616061* 01  .5636005*01*. Ih30056*0l  1  14? 

-.1617027*01  .7507011*01*. 1630563*01*. 1617053*01  .9546032*01*. 1630064* Ol  1  149 
-.16171)56*01  . 1168610*1)2-.  1630064*01-.  1617057*01  .  1393006*02*.  lb30064*01  1  150 

-.1617057*0*  • 162932 7* J2  .6053665*01  . 1 300000*02*. 1 187809*0 1  .9054291-00  1  151 

«, 6 3934 52 *U1-. I 49350 7*01 -.4 7453 14-00*. 47 77426*01*. I 59420U*0 1*. 1296055*01  1  152 

-. 3166064* 01*. 162614 /*U l*. 1556312*0 l*. 1554601 *01”, 1635947*0 l*. 161691 1*01  1  153 

.5555545-01*. 1636362*91*. 1627527*01  . 1665446*01*.  163890 /*0 1-.  lb?.9932*0l  1  15t» 

. 3359322*01*. l639Ull*Ul-.ioJ03*iJ*01  . 5131297*0 1*.  1639030*01*.  lbS0462*Ol  1  155 
•  70031 92 *01*.  1639033*01*.  163 04/4* 01  .9043324*01*.  1639033*  01*.  lbM476*0l  1  15b 

. 1116339*02*. 1639033*01*. 1630476*01  . 1342535*02*. 1639033*01*. 1630476*01  1  157 

,1575656*02  .9210340*01  . 1300900*02*. 1461882* 01  .6115247-01*. 6927750*01  1  156 

-.1595925*01*. 1046192*01*. 5312217*01*. 1636792*01*. 1517074*01*. 3708100*01  1  159 

-.1648326*01*. 1627186*01*. 2069793*01*. 1655047*01*. 1669296* 01*. 4794520-00  1  160 

-.  1655647*01*. lo70b59*Ul  .  1130437*0 1*.  1655735*01*.  1670694*01  .262,4309*01  1  161 

-.1655752*01*. Ib70936*0l  .4596264*0 1*.  1655755*0 1*.  1670946*0 1  .646jB090*0l  1  162 

-.1655755*01*. 1670947*01  .850631 1*0 1*. 1655755*01*. 1670947*01  .1089638*02  1  163 

-.1655755*01-. 1670947*01  . 1289034*02”. 1655755*01*. 1670947*01  .1525355*02  1  164 

16 


4 
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AFWL-TR. 67-131,  Vol  IV 


01ANC7l2FRt.uUtM.ltS  LN/kS  4/8/o7  TAPE  16U9  THIUll.-lO.  )tV/6/FR0MS02 
.1200000*02  .2B70u00*04 
107A.  .7000000*01 

.0000000  . 1000000*02  .110*146*02  .1247070*02  .6469110-00  .1001900*02  1  1 

.1200041*02  .2710296*01  .10294***02  .1164915*02  .6962266*01  .9077560*01  1  2 

.1071666*02  .697i'766*01  .7260741*01  .906*116*01  .6762679*01  .5166247*01  1  4 

.7464972*01  .10666*1*02  .4410629*01  .*741660*01  .1226764*02  .1697965*01  1  h 

.6056626*01  .1641**1*02-. 2747665-00  .2142704*01  . 1660951*02-. 2621677*01  1  S 

-.101166**00  .105962**02-. 6114940*01-. 2528665*01  . 2096068*02-. 6057725*01  1  {, 

-.646*956*01  .2426o78*02-.*00853*»01-.6942520*01  .2*66166*02  .6056651-00  1  7 

.1400000*02  .11*1*05*02  .I221o76*02  .1092252*01  .1155616*02  .1195796*02  1  6 

.5029707*01  .1062726*02  .11006*2*02  .6915616*01  .9191066*01  .1108590*02  1  9 

.6729567*01  .7504462*01  .9*20666*01  .6589165*01  .556*762*01  .7566169*01  1  10 

.1064659*02  .4660996*01  .*652740*01  .1241689*02  .1226068*01  .5l62790*0l  1  U 

.1626060*02-. 1121068*01  .76*7261-00  .16227*6*02-. 5206017*01-. 1591612*01  1  12 

.1620716*02-. 66*0*79*01-. 4669404*01  .2064451*02-. 66*7616*01-. 6645986*01  1  14 

.2270592*02-. 6031*78*01-. 6661112*01  .2520625*02  .6109302-00  .1300000*02  1  16 

.1096027*02  •  1202064*02  .1066097*01  .1098106*02  .1179736*02  .2935262*01  1  1*, 

.1064369*02  .11*4948*02  .6820128*01  .9090290*01  .1065563*02  .6677662*01  1  lb 

.7106127*01  .8806962*01  .2690197*01  .*0*2013*01  .6639531*01  .1023631*02  1  17 

.2692297*01  .667619**01  .1198738*02  .9791516-00  .262122**01  .1379366*02  1  16 

-.627*727-00  .1110440*01  .1*7*546*02-. 2365616*01-. 5592360-00  .1792511*02  1  19 

-.3797911*01-. 2*16051*01  . 2014297*02-. 64*6660*01-. 3965651*01  .2269326*02  1  20 

-.6627716*01-. 6477260*01  .2*004*6*02  .1224775*01  .1300000*02  .1036689*02  1  21 

.1161729*02  .9779064-00  .1064017*02  .1142056*02  .2803967*01  .1006915*02  1  22 

.10980*1*02  .66207*9*01  .8766446*01  .99*4079*01  .6369102*01  .7068974*01  1  24 

.6494791*01  .8094992*01  .*2849o**01  .6671665*01  .9805570*01  .4682077*01  1  26 

.6624240*01  .1162176*02  .16*0696*01  .2920496*01  . 1451 067*02-. 6796016-00  1  25 

.6716986-00  .1558106*02-. 4101975*01-. 2102544*01  . 17746 12*02-. 6166213*01  1  26 

-.3608117*01  .1989292*02-. 64166*2*01-. 62*91*7*01  .2213717*02-. 6439867*01  1  27 

-.6417478*01  .26*0070*02  .lb09646«01  .1400000*02  .9910696*01  .1111660*02  1  2o 

.7419067-00  .9897661*01  .1011*215*02  .25*6266*01  ,9649211*01  .1069861*02  1  29 

.6270891*01  .8668297*01  .948**10*01  .6047271*01  .7103630*01  .7Rl903b*01  1  30 

.7806064*01  .6662562*ul  .5611746*01  .96*1355*01  .1980560*01  .2866355*01  1  4l 

. 1166922*02-. 6918092-00  .6944880-00  .1326149*02-. 2723670*01-. 1261634*01  1  42 

.1514u79*o2-.4u60*Ul*Ul-. 4044119*01  . 1716162*02-,  620077***01-. 49*0960*01  1  33 

•194*00**02-.620*546*01-. 6146960*01  .2167527*02-. 6165366*01-. 6120961*01  1  36 

.2611632*02  .196*910*01  .1400000*02  .9672870*01  .1056656*02  .6470293-00  1  35 

.9976666*01  .1020670*02  .2200869*01  .9212809*01  .966*642*01  .6015965*01  1  46 

,771902**01  .826*654*01  .*918769*01  .5087665*01  .59277*4*01  .76*1965*01  1  47 

.25296***01  .4968046*01  .9292992*01  .*491710-00  .2210358*01  .1099927*02  1  36 

-.117**02*01  .*861186-00  . 1281013*02-. 2640965*01-. 9976274-00  .1676311*02  1  39 

-.3*655/3*01-. 2571480*01  . 1689642*02-. 3692609*01-. 35626*9*01  .1911666*02  1  6o 

-.392*723*01-. 4859667*01  .2163775*02-. 3890281*01-. 3666069*01  .2366277*02  1  *1 

.23023*5*01  .1300000*02  .91*5679*01  .1006136*02  .1601700-00  .92*3297*01  1  62 

.96  2362*01  .20116*2*01  .80704*1*01  .9289900*01  .4862136*01  .610*320*01  1  *3 

.7646*47*01  .5566562*01  .6229220*01  .624*2*5*01  .7202652*01  .2616697*01  1  66 

•6566*41*01  .6*08569*01  .1047153*01  .2*44993*01  . 10*7612*02-. 5292762-00  1  6* 

.1121121*01  .1233617*02-. 1976500*01-. 3997666-00  . 1**6673*02-. 2939975*01  1  66 

-.1902107*01  .1*63097*02-. 3339546*01-. 162*956*01  . 1909953*02-. 3337997*01  1  67 

-.32609*0*01  .2150*16*02-. 3306049*01-. 3292406*01  .239151**02  .0000000  1  *6 


0IANC/56AT  KC-12A  TCNPU-lOl  12  FRC#  CI/RS  5-2-67  INPUT  T*PE(S230) 
.1200*00*02  .2*70000*03 
1*56.  .7000000*01 


472 


AFWL-TR-67-131,  Vol  IV 


.OOvUOOO  • 1300000*02  *1160196*02  .1199673*02  .9327391*01  .1012753*02  1  1 

.1239795*06  •  5936063*01  .6561137*01  .10629<t9«02  .7599161*01  .7906997*01  1  2 

.9696203*01  .9159761*61  .62339/7*01  .6667269*01  .1076517*02  .91)70105*01  1  3 

.7533051*01  • 1237501*02  .3323397*61  .6091597*01  .1906691*02  .1692296*01  1  9 

.9363736*01  . 1569069*62-. 1522976-00  .2573075*01  . 1771270*02-. 1998390*01  1  5 

.5695526-66  .1975292*62-.3371 796*61-. 1995600*01  .2169299*02-. 3076369*01  1  6 

-.32/0636*61  .291 39 95* 62-.91519 69*01- .9090763 *01  .2699616*02  .9059651-00  1  7 

.1306000*02  .1160620*62  .1326297*62  .3716602*01  .1093232*02  .1176976*02  1  6 

,532o9o7*01  .6699193*61  .1057o92*02  .6936766*01  .7361175*01  .9335999*01  1  9 

.6597215*61  .6036262*61  .7965933*01  .1015729*02  .9565256*01  .6V*9693*01  1  10 

.1176669*02  .2951066*61  .9961195*01  .1396073*02  .1232760*01  .3259915*01  1  U 

. 1523270*02-. 5605355-0C  .1921335*01  .1710950*02-. 2366695*01-. 5677902-00  1  12 

.1919972*62-. 3019939*01-. 2993260*01  . 2126979*02-. 9059099*01-. 3531970*01  1  13 

.2352075*62-.9103066*01-.377393tt*01  .2566996*02  .6109302-00  .1300000*02  1  19 

.1699030*02  .1203957*02  .3169636*01  .1096265*02  .1150206*02  .9716997*01  1  I5 

.9262017*61  .1089937*02  .6326799*01  .7702082*01  .1009996*02  .7939232*01  1  lfc 

.6269069*61  .6096959*01  .9599133*01  .9731659*01  .7069166*01  .1115672*02  1  I7 

.3076063*01  .5917739*61  .1265259*02  .1326266*01  .3769179*01  .1962950*02  1  16 

-.5112979-00  .2209726*01  . 1o99o36*02-.2325537*01  .1120236*01  .1&S3653*02  1  19 

-.3559291*61  .7693610-00  .26b7o59*02-. 9021629*01  .7562200-00  .2291655*02  1  20 

-.9192716*01  .0095705-06  .2520100*02  .1223775*01  .1300000*02  .1011199*02  1  21 

.1202252*02  .2966516*01  .9766210*01  .1116637*02  .9097666*01  .9266066*01  1  22 

.1670091*62  .5709172*01  .6229616*01  .9672662*61  .7319919*01  .6796520*01  1  23 

.6961199*01  .8929666*01  .5231991*01  .7022966*01  .105391*5*02  .3552607*01  1  2d 

.5699612*61  .1223327*62  .1793122*01  .9659139*01  . 1900525*02-. 5152120-01  1  25 

.9363992*61  .1587799*02-. 1996909*01  .9067733*01  . 1793632*02-. 3*26922*01  1  2b 

.2962522*61  . 2633976*02-. 3760069*01-. 1690039*01  .2263993*02-. 3809106*01  1  27 

-.37597e0*01  .2999o9o*02  .1609936*01  .1300000*02  .9623697*01  .1136998*02  1  2s 

.1903096*61  .9283391*01  .1071657*02  .3515935*01  .8789966*01  .1090996*02  1  29 

.5129219*61  .6203935*01  .9660699*01  .6791063*01  .7322630*01  .61,96296*01  1  3o 

•  635156  /*01  .5932719*01  .7961916*01  .9969829*01  .91529i»l«01  .6«13978*0l  1  3l 

.1172263*62  .1190636*61  .9269736*01  . 13/2393*02- . 1622663*0 1  .6663763-00  l  32 

•  1563371*02-«3l71260*01-.2316725*01  .1767533*02-. 3729838*01-. 3593533*01  1  33 

.1961697*02-. 3869336*61-. 3703666*01  .2266752*02-.  3779670*01-.  3751956*01  1  3<* 

.2998369*62  .1995916*01  .1306660*02  .9819159*61  .1067769*02  .1363990*01  1  35 

.9126053*61  .1033297*62  .3662609*01  .6932567*01  .9923366*01  .9625176*01  1  36 

.7699501*61  .9199919*01  .0262179*01  .6656922*61  .7613116*01  .6020052*01  1  37 

.9316266*61  .9975599*61  .9773196*61  .1625991*01  .2501353*01  .1198596*02  1  36 

-.5356180-66  .6702959-60  . 1326056*02-. 1606301*01-. 6972056-00  .1519331*02  1  39 

-.2596932*01-. 1759959*01  .1723079*02-. 3301129*01-. 2921999 *01  .199*791*02  1  90 

-.3629132*01-.  3565925*01  .2166979*02'. 3662907*01*. 369399r/*01  .2909135*02  1  9J 

.2302565*01  .1300000*02  .9926367*01  .103)6301*02  .6996533-00  .90*1961*01  1  92 

.9926059*01  .2520565*61  .6199693*01  .9061217*01  .9282671*01  .6976997*01  1  93 

.7993666*01  .6009758*01  .9716635*01  .5695699*01  .7696307*01  .339M16*01  1  9« 

.9956950*01  .9266272*01  .2228162*01  .3156927*01  .1099950*02  .9593169-00  1  *5 

.1699617*01  .126*696*02-. 7316137-00  .1117635*00  .1975590*02-. *373*56*01  1  «6 

-.1661966*01  . 1667*66*02-. 3197190*01-.*991*56*61  . 1909729*02-. 3376902*01  1  97 

-.3391676*01  .2192396*02-. 3355957*01-. 3391*55*01  .*36*695*02  .0000009  1  9* 

7 

THIS  IS  THE  END  '*  THE  DIANE  0PAC1TT  TAPE  •  A.  KNOPP  11/11/67  , 

•3963 
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APPENDIX  III 

EQUATION -OF -ST  ATE  AND  RELATED  PROGRAMS 


Results  of  running  HELAS  and  HELIKE  were  used  as  card  input  to 
MARIER.  MARIER  uses  a  polynomial  fit  among  ionization  potentials  to 
obtain  all  unknown  ionization  potentials.  The  results  of  MARIER  are  used 
in  the  block  data  program  MARI,  which  is  used  by  GOLEM  when  GOLEM 
is  used  to  run  EIONX.  TEDIUS  computes  number  fractions  for  a  given 
compound  and  these  are  used  in  DATA  statements  in  EIONX.  Input  and 
format  specifications  for  each  code  are  given  with  the  description  of  the 
code.  The  flow  of  information  (dotted  lines)  and  control  (solid  lines)  is 
,  summarized  in  figure  1. 

OPACITY  PROGRAMS 

AUGEAS  creates  an  input  data  tape  for  DIAPHANOUS,  which  makes 
an  input  data  tape  for  DIANE.  DENSER  condenses  the  DIAPHANOUS  tape 
onto  a  new  tape,  which  is  edited  by  DASE.  ANDIMX  makes  an  opacity  data 
tape  from  an  1100  binary  tape  converted  from  a  LASL  binary  data  tape. 
COMBO  can  combine  DIAPHANOUS,  ANDIMX,  or  DENSER  tapes  to  produce 
a  DENSER -like  tape  or  an  ANDIMX-like  tape  to  be  used  by  DIANE.  IMESI 
is  a  calling  program  for  DIANE,  DIANTC,  and  DIANCT.  DIANE  uses  a 
DENSER  tape,  an  ANDIMX  tape,  or  a  DIAPHANOUS  tape  and  creates  a 
DIANE  tape.  DIANTC  punches  data  cards  or  writes  a  DIANE  BCD  tape,  or 
both,  from  a  DIANE  binary  tape.  DIANCT  writes  a  DIANE  binary  tape 

* 

from  data  cards  punched  by  DIANCT  or  from  a  DIANE  BCD  tape. 

IMES2  is  a  calling  routine  for  GREYS,  ‘  GREY,  and  REDGRE.  Cards 
•  punched  by  DIANTC  are  used  as  input  for  GREY’S,  which  makes  a  data  tape 
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Figure  1.  Equation-of-State  and  Related  Programs  General  Flow 
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that  is  edited  by  EGREY.  REDGRE  condenses  data  from  the  GREY  tape 
onto  another  data  tape  or  punches  *~ards  in  the  form  of  DATA  statements. 
Flow  of  information  and  control  are  summarized  in  figure  2. 

PROCEDURE  FOR  CREATING  A  DIANE  TAPE 

AUGEAS  is  run  to  obtain  an  input  data  tape  for  DIAPHANOUS.  This 
input  tape  must  be  mounted  on  unit  12.  The  card  input  and  its  formats  are 
listed  in  reference  lb.  AUGEAS  can  also  be  run  with  subroutines  LEVELS 
and  MARI  as  indicated  in  the  LEVELS  section  of  this  report.  To  run 
DIAPHANOUS,  the  AUGEAS  data  tape  must  be  mounted  on  unit  12  and  the 
output  tape  written  by  DIAPHANOUS  must  be  mounted  on  unit  15.  The 
formats  for  the  card  input  are  listed  in  reference  lb.  However,  DIAPHA¬ 
NOUS  has  been  modified  slightly  for  use  with  another  program.  This 
modification  necessitates  that  the  first  input  card,  a  heading  card,  must 
not  have  columns  1  through  6  entirely  blank  for  DIAPHANOUS  to  run  in  its 
normal  mode. 

LASL  data  tapes  must  be  converted  to  6600  binary  tapes.  These 
binary  tapes  are  input  to  the  ANDIMX  code  and  must  be  mounted  on  unit  14. 
ANDIMX  writes  an  output  tape  that  must  be  mounted  on  unit  12.  The  card 
input  and  formats  are  listed  in  the  ANDIMX  section  of  this  report. 

A  DIANE  run  is  made  by  using  a  DASIAC  DIAPHANOUS  or  SILVIA 
data  tape,  or  a  DIAPHANOUS  tape,  or  an  ANDIMX  tape  as  input.  If  a 
DASIAC  tape  is  used,  the  tape  must  be  read  in  even  parity  at  556  BPI. 

The  following  routines  are  necessary  to  make  a  DIANE  run: 

IMESI  is  the  main  program  and  uses  the  following  subroutines: 
ALUETO,  DIANTC,  DIANE,  DIANCT,  DINNEW,  DOLDIN, 
DYPDIN,  EDIANE,  PLNKUT,  SILVIA,  ZSA  ZSU,  MERR, 

DIVCHK,  and  DVCKON. 
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Now,  SILVIA,  ZSAZSU,  MERR,  DIVCHK,  ALUETO,  and  DVCKON 
arc  dummy  subroutines;  MERR,  DIVCHK,  and  DVCKON  are  system  sub¬ 
routines  for  the  UNIVAC  1108,  which  may  be  dummied  on  the  6600. 

Further  information  on  DIANE  may  be  found  i"  the  comments  at  the 
beginning  of  the  listing.  A  flow  summary  is  given  in  figure  3. 

INPUT  TO  IMESI  is  two  cards  containing  the  following  information: 


VAR. 


CARD 

COLUMNS 

FORMAT 

NAME 

MEANING 

1 

1-72 

12A6 

ID(12) 

72  columns  of  Hollerith  title 
information 

2 

1 

11 

IBINO 

Used  to  indicate  tape  identification 

type  for  DINNEW,  DIANCT, 
DIANTC ,  EDIANE  runs. 


0  if  binary  ID 
1  if  BCD  ID 

If  >  1 ,  used  by  DIANTC  or  DIANCT 
to  determine  output  tape  unit  for 
writing  a  BCD -formatted  DIANE 
tape 

2  2  II  IRUN  Determines  run  type : 

*0  if  "normal"  run;  IBINO  is  set 
to  zero  and  routines  DIANE 
(0,  IBCD0) ,  DINNEW  (0), 
EDIANE  (10,  0),  and  DIANTC 
(10,  0)  are  called 
1  for  all  other  runs 


To  obtain  a  usable  "new  format"  (Grey  absorption  coefficients  first), 
DIANE  tape,  and  punched  output  data  cards,  set  IRUN  to  zero.  The  DIANE 
subprogram  produces  an  "intermediate  format"  (Grey  coefficients  last) 
data  tape;  the  DINNEW  subprogram  produces  a  "new  format"  DIANE  tape; 
the  EDIANE  subprogram  edits  the  "new  format"  tape;  the  DIANTC 
subprogram  punches  output  cards  from  the  "new  format'  tape. 
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EXECUTE 

AUGEAS 


LASL 

DATA 

TAPE 


PRODUCE 

DATA 

TAPE 


CONVERT  TO 
6600  BINARY 


RUN  AND IMX 
AND  MAKE 
DATA  TAPE 


EXECUTE 
DIAPHANOUS 
USING  INPUT 
AUGEAS  TAPE 


EXECUTE  DIANE 
USING  INPUT 
DATA  TAPES 


Figure  3.  Procedure  for  Creating  a  DIANE  Tape 


* 
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VAR. 

CARD  COLUMNS  FORMAT  NAME  MEANING 

2  3-23  20A1  IPATH(J)  Array  used  to  determine  subroutines 

(and  order  of  subroutines)  called: 

D  DIANE  (SCAT,  IBCDO) 

W  DINNEW  (IBINO) 

E  EDLANE  (TAPE  10,  IBINO) 

C  DIANTC  (Tape  10,  IBINO) 

T  DIANCT  (Tape  10,  IBINO) 

Y  DYPDIN 

P  EDLANE  (Tape  11,  IBINO) 

Q  DIANTC  (Tape  11,  IBINO) 

R  DIANCT  (Tape  11,  IBINO) 

N  DOLDIN  (IBINO) 

O  ALUETO 
A  SILVIA 
U  ZSAZSU 
Z  calls  EXIT 

2  25  II  SCAT  Used  to  indicate  scattering  limit 

in  DIANE : 

0  if  limit  of  0. 2 

1  if  limit  of  1 .  E  -10 

2  if  limit  of  0.  3977 

2  26  II  IBCDO  Used  to  indicate  type  of  input 

DIAPHANOUS  tape  used  by 
DIANE- 

0  if  compressed  BCD  input 
tape 

1  if  noncompre ssed  binary 
input  tape 


481 


AFWL-TR-67-1 31,  Vol  IV 
REFERENCES  CODES 


Throughout  this  volume  numerous  references  are  made  to  writeups 
of  the  codes  shown  below.  The  writeups  can  be  found  in  reports  listed  by 
each  code. 


CODE 

1.  DIAPHANOUS 


2.  DIANE 


3.  ZSAZSA 


4.  SYLVIA 


5.  EIONX 
CMOL 


REFERENCE 

a.  Stewart,  J.  C.,  and  K.  D.  Pyatt,  Jr.,  "A 
Theoretical  Study  of  Optica)  Properties,"  Air 
Force  Special  Weapons  Center  Report  AFSWC- 
TR-61-71,  v.  I,  September  1961. 

b.  Walsh,  R.  T.  ,  "DIAPHANOUS  II,  "  General 
Dynamics,  General  Atomic  Division  Informal 
Report  GAMD- 5649,  1 964  (AD  453-351 L) 

a.  Lindley,  W.  B.  ,  "DIANE -A  Computer  Program 
to  Provide  Multi-Frequency  Absorption  Coeffi¬ 
cients  by  Local  Rosseland  Averaging,"  General 
Dynamics,  General  Atomic  Division  Informal 
Report  GAMD-5501,  July  1964. 

b.  Freeman,  B.  E.  ,  and  C.  G.  Davis,  "Fireball 
Phenomenology  and  Code  Development,"  v.  V, 
"Material  Properties,"  Air  Force  Weapons 
Laboratory  Report  AFWL-TR-65-143 ,  August 
1965. 

a.  Lindley,  W.  B.  ,  "ZSAZSA-A  Data  Processor  for 
Low-Temperature  Air  Absorption  Coefficients ,  " 
General  Dynamics,  General  Atomic  Division 
Informal  Report  GAMD-5496,  July  1964. 

b.  Freeman,  B.  E.  ,  and  C.  G.  Davis,  "Fireball 
Phenomenology  and  Code  Development,"  v.  V, 
"Material  Properties,"  Air  Force  Weapons 
Laboratory  Report  AFWL-TR-65-143,  August 
1965. 

Smith,  P.  R.  .  W.  G.  Vulliet,  and  W.  B.  Lindley, 
"Predictions  of  Thermal  Damage  in  Nuclear 
Fireballs,"  v.  II,  "Material  Properties,"  Air  Force 
Flight  Dynamics  Laboratory  Report  AFFDL 
TR-66-45,  February  1966. 

Pyatt,  K.  D.  ,  "Nuclear  Explosion  Interaction 
Studies,"  v.  II,  "Methods  of  Analysis  of  Thermal 
Phenomena,"  Air  Force  Weapons  Laboratory 
Report  AFWL-TR  -66  -108,  May  1967. 
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CODE  REFERENCE 

6.  SPUTTER  a.  "Optical  Interactions.  The  SPUTTER  Program , " 

RTD  TDR-63-3128,  v.  2,  General  Dynamics, 
General  Atomic  Division,  1964.  (AD  440-287). 

b.  Pyatt,  K.  D.  ,  "Nuclear  Explosion  Interaction 
Studies,"  v.  II,  Methods  of  Analysis  of  Thermal 
Phenomena,"  Air  Force  Weapons  Laboratory 
Report  AFWL-TR -66-108,  May  1967. 

Applications  of  codes  listed  herein  are  given  in  refe  *ence  1.  The 
contract  that  generated  reference  1  runs  concurrent  with  the  contract  for 
which  this  report  is  supplied;  the  contract  for  this  report  specifies  that 
codes  will  be  developed.  The  codes  developed  wer*  supported  by  both  of 
these  contracts  plus  others. 
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APPENDIX  IV 

EQUATION-OF-STATE  INVERSION  TECHNIQUES- 
MODIFICATION  TO  THE  GEST  AND  LIBEX  PROGRAMS 


Introduction 

GEST  is  a  Fortran  IV  computer  program  which  £enerates  equation-of -state 
tables.  These  tables  are  designed  to  be  used  in  other  programs  which  require 
thermodynamic  quantities  (e.g.,  pressure  (P)  and  temperature  (6))  as  func¬ 
tions  of  the  internal  energy  (E)  and  specific  volume  (t).  For  each  material 
of  interest  GEST  requires  an  equation -of -state  subroutine,  EIONX,  which 
uses  temperature  and  specific  volume  as  the  two  independent  thermodynamic 
variables.  The  program  then  is  essentially  an  inversion  calculation, 
starting, for  example,  with  the  functions  P  =  P(w,t)  and  E  =  E(G,t),  and 
producing  the  tabular  quantities  P^  =  P(E^,Tj)  and  G^  =  G(E^,t^)  by  an 
iterative  process,  for  the  given  set  of  points  E^  and  Tj . 

LIBEX  is  a  subprogram  which  provides  the  calling  program  with  pressure, 
temperature,  and  other  thermodynamic  quantities  as  functions  of  E  and  T. 

It  is  basically  a  table  lookup  program,  using  the  output  of  GEST  for  the 
tabular  data. 

The  GEST  and  LIBEX  programs  have  been  revised  to  make  available  a 

more  flexible  equation- of -state  system  in  E-t  space.  Basically,  the  method 

* 

of  calculation  remains  the  same  as  that  described  in  a  previous  report. 

The  changes  have  concentrated  on  two  major  areas:  increasing  the  variety 
of  thermodynamic  variables  available  as  data  tables  for  the  calculation 
of  temperature  and  pressure;  and  providing  a  section  specifically  for 
equations  of  state  which  are  applicable  in  both  the  molecular  and  atomic 
regimes.  (The  present  version  is  limited  to  two-element  compounds,  but 
can  easily  be  extended  to  compounds  of  an  arbitrary  number  of  elements.) 

Revisions  to  the  GEST  Program 

1.  Choice  of  tabulated  quantities 

The  table  entries  calculated  in  GEST  are  no  longer  limited  to  Z, 
the  mean  number  of  free  electrons  per  atom,  and  |n  I,  where  I  is  the 


Reed,  L.  L.,  "Equation  of  State  Inversion  from  Temperature -Density  to 
Specific  Energy-Density  by  Table  Look-up",  GAMD-7l89-Rev.,  July  1966. 
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internal  energy  due  to  ionization  and  excitation.  The  user  now  has  a 
choice  of  six  variables:  Z;  in  I;  N,  the  mean  number  of  atom/i  per  molecule; 
in  D,  where  D  is  the  dissociation  energy;  the  mean  ionic  charge  of  the 
first  element  of  a  compound;  Z^  the  mean  ionic  charge  of  the  second  element. 
Any  or  all  of  these  variables  may  be  selected  by  setting  the  appropriate 
flags  (see  Input  section). 

2.  Extension  to  Moleculai  .^^une 

For  a  single-element  material  consisting  of  atoms,  ipns,  and  free 
electrons  it  has  been  found  convenient  to  tabulate  the  quantities  Z,  the 
mean  number  of  free  electrons  per  atom,  and  in  I,  the  logarithm  of  the 
ionization  energy  for  a  given  set  of  points  in  E-T  space.  By  analogy, 
equations  of  state  have  been  extended  to  the  molecular  regime  simply  by 
tabulating  two  additional  quantities:  N,  the  mean  number  of  atoms  per 
molecule,  and  D,  the  dissociation  energy.  These  two  quantities  are  computed 
in  a  "molecular"  subroutine  written  expressly  for  the  desired  material. 
Currently  available  subroutines  are : 

Material 
Polyethylene 
Carbon 
Air 

Polyethylene  (improved) 

The  "molecular"  subroutine  is  called  by  the  EIONX  subroutine,  which  acts 
as  the  master  routine. 

Molecular  dissociation  normally  occurs  at  lower  internal  energies  than 
does  ionization,  so  that  the  range  of  internal  energies  for  which  N  and  D 
are  changing  is  different  from  the  range  in  which  Z  and  I  are  changing. 
Consequently  it  was  found  desirable  to  tabulate  N  and  D  for  one  set  of 
energy  points  (the  E  set)  and  to  tabulate  Z  and  fn  I  for  a  second  set  of 
energy  points  (the  E'  set).  The  two  sets  are  related  by 

E  E '  +  D. 

The  reason  for  using  two  energy  scales  it  the  following:  (l)  The  energy 
points  are  equally  spaced  on  a  logarithmic  scale;  (2)  Z  and  I  go  to  zero 


Haas 

ES1IMS 

CMOL 

MESA 

ASTER 
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9 


9 


0 


as  E'  goes  to  zero;  (3)  thus  for  small  values  of  E'  (compared  to  D)  one 
would  get  poorly  resolved  tables  of  Z  and  in  I  if  they  were  tabulated  as 
functions  of  the  total  Internal  energy  E.  To  give  a  numerical  example, 
polyethylene  has  a  total  dissociation  energy  of  8.2x10^  erg/g.  Using  the 
GEST-generated  data  given  in  the  listing  of  LIBEX  at  the  end  of  this  report, 

C  Q  _ 

one  finds  that,  at  a  specific  volume  of  l(r  cnr/g,  Z  varies  with  E'  as 
follows : 


lo«10  E* 

5 

11.2125 

<  io"3 

11.3792 

9.4xlO~3 

11.5459 

3 . 66xlO~2 

11.7125 

8.45xlO-2 

—  -2 

Note  that  there  are  four  entries  for  Z  varying  between  ~  0  and  8.45x10  . 

In  this  energy  range,  and  at  this  particular  specific  volume,  the  poly¬ 
ethylene  is  fully  dissociated,  or  close  to  it,  so  that  E  ~  E'  +  8.2x10^ 
erg/g.  If  we  evaluate  log  E  at  the  four  points  we  get 


log10  E' 

1°®10  E 

11.2125 

II.968 

11.3792 

12.017 

11.5459 

12.076 

11.7125 

12.134 

The  difference  between  the  maximum  and  minimum  values  of  log  E'  is  0.50; 
the  corresponding  difference  for  E  is  0.166.  Thus,  the  tabulated  Z  varia¬ 
tion  would  be  covered  by  only  two  points  on  the  log  E  scale,  as  compared 
to  four  points  on  the  log  E'  scale. 

3.  Selection  of  minimum  energy 

The  criterion  for  choosing  0o  for  the  purpose  of  calculating  a 

minimum  E  or  E'  has  been  changed  since  the  previous  report.  0q  is  now 

selected  so  that  N(0  ,T  )  must  be  greater  than  or  equal  to  EN,  an  estimate 

0  max 

of  the  maximum  value  of  N,  and  Z(0  ,T  )  must  be  less  than  or  equal  to  EB, 

0  max  _ 

the  minimum  Z.  For  purely  atomic  materials,  N  is  always  unity  and  the  input 
number  EN  should  be  set  to  1. 
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4.  Restart  procedure 

To  deal  with  the  more  time-consuming  equations  of  state,  .1  data 
dump  has  been  added  to  GEST.  For  each  energy  point  and  all  its  corres¬ 
ponding  values  of  t,  the  temperature  and  the  quantities  selected  for  the 
data  tables  are  written  out  on  tape  10.  Also,  an  edit  is  printed  giving 
the  number  of  the  energy  point,  MS  for  E  or  LS  for  E’,  and  the  quantities 
which  have  been  saved  on  the  tape.  The  problem  can  then  be  restarted  from 
any  energy  point  by  specifying  in  input  the  current  value  of  MS  or  LS.  If 
restarting  from  an  E'  point,  MS  must  be  set  to  its  maximum. 

The  final  dump  tape  has  several  uses.  By  setting  both  MS  and  15  (if 
E'  is  being  used)  to  their  maximum,  the  tape  can  be  used  to  repunch  the 
data  deck  or  make  a  final  data  tape  using  NTRAN.  This  tape  can  also  be 
used  to  increase  the  number  of  decades  of  E  and  E'.  The  following  table 
gives  e  diagram  of  how  to  set  the  input  variables  to  accomplish  this 
procedure . 


To  increase  decades  of:  | 

MS 

LS  1 

NDUMP 

DM 

DL 

E  (not  using  E') 

max. 

0. 

-1 

increased  no. 
decades 

0. 

E  (using  E') 

max. 

0. 

-1 

increased  no. 
decades 

no.  decades 

E' 

max. 

max. 

-1 

no.  decades 

increased 
no.  decades 

E  and  E' 

max. 

max. 

-1 

increased 
no.  decades 

increased 
no.  decades 

5«  Iteration  Criterion 

Because  any  irregularity  in  the  variation  of  E  with  ©  makes 
iteration  difficult,  a  new  procedure  has  been  added  to  GEST.  If  after 
20  iterations  the  relative  error  between  thj  E  calculated  by  GEST  and 
the  desired  E  is  greater  than  .5$  but  less  than  15$,  the  code  will  use  the 
values  calculated  at  the  energy  closest  to  the  desired  E  point  to  make  up 
the  tables.  This  same  procedure  is  used  for  the  E'  points. 
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6.  Input  for  GEST 

Cards  2  and  6  have  an  integer  field  width  of  5  and  cards  3,  and 
5  have  a  floating  point  field  width  of  10. 


Card 

Cols. 

Mnemonics 

Information 

1 

Header  card-any  BCD  information.  Will  be 
reproduced  as  first  line  of  output. 

2 

1-5 

MS 

No.  of  E  point  to  be  picked  up  on  a  tape 
restart.  At  start  of  calculation,  MS  must 
be  0. 

6-10 

LS 

No.  of  E'  point  to  be  picked  up  on  a  tape 
restart.  Must  be  0  until  all  E  points 
have  been  calculated . 

0 

11-15 

NOPNCH 

Set  to  1  if  punched  data  deck  is  desired, 
otherwise  0. 

fr 

16-20 

NDUMP 

0  -  no  dump  on  tape  10. 

1  -  pick  up  existing  dump  tape. 

-1  -  start  of  problem  and  want  to  dump  on 
tape  10  (tape  10  must  be  assigned). 
Picking  up  an  existing  dump  tape  to 
Increase  the  number  of  decades  of  F 
or  E! . 

21-25 

ND11 

Set  to  1  if  a  data  tape  made  using  NTRAN 
is  desired  for  LIBEX. 

26-30 

NED 

Set  to  1  if  table  of  in  D  is  desired, 
otherwise  0  or  blank. 

31-35 

NEI 

Set  to  1  if  table  of  in  I  is  desired, 
otherwise  0  or  blank. 

36-40 

NNB 

Set  to  1  if  N  table  is  desired,  otherwise 
0  or  blank. 

1*1-1*5 

NZB 

Set  to  1  if  Z  table  is  desired,  otherwise 
0  or  blank. 

U6-50 

NZB1 

Set  to  1  if  \ table  is  desired,  otherwise 
0  or  blank. 

51-55 

NZB2 

Set  to  1  if  Zg  table  is  desired,  otherwis 
0  or  blank. 
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Card _ Cols . _ Mnemonics _  Information 


3 

1-10 

z 

Atomic  no.  of  material 

11-20 

A 

Atomic  mass  no. 

21-30 

VI 

First  ionization  potential. 

31-40 

VZ 

Last  ionization  potential. 

41-50 

R 

No.  of  points  per  decade  of  E'. 

51-60 

S 

No.  of  points  per  decade  of  T. 

6l-70 

T 

No.  of  points  per  decade  of  E. 

4 

1-10 

DN 

No.  of  decades  of  T. 

11-2Q 

EM 

No.  of  decades  of  E. 

21-30 

DL 

No.  of  decades  of  E’ 

31-40 

TAUZ 

Minimum  value  of  t. 

41-50 

EZ 

Minimum  value  of  E.  If  0,  the  code  will 
choose  a  minimum  value. 

51-60 

EPRZ 

Minimum  value  of  E',  If  0  the  code  will 
choose  a  minimum  value. 

6l-70 

EN 

Estimate  of  the  maximum  value  of  N.  Used 
to  compute  the  minimum  values  of  E  and  E'. 

5 

1-10 

EB 

Choice  of  minimum  Z.  Sets  ZBRMIN  in  EIONX. 
Used  to  compute  the  minimum  value  of  E 
and  E'. 

11-20 

El4 

Sets  EICTJ(l4)  before  the  call  to  EIONX. 

If  1,  calls  the  molecular  equation  of 
state.  Should  be  0  otherwise. 

21-30 

WT1 

Percent  of  first  element  in  the  compound. 

31-40 

WT2 

Percent  of  second  element  in  the  compound. 

41-50 

PAN1 

Atomic  number  of  first  element  of  the 
compound . 

51-60 

PAN2 

Atomic  number  of  second  element  of  the 
compound. 

6 

1-5 

IS 

1  -  uses  EIONX  for  equation  of  state. 
Generally  for  nonmolecular  equations  of 

state.  All  E'  quantities  should  be  set  to 
0. 

2  -  Uses  EIONX  for  equation  of  state.  Par 
ticularly  for  equation  of  state  where  the 
molecular  regime  is  of  interest.  All  E' 
variables  should  be  set. 
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0*rd  Cols.  Mnemonics  Inforastion 

”5  6-1*5  II  -  18  Table  region  flags.  If  a  region  of  the 

table  las  been  entered  which  has  no  tabu¬ 
lated  values  and  the  flag  ut'  that  region 
has  been  set  to  zero,  a  calculation  will 
proceed  using  the  available  analytic  equa¬ 
tions.  At  present  regions  1,  7,  and  8  have 
analytic  equations  or  data,  (see  GAMD-7189 
for  a  fuller  discussion.) 


Sample  Data  Cards 


1)  EXAMPLE  OF  CH2  DATA 

2)  5  10  15  20  25 

I  19 1  l4|  0|  l|  1| 


Pick  up  the  l4th  value  of  E'  from  tape  10  and  continue  the  calculation. 
Do  not  punch  a  data  deck. 

Make  a  fin^l  data  tape  using  NTRAN  (tape  11  must  be  assigned.) 

Make  up  tables  of  the  following  quantities:  in  D,  in  I,  N,  Z. 


10  20  30  1*0  50  60  70 

|  101.  |  4.6667  |  II.256  |  489.84  |  6.  |  3.  |  6.  | 

Atomic  number  of  CH2,  atomic  mass  number,  first  and  last  ionization 
potentials. 

6  points/decade  of  E' 

3  points/decade  of  T 

6  points/decade  of  E 

10  20  30  40  50  60  70 

I  9.  I  3-  I  3-  I  1.  I  0.  |  0.  |  4.  | 

9  decades  T 
3  decades  E 
3  decades  E' 

Minimum  value  of  T  is  1.0  cm^/g. 

Zeros  indicate  that  the  code  is  to  choose  a  minimum  E  and  E'.  Estimate 
of  maximum  N  is  4. 
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7'  10  20  30  to  50  60  70 

|1X)  *03|  1.0  |  0.0  |  0.0  |  0.0  |  0.0  |  0.0  I 

Minimum  2 

EI0N(14)  is  set  before  each  call  to  EI0NX  to  call  the  molecular  equation 

of  state.  Since  the  part ial  Z's  are  not  being  calculated,  the  quantities 

WT1,  WT2,  PAN1,  PAN2  are  unnecessary. 

6) 

I  2  |  0  |  1  |  1  |  1  |  1  |  1  |  0  |  0  | 

Uses  section  of  GEST  for  molecular  equation  of  state. 

The  zeros  indicate  that  the  code  is  to  use  the  analytic  solutions  pro¬ 
vided  in  sections  1,  7,  and  8. 

6.  Output 

The  GEST  program  has  three  forms  of  output:  punched  cards,  a  data 
tape,  and  printed  tables. 

The  data  tape  is  a  new  feature  in  GEST.  The  systems  subroutine  NTRAN 
is  used  to  write  out  on  tape  11  that  portion  cf  the  data  block  containing 
all  the  variables  necessary  for  LIBEX.  This  tape  must  be  read  in  by  NTRAN 
and  a  series  of  equivalences  for  the  data  variables  must  be  set  up  with 
unused  arrays  in  the  calling  program.  This  procedure  has  been  developed 
especially  for  HECTIC  as  a  space-saving  device,  but  other  programs  could 
easily  be  adapted  to  use  it. 

The  punched  cards  are  in  the  form  of  data  statements  and  are  ready  for 
imnediate  placement  into  LIBEX.  However,  for  use  on  the  1108  all  the  data 
statements  must  be  reproduced,  placing  an  "E"  in  the  data,  e.g.,  1.46E+10. 

The  printed  output  in  the  fora  of  data  tables  can  be  used  to  check 
the  punched  data  statements.  Also  a  table  of  the  0's  corresponding  to 
each  (E,t)  and'E',T)  point  is  printed  so  that  the  temperature  range  can  be 
checked . 
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Revisions  to  the  LIBEX  Program 

The  revisions  to  the  LIBEX  program  follow  the  same  general  scheme  as 
those  In  GEST.  The  method  of  calculation  remains  the  same  as  that  described 
In  GAMD-7189.  The  major  changes  have  been  made  to  deal  with  the  Increased 
number  of  thermodynamic  variables  and  the  E'  energy  term. 

The  flags,  set  in  the  GEST  Input  to  determine  the  series  of  tables, 
are  transmitted  to  LIBEX  in  the  data  statements  to  de*‘rmine  which  quantities 
are  to  be  used  to  calculate  ©  and  P. 

The  value  of  IS  is  also  transmitted  to  LIBEX.  If  IS  was  set  equal  to 
2  in  GEST,  the  variables  Z,  Z. ,  Z0,  and  £n  I  are  calculated  from  the  data 
tables  as  a  function  E'  and  T.  Otherwise  all  the  variables  are  calculated 
as  a  function  of  E  and  t.  The  E'  term  is  calculated  ir.  LIBEX  by  subtracting 
the  dissociation  energy,  previously  calculated  from  the  tables  as  a  function 
of  E  and  T,  from  E.  The  equations  for  the  calculation  of  ©  and  P  have  also 
been  adapted  for  the  molecular  equation  of  state: 

©  -  (E  -  01  -  D)/[1.5  0(1- /N  +  Z)] 

P  =  0(1. /N  +  Z)©/t 

A  new  function  subroutine,  EIONIZ,  is  now  being  used  with  LIBEX.  This 
subroutine  calculates  the  ionization  energy  given  Z  and  the  atomic  number. 
This  subroutine  is  used  when  tables  of  Z  and  Z^,  or  Z^  and  Zr  ,  or  Z  and  Z^ 
are  needed,  to  eliminate  the  need  for  an  extra  table  containing  the  ioniza¬ 
tion  energy. 

If  a  region  outside  the  limits  of  the  table  has  been  entered  and  no 
analytic  solution  is  available,  an  SI  flag  will  be  set  and  control  returned 
to  the  calling  program.  Thus  the  subroutine  ERR,  or  a  comparable  error 
routine  should  always  be  used  with  LIBEX. 
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GEST  Mnemonics 


Mnemonic 

A 

AIN 

ALGE 

ALGEPR 

AIGT 

ALIN 

D 

DLGE 

DLGEPR 

DLGT 

DLLEPR 

DMLE 

DNLT 

DP 

E 

E' 

EB 

EDIS 

EDLN 

EDLNID 

EILN 

EILNID 

EL 

EM 

EMAX 

EMIN 

EN 

EPR 


Definition 

* 


L°610  E  ' 

I 


Dissociation  energy 

t 

E'K 

J 

AE'  above  position  K  in  the  table. 


Dissociation  energy 

I 

Specific  internal  energy-dissociation  energy 

* 

in  D 

Array  of  in  D  used  in  LIBEX 
Array  of  in  D  used  in  GEST 
Array  of  in  I  used  in  LIBEX 


* 


E' 


EPRIME  Current  value  of  EPR 

EPRL  Logic  E ' 

7  -  see  GAMD-7100-Rev . 

#  -  Bee  input  for  GEST,  pp.  5-7. 
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Mnemonic 

Definition 

EPRM 

Maximum  value  of  E'  in  table 

EPRZ 

* 

EZ 

# 

E14 

* 

GAND 

Current  value  of  E 

I 

t 

• 

IS 

* 

11-18 

* 

K 

Index  for  table  entries  (K=(M-l)NN+N) 

LL 

Total  number  of  E '  points 

LS 

* 

MM 

Total  number  of  E  points 

MS 

# 

NB 

N  array  used  in  LIBEX 

NBAR 

Number  of  atoms  per  molecule 

NBID 

N  array  used  in  GEST 

NEMAX 

Maximum  N 

NDUMP 

* 

NED 

* 

N3I 

* 

NN 

Total  nuaber  of  t  points 

NOPNCH 

# 

NZB 

* 

NZB1 

# 

NZB2 

* 

P 

Pressure 

PAN1 

* 

PAN2 

* 

PHI 

J 

STORIM 

Stores  closest  value  of  0  below  that  desired 

STORTX 

Stores  closest  value  of  0  above  that  desired 

T 


T 

TAUL 
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Mnemonic _ _ Definition 


TAUM 

1 

TAUZ 

1 

TH 

Array  of  temperature  in  ev 

for  E'  points 

THETA 

1 

• 

THMAX 

1 

THMIN 

t 

• 

TH1MAX 

0  used  in  interpolation, 

max 

E'  points 

TH1MIN 

®min  u8ed  in  interP°l®tion, 

E'  points 

VI 

* 

VZ 

* 

WT1 

* 

WT2 

« 

Z 

* 

ZB 

Z  array  used  in  LIBEX 

ZBAR 

1 

• 

ZBAR1 

Mean  ionic  charge  for  first 

element  of  a  compound 

ZBAP2 

Mean  ionic  charge  of  second 

element 

ZB1 

Array  of  Z^  used  in  LIBEX 

ZB2 

Array  of  Zg  used  in  LIBEX 

ZBUD 

Array  of  Z  in  GEST 

ZB11D 

Array  of  Z ^  in  GEST 

ZK1D 

Array  of  Zg  in  GEST 

ZPART 

Stores  values  of  Z^  and  Zg 

in  LIBEX 
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f 


c 


c 


GENERATE  EQUATION  OF  STATE  TABLES  EST 

EST 

DIMENSION  THETa(50*50)  ,CARD(14)  *TH(50*5<>)  EST 

DIMENSION  TAU(50),TAUL(50)»E(50)*EL(50)*EpR(50>»EpRL(50)  EST 

DIMENSION  IT(1)*NeD(1) *NEj(l)*NNB(l)*NZB(l)*NZBl(l)*NZB2(l> *TAUM(lEST 

1) »EM(1)»EPRM(1)»TaUZ(1)»EZ(1)*EPRZ(1)/TAUl2CX).Elz<1)*EPRl2<I)»R<1EST 

2) *S(l)*T(l),Vl(l>,VZ(l)»FHl(l>*NBMAX(l)*NXd>»MX(l)»LZ(l>,Il(l>»I2EST 
3( 1) » 13(1) , 14(1) » 15(1) » 161(1), 17(1)* lad >»WTl(l),wT2(l),PANl(l>» 

4  PAN2(1) 

DIMENSION  ZB10(1S94) *EILNlD(l594) ,NB1D(1594) ,E0LN1D(1594) ,ZB110(15EST 


l93)*ZB2lD(1593) 

EQUIVALENCE  (EB»ZBRMIN)*  (ZbRMIN(I) *El0NlN(29) )  EST 

EQUIVALENCE  (EI0N(5)  »PHI) ,  (EI0N(6>  *GAnD)  ,  ( EPR I  ME » E I  ON  ( 1  *; ) )  EST 

EQUIVALENCE  (TLMSb(14)»DIS>*(EI0N(17)»nBAR)  EST 

COMMON/LMSC/Ml ( 51 )  EST 

EQUIVALENCE  (ZBARi*M1(5))*(ZBAR2*m1(15)>  EST 

COMMON/LMSG/CARBNZdO)  EST 

COMMON/LMSO/  TLMS(l6)  EST 

COMMON/LMSESN/TLMsB(1S)  EST 

COMMON/EOSIN/EIONIN(30)  EST 

DIMENSION  ZBRMIN(l)  EST 

COMMON/LMS/  EION(zO)  EST 

EQUIVALENCE  (Z0AR,  ElON(3))»  (PHI ,EION (5) )  EST 

REAL  NB1D  EST 

REAL  NBAR  EST 

REAL  NBMAX  EST 

EXPT(Q)SEXP(2.3026*Q)  EST 

READ  (5*1660)  (CArO(I) *1=1*12)  EST 

WRITE  (6*1860)  (CaRO(I) *I;l*l2)  EST 

RE AO  ANO  STORE  INPUT  EST 

KEAO  (5*1850)  MS*lS»NOPNCh»N0UMP*nO11*nEP»NEI,NNB,NZB»NZBi »NZB2  EST 

WRITE  (6*1850)  MS,LS,N0PNCH*nDUMP*ND11*NE0*NEI*NNB*NZB*NZr1*NZB2  EST 
KEAO  (5*1840)  Z»A,V1.VZ»R.S»T»DN*dM»0L»TAUZ»EZ»EPrZ*EN»EB,E14»  EST 

1  WT1*WT2*PAN1*PAN2 

WRITE  (6*2380)  Z*A* VI  * VZ*r*S*T*DN*0M*DL»TAUZ*EZ*EpRZ*EN*Er*E14*  EST 

1  WT1*WT2*PAN1*PAN2 

READ  (5*1850)  IS*il*l2*I3*l4*I5*l6*I7*lB  EST 

WRITE  (6*1850)  IS»I1*I2*I3*I4*I5*I6*I7*I8  EST 

IF  (NNB*NE*1)  NBARS1.0  EST 

IF  (NDUMP)  50*50*10  EST 

10  J=Z  EST 

READ  OUMP  TAPE 


10 

20 

30 

40 

50 

60 

70 


90 

110 

120 

130 

140 

150 

160 

170 

160 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

360 


READ  (10)  TAUM*EM*EPRM*TAUZ*EZ*EPRZ*TAUL(1)*EL(1)*EPRL(1)*PHI*NN»MEST  390 


1M»LL 

EST 

400 

READ  (10)  (TAU(N)*N=1*NN) 

EST 

410 

READ  (10)  (E(M)*Msl*HM) 

EST 

420 

IF  (IS.EQ.2)  READ  (10)  (EpR(L) »L=1 »LL) 

EST 

430 

DO  20  M=1*MS 

EST 

440 

KEAO  (10)  (THETA(n*M)*N= 

1*NN) 

EST 

450 

KMN=(M-1)*NN*1 

EST 

460 

AMXSKMN+NN-l 

EST 

470 

IF  (NEO.EQ.1)  REAo  (10) 

(EOLNlD(K) *K=KMN*KMX) 

EST 

480 

IF  (NNB.EQ.l)  REAO  (10) 

(nbio<k)*k-kmn*kmx) 

EST 

490 

IF  (IS.EQ.2)  GO  TO  20 

EST 

500 

IF  (NEI.EQ.l)  REAO  (10) 

(EILN1D(K)*K=KMN*KMX) 

EST 

510 

IF  (NZB*EQ.l)  READ  (10) 

(ZB1D(K)*KSKMN*XMX) 

EST 

520 

IF  (NZBl.EQtl)  READ  (10) 

(ZBUD(K)*K=KMN*KMX) 

EST 

530 

IF  (NZB2.EQ.1)  READ  (10) 

(ZB210(K) *K=KMH»kMX) 

EST 

540 
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« 


20  CONTINUE 

IF  ( IS.NE.2.0R.LS.EQ.O.)  GO  TO  40 
00  30  L=1»LS 

READ  UO)  (TH(N’L)  »N=1»NN) 

KMNS(L-1 ) *NN+1 
KMXSKMN+NN~1 

IF  (NEI.EQ.l)  READ  UO)  (ElLNlD(K) ,K=KMN.KMX) 

IF  (NZB.EQ.l)  READ  UO)  (ZB10(K)  iK=K*N»KMX) 

IF  (NZB1.EQU)  READ  UO)  (ZBUD(K)  .KsKMN.KMx) 

IF  (NZB2.E0.I)  READ  U0>  (ZB210 (K) »K=KMN»kMX) 

So  CONTINUE 
40  CONTINUE 
GO  TO  160 

C  MS  =  E  POINT  FOR  TAPE  RESTART 

C  LS  5  EPRIME  POINT  FOR  tape  RESTART 

C  NOPNCH  =  1  -  PUNCH  A  DATA  DECK 

C  NDUMP  =  0  -  NO  DUMP  ON  TApE  lO 

C  =  1  -  PICKUP  TAPE  10 

C  s  -1  -  start  problem  ANO  dump  of  tape  10 

C  NOU  =  1  -  MAKE  AN  NTRAN  TAPE 

C  NED  s  FLAG  FOR  EDlS  TABLE 

C  NEI  S  FLAG  FOR  EIoN  TABLE 

C  NNB  s  FLAG  FOR  NBaR  TABLE 

C  NZB  s  FLAG  FOR  ZBaR  TABLE 

C  NZB1  s  FLAG  FOR  ZbARI  TABlE 

C  NZB2  =  FLAG  FOR  Z&AR2  TABLE 

C  Z  S  ATOMIC  CHARGE  NO. 

C  AS  ATOMIC  MASS  NO. 

c  vi  s  first  ionization  potential 
c  VZ  S  last  ionization  potential 
c  R  s  NUMBER  OF  TABULAR  POInTS/DECAdE  of  eprime 
c  S  S  no.  OF  TABULAR  PTS/DECADE  OF  TAU 

C  T  s  NO.  OF  TABULAR  PTS/DECADE  OF  E 

C  ON  s  NO.  OF  DECADES  OF  TAU 

c  DM  s  no  OF  DECADES  OF  E 

C  DL  =  NUMBER  OF  DECADES  OF  EPRIME 
C  TaUZ  s  MIN  VALUE  0 F  TAU  In  TABLE 

C  EZ  s  MIN  VALUE  0 F  E  In  TABLE 

C  EPRZ  s  MINIMUM  VALUE  OF  EPRIME  IN  TABLE 
C  Ln  =  ESTIMATE  OF  mAX  NBAR 

C  EB  s  MIN  ZBAR 

C  E14  s  1.  -  SETS  EIONUJ)  BEFORE  CALL  TO  ElONX 
C  TO  CALL  MOLECULAT  equation  OF  STATE 

C  WTl  =  PERCENT  OF  FIRST  ELEMENT  IN  A  COmPOUNO 

C  RT2  s  PERCENT  OF  SECOND  ELEMENT  In  A  COMPOUND 

c  pani  s  atomic  number  of  first  element  in  a  compound 

C  PAN2  s  ATOMIC  NUMBER  OF  SECONO  ELEMENT  IN  A  COMPOUND 

C  IS  :  SECTION  USED  TO  GENERATE  TABLE 
C  s  l  -  for  non-molecular  EQUATIONS  OF  state 

C  s  2  -  FOR  MOLECULAR  EQUATIONS  OF  STATE 

C  11  THRU  18  FLAGS  INDICATING  TREATMENT  AT  BOUNDARIES  OF  TABLE 

C  IN  s  l  STOP  IF  REGION  IS  ENTERED 

C  so  calculate  with  available  analytic  EQS 

C  3*4*5 

c  *****•••* 

c  *  * 

C  E  2  •  *6 


EST  550 
EST  560 
EST  570 
EST  560 
EST  590 
EST  600 
EST  610 
EST  620 
EST  630 
EST  640 
EST  650 
EST  660 
EST  67o 


EST  680 
EST  690 
EST  700 
EST  710 

EST  720 
EST  730 
EST  740 
EST  750 

EST  760 
EST  770 


EST  800 
EST  810 
EST  820 
EST  830 
EST  840 
EST  850 
EST  860 
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•  * 


1*8*7 
TAU 

50  J=Z 

PHl=9.648679EU/A 
AM=T*DM*1.0 
AN=S*DN+1.0 
AL=R*DL+1.0 
NN=AN 
MH=AM 

ll=al 

TAUM=TAUZ*10.0**Dn 
T  AUL ( 1 ) -AL061 0 ( T AuZ ) 

otaul=i./s 

TAU(1)=TAUZ 
IF  (EZ.NE.O.)  GO  TO  90 
THA=1.1 
L)0  60  I=l»10 
THASTHA-.l 
EI0N(14)SE14 

CALL  EIONX  (THA»TaUM#J#0.) 

S1=EI0N(14) 

IF  (S1.NE.0.)  CALL  ERR  <Sl) 

IF  ((EION(I7).LT.EN).OR.(ElON<3)*6TtEB))  GO  TO  60 
EZ=EI0N(8) 

GO  TO  70 
6u  CONTINUE 
Sl=l0.20 
CALL  ERR  (SI) 

70  IF  (EPRZ.NE.O.O.OR.IS*NE.2)  GO  TO  90 

tha=i.i 

UO  80  I=l»10 
THASTHA-.l 
ElONil4)SE14 

CALL  EIONX  (THA*TaUM»J*0.) 

S1=EI0N(14) 

IF  (S1.NE.0.)  CALL  ERR  (Si) 

IF  ((EI0N(17).LT.eN).0R.'E!0NO)*GT.EB))  GO  TO  BO 
EPRZSEPRIME 
GO  TO  90 
8o  CONTINUE 
Sl=10.46 
CALL  ERR  (SI) 

90  CONTINUE 

C  PREPARE  TABLES  OF  SPECIFIC  VOLUME  ANO  ENEROT 
C  IN  REAL  SPACE  AND  IN  LOG  BASE  lO. 

UO  100  Is2»NN 

T AUL ( I ) sTAUL ( 1-1 ) 4DTAUL 

TAU(I)sEXPT(TAUL<D) 

IOo  CONTINUE 

EM=EZ*10.0**DM 

ElU)*ALOG10(EZ) 

OELS1./T 

E(l)s£Z 

*  UO  110  IS2»MM 

EL(I)=EL(I-1)>DEL 


EST  870 
EST  880 
EST  890 
EST  900 
EST  910 
EST  920 
EST  930 
EST  940 
LST  950 
EST  960 
EST  970 
EST  980 
EST  990 
EST  1000 
EST  1010 
EST  1020 
EST  1030 
EST  1040 
EST  1050 
EST  1060 
EST  1070 
EST  1080 
EST  1090 
EST  1100 
EST  1110 
EST  1120 
EST  1130 
EST  1140 
EST  1150 
EST  1160 
EST  1170 
EST  1180 
EST  1190 
EST  1200 
EST  1210 
EST  1220 
EST  1230 
EST  1240 
EST  1250 
EST  1260 
EST  1270 
EST  1280 
EST  1290 
EST  1300 
EST  1310 

EST  1330 
EST  1340 
EST  1350 
EST  1360 
EST  1370 
EST  1380 
EST  1390 
EST  1400 
EST  1410 
EST  1420 
EST  1430 
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E(I)=EXPT(EL(I)) 

110  CONTINUE 

IF  (IS.EQ.2)  60  TO  120 
EPRMXO.O 
EPRL(1)*0.0 
60  TO  140 

120  EPRM=EPR2*10.0**Ql 
fcPRL ( 1 ) = ALOGIO ( EPrZ ) 

EPR(1)=EPRZ 
DO  130  1=2. LL 
EPRL(I)=EPRL(I-1DDEL 
EPR ( 1 ) =EXPT ( EPRL ( I ) ) 

130  CONTINUE 

WRITE  (6.2340) 

WRITE  (6.2380)  (EPRL(M).Msl.MM) 

14q  WRITE  (6.2360) 

WRITE  (6.2360)  (TaUL(N).NsI.NN) 

WRITE  (6.2330) 

WRITE  (6.2380)  (El(M1) .Mlsl.RM) 

IF  (NDUMP.EQ.-I.AnO.MS.NE.O)  60  TO  160 
IF  (NDUMP)  150.160*160 

15°1Mm!lE  <10’  ^'^'^^AUZ.EZ.EPRZ.TAULlD.ELCD.EPRLd, 

WRITE  (10)  (TAU(N) .Nsl.NN) 

WRITE  (10)  (E(M).m=1*MM) 

IF  (IS.EQ.2)  WRITE  (10)  (ePR<L) .Lxl.LL) 

C  DETERMINE  SECTION  used  TO  CALCULATE  DATA  tables 
160  60  TO  (170.390.800.B10).  IS 
170  CONTINUE 


EST 

est 

est 

est 

est 

est 

est 

est 

est 

est 

est 

ESt 

EST 

EST 

est 

est 

est 

est 

est 

est 

est 

.PHI.NN.EST 

EST 

est 

est 

est 

est 

est 

est 


144o 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

*610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 


SINGLE  ENERGY  SCALE  SECTION 
(NO  E-PRIME) 


IF  (MS.EQ.MM)  GO  TO  820 

MS2=MS+1 

DO  380  M=MS2.MM 

UO  300  N=1»NN 

STORTMxl.OE-lO 

STORTX=1.0EM0 

AX=0  • 

AM=0. 

K=(M«1)*NN+N 

C  INITIAL  GUESS  AT  THE  TEMPERATURE 

ThMZN=THETA(N.M-1) 

ThMAX=THETA(N-1*M) 

IF  'N.EQ.D  THMAXsE(M)/PHI 

IF  ((N.EQ.l) oANO. (M.gT.1) )  THMAX=3.*THe TA(N.M-I) 

IF  (M.EQ.l)  THMIN=.2 

ThETA(N.M)=THMIN 

DO  230  1=1.20 

LI0N(14)=E14 

call  eionx  (thmin.tau(n).j.o.) 

SlsEI0N(l4) 

IF  (Sl.NE.O.)  call  ERR  (Si) 

EMIN=EI0N(8) 

U0N(14)=E14 

180  call  eionx  (thmax.tau(N).j.o.) 


EST  1730 
EST  1740 
EST  1750 
EST  1760 
EST  1770 
EST  I78f 
EST  1790 
EST  1800 
EST  1810 
EST  1820 
EST  1830 
EST  1840 
EST  1850 
EST  1860 
EST  1870 
EST  1880 
EST  1890 
EST  1900 
EST  1910 
EST  1920 
EST  1930 
EST  1940 
EST  1950 
EST  I960 
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Sl=tlON(14) 

IF  (Sl.Nt.O.)  CALL  ERR  (Si) 

LMAX=EI0N(8) 

GAMMA=3.*E(M) 

IF  (EMAX.LT. GAMMA)  GO  TO  190 
THMAX=THMAX*.9 
GO  TO  180 
19u  tlON(14)=E14 

CALL  EIONX  (THETA(N»M)»TAU(N) »J»0.) 

MS=ThETA(N»M) 

c  NEWTON’S  INTERPOLATION 

THETA<N»M)=THETA(N»M)*(THMAX-THMlN)*(E(M)-EX0N(8))/(EMAX-rMlN) 
ZtTAsABS(EI0N(8)-E<M) )/(E(M) ) 

IF  (ZETA.LE.o005)  GO  TO  290 
IF  (ZETA.GT«.15)  GO  TO  210 
IF  '.EION(8)*GToE(M>)  GO  TO  200 
STORTM=AMaX1(WSpStORTM) 

AM-1  o 
GO  TO  210 

20o  STORTX=AMlNl(WSoSTORTX) 

AX-1  • 

210  IF  (EION(B).LT.E(M))  THMIn=THETA(N»M) 

IF  (EI0N(8).GT.E(m))  GO  TO  220 
ThMIn=THETA(N»M) 

GO  TO  230 

22u  THMAX=THETA(NoM) 

230  CONTINUE 

IF  ( ( AXoEO. 1. ) o ANQo ( AMoEQ. 1. ) )  GO  TO  24O 
IF  ((AX.EO.l.).ANDo(AM.EQ.Oo))  GO  TO  250 
IF  ( ( AXcEQ.O. ) .AND* (AM.EQ*1. ) )  GO  TO  260 
IF  ((AX.EQ.O.).ANDo(AM.EQ.O,))  GO  TO  280 
24u  AVR=ABS((STORTX-ST0RTM)/2.) 

ThET A ( N  »  M ) 5STORTM* AVR 
GO  TO  270 

250  ThETa (N?M)=STORTX 
GO  TO  270 

260  THETA(N»M)=STORTM 
270  LI0N(14)=E14 

CALL  EIONX  (THETA(N'M)'TAU<N)’J’0.) 

51-EIONt 14) 

IF  (S1.NE.0.)  CALL  ERR  (SD 
GO  To  290 
280  51=10.120 

CALL  ERR  (SI) 

290  CONTINUE 

c  MLL  VARIABLES  DETERMINED  from  EIOnX  USING  E 
ZB10(K)=EI0N<3) 

NB10(K)=EI0N(17) 

:<BMAX=NB1D(1) 
yyiio(K)=Mi (5) 

Zd210(K)=Ml(15) 

AEI=(EI0N(8)-1«5*eI0N(1)*PHI*(1./nBAR4ZBAR))/PHI 
IF  (AEIoLEol.E-10)  AEU1.E-10 
tiLNlD(K) :ALOG(AEl ) 

UP=CARBNZ(1)*DIS 
IF  (OP.LE.l.E-10)  DP=1,E-10 
EDLN ID ( K ) =ALOG ( OP ) 


EST  1970 
EST  1980 
EST  1990 
EST  2000 
EST  2010 
EST  2020 
EST  2030 
EST  2040 
EST  2050 
EST  2060 
EST  2070 
EST  2080 
EST  2090 
EST  2100 
EST  2110 
EST  2120 
EST  2130 
EST  2140 
EST  2150 
EST  2160 
EST  2170 
EST  2180 
EST  2190 
EST  2200 
EST  2210 
EST  2220 
EST  2230 
EST  2240 
EST  2250 
EST  2260 
EST  2270 
EST  2280 
EST  2290 
EST  2300 
EST  2310 
EST  2320 
EST  2330 
EST  2340 
EST  2350 
EST  2360 
EST  2370 
EST  2380 
EST  2390 
EST  2400 
EST  2410 
EST  2420 
EST  2430 
EST  2440 
EST  2450 
EST  2460 
EST  2470 
EST  2480 
EST  2490 
EST  2500 
EST  2510 
EST  2520 
EST  2530 
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ft 


c  lno  of  specific  volume  loop 

30 0  CONTINUE 

c  make  dump  tape 

IF  ( NDUMP )  310*380*310 
310  MS=M 

WRITE  (10)  (THETA(N»MS)»N=1»NN) 
write  (6*2360) 

WRITE  (6*2380)  (ThETA(N*MS)*N=1»NN> 

KMNS(MS-1)*NN+1 

kmx=kmn*nn-i 

IF  (NED.EQ.O)  60  TO  320 

WRITE  (10)  (EOLN10<K)»K=KmN*KMX) 

WRITE  (6*2270) 

WRITE  (6*2380)  (EdLN1D(K)*K:KMN*KMX) 

32u  IF  (NEI.EQ.O)  GO  TO  330 

write  UO)  (EILN1q(K)*KSKMN*KMX) 

write  (6*2280) 

WRITE  (6*2380)  (EILN10(K)«KSKMN*KMX) 

330  IF  (NNB.EQ.O)  GO  TO  340 

WRITE  (10)  (NB10(K>*K=KMN*KMX> 

WRITE  (6*2290) 

WRITE  (6*2380)  (NQlO(K)*K:KMN*KMX) 

340  IF  (N2B°EO.O)  GO  TO  350 

WRITE  (10)  (ZB10(K)*K=KMN*KMX> 

WRITE  (6*2300) 

WRITE  (6*2380)  (ZbID(K) *K:KMN*KMX) 

350  IF  (NZB1.EQ.0)  60  TO  360 

WRITE  (10)  (ZB11D(K)*KSKMN*KMX) 

WRITE  (6*2310) 

WRITE  (6*2380)  (Zq110(K)*K=KMN*KMX) 

360  IF  (NZB2oEQ*0)  GO  TO  370 

WRITE  (10)  (ZBHO(K)  *K=KMN*KMX) 

WRITE  (6*2320) 

WRITE  (6*2380)  (Z921D(K)*K=KMN*KMX) 

37o  WRITE  (6.2390)  MS 
C  END  OF  energy  LOOP 

380  CONTINUE 
60  TO  820 
390  CONTINUE 
C 

C  THIS  SECTION  FOR  MOLECULAR  MATERIALS  WHOSE  DISSOCIATION  ENER6Y 

C  IS  calculated. 

C  TwO  ENERGY  SCALES  ARE  USED 

C 

IF  (MS.EQ.MM)  GO  TO  590 

MS2-MS+1 

00  580  M=MS2*MM 

00  540  N=1»NN 

STORTM=1.0E-10 

STOKTX=1.0E*10 

AX-0  • 

AM=0. 

K=(M-1)*NN*N 

C  INITIAL  GUESS  AT  THE  TEMPERATURE 

THMIN=THETA(N*M-1) 

THMAX=THETA(N-1*M) 

IF  (N.EO.l)  THMAX=EION(17)*E(M)*2.0/(3.0*EION(5)) 


EST  254o 

EST  2550 
EST  2560 
EST  257o 
EST  2580 
EST  2590 
EST  2600 
EST  2610 
EST  2620 
EST  2630 
EST  2640 
EST  2650 
EST  2660 
EST  2670 
EST  2680 
EST  2690 
EST  2700 
EST  2710 
EST  2720 
EST  2730 
EST  2740 
EST  2750 
EST  2760 
EST  2770 
EST  2780 
EST  2790 
EST  2800 
EST  2810 
EST  282C 
EST  2030 
EST  2840 
EST  2850 
EST  2860 

EST  2870 
EST  2880 
EST  2890 


EST  2900 
EST  291C 
EST  2920 
EST  2930 
EST  2940 
EST  2950 
EST  2960 
EST  2970 
EST  2980 
EST  2990 
EST  3000 
EST  3010 
EST  3020 
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IF  < (N.EQ.l) .AND. (M.6T.1) )  THMAX-2 • *TH£TA (N»M-1 ) 

IF  (M.EQ.l)  THMINs3.0C-2 
ThETa(N>M)=THMIN 
DO  470  I=l»20 
IF  UtEQ.l)  THMINi=THMIN 
LI0N(14)=E14 

CALL  EIONX  (THMlN,TAU(N) *J*0.) 

S1=EI0n(14) 

IF  (&1.NE.0.)  CALL  ERR  (Si) 
tMlN=GAND 

IF  (I.EQ.l)  EMINlsEMIN 
400  LI0N(14)=E14 

CALL  EIONX  <THMAX,TAU(N) #J»0.) 

S1=EI0N(14) 

IF  (S1.NE.0.)  CALL  ERR  <Si) 

lmax=gano 

GaMMA=3.*E(M) 

IF  'EMAX.LT. GAMMA)  GO  TO  410 
THMAX=THMAX*,9 
GO  TO  400 
4lu  LlON(  14.'-E14 

call  eionx  (Theta(N.m) »tau(n) * J#o.) 

WS=THETA(N»M) 

c  NEWTON'S  INTERPOLATION 

420  ThETA (N»M)=WS4(THmAX-TMMIn)*(E(M)-GAN0)/(EMAX-EMIn) 
IF  (THETA(N»M).GT.0.0)  GO  TO  430 
TmMAX=WS 
ThMIN=THMIN1 
LmAXsGANO 
EMlNsEMlNl 
GO  To  420 

430  <?LTA=ABS(  (GAND-E(m)  )/E(M) ) 

IF  '2ETA.LE..005)  GO  TO  530 
IF  '.2ETA.GT..15)  GO  TO  450 
IF  'GANDcGT.E(M))  GO  TO  440 
STORTMrAMAXl ( WS » STORTM) 

AM=1« 

GO  TO  450 

440  5T0RTX=AMINl(WS»ST0RTX) 

AX-1 . 

450  IF  'GANO.GT.E(M) )  GO  TO  460 

IF  ((WS4.01) .GToThETA(N*M))  THETA (N»M)=WS+. 01 
ThMIn=THETA(N»M) 

GO  To  470 

460  THMAX=THETA(N*M) 

470  CONTINUE 

if  ( ( axoEq. 1 0 ) 0 and* ( amoEq, 1, ) )  go  to  4ao 

IF  '(AXoEQ. 1.). AND. (AM. EQ.O.))  30  TO  490 
IF  '(AX.EQ. 0.). AND. (AM. EQ.l.))  GO  TO  500 
IF  ( (AXoEQ.O, ) oAND* ( AM.EQ.O. ) )  GO  TO  520 
480  AVR=ABS( (STORTX-STORTMJ/2.) 

ThETA(N?M)=STORTM4AVR 
GO  T0  510 

490  ThETA(N»M)=STORTX 
GO  "0  510 

500  ThEtA(N»M)=STORTM 
GO  TO  510 


EST  3030 
EST  3040 
EST  3050 
EST  3060 
EST  3070 
EST  3080 
EST  3090 
EST  3100 
EST  3110 
EST  3120 
EST  3130 
EST  3140 
EST  3150 
EST  3160 
EST  3170 
EST  3180 
EST  3190 
EST  3200 
EST  3210 
EST  3220 
EST  3230 
EST  3240 
EST  3250 
EST  3260 
EST  3270 
EST  3280 
EST  3290 
EST  3300 
EST  3310 
EST  3320 
EST  3330 
EST  3340 
EST  3350 
EST  3360 
EST  3370 
EST  3380 
EST  3390 
EST  3400 
EST  3410 
EST  3420 
EST  3430 
EST  3440 
EST  3450 
EST  3460 
EST  3470 
EST  3480 
EST  3490 
EST  3500 
EST  3510 
EST  3520 
EST  3530 
EST  3540 
EST  3550 
EST  3560 
EST  3570 
EST  3580 
EST  3590 
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Sid  tiON(l4)=E14 

CALL  EIONX  (THETA(N»M)»TAU(N)»J»0.) 

S1=E10N(14) 

IF  (Sl.Nt.O.)  CALL  ERR  (SD 
OC  TO  530 
520  51=10.120 

CALL  ERR  (SI) 

530  CONTINUE 

c  nBar  ano  eois  obtaineo  from  eionx  us in*  e 

NBlO(K)=EION(17) 

NBMAXSNBlD(l) 

UP=CARBN2 ( 1 ) ♦OIS 
IF  (OP.LE.l.E-10)  OP=l.E-iO 
LjLNlD(K)=AL06(DP)  , 

C  End  of  SPECIFIC  VOLUME  LOOP 

54U  CONTINUE 
C  make  oump  tape 

IF  (NOUMP)  550. 580 » 550 
550  MS=M 

MRITE  (10)  (THETA(N.MS) »N=1»NN) 

•rite  (6.2360) 

•RITE  (6,2380)  (ThETA(N»MS)»NS1»Nn) 

KMN=(MS-1)*NN^1 

KMXSKMN+NN-1 

IF  (NEO.EO.O)  60  TO  560 

•RITE  (10)  (EDLNIq(K) ,K=KmN,KMX) 

•RITE  (6,2270) 

•KITE  (6*2380)  (EoLNIO(K)iKsKMN.KMX) 

56g  IF  (NNB.EO.O)  60  TO  570 

•RITE  (10)  (NBIO(K) .K'KMNtKMX) 

•RITE  (6,2290) 

•RITE  (6.2380)  (NBlO(K)»KsKMN’KMX) 

57q  «rITE  (6,2390)  MS 
C  LNO  OF  ENER6T  LOOp 
580  CONTINUE 

590  IF  (LS.EQ.LL)  60  TO  820 
LS2-L5+1 
UO  ?90  L=LS2,LL 
JO  730  N=1,NN 
STORMl=1.0E-10 
STORXlsl.OEMO 
AXl=0. 

AMl=0. 

K=(L-1)*NN4N 

C  INITIAL  6UESS  AT  THE  TEMPERATURE 

Th1MIN=TH(N,L-1) 

TrtlMAX=TH(N-l»L) 

IF  (N.EQ.l)  THlMAx=ElON(l7)*EPR(L)*2.0/(3.0*EION(5) ) 
IF  MN.EQ.1).AN0.(L.6T.D)  Th1MAX=3.*Th<N,L-1) 

IF  (L.EQ.l)  TH1MIn=3.0E“2 

TH(N,L)=TH1MIN 

UO  660  1=1,20 

IF  (I.EQ.l)  THMIN2=TH1MIN 

EI0N(14)=E14 

call  eionx  (thimin»tau(N),j,o.) 

S1=EI0N(14) 

IF  (S1.NE.0.*  CALL  ERR  (SD 


EST  3600 

EST  3610  * 

EST  3620 

EST  3630 

EST  3640 

EST  3650 

EST  36C0 

EST  3670 

EST  3680 

EST  3690 

EST  3700 

EST  3710 

EST  3720 

EST  3730 

EST  3740 

EST  3750 
EST  3760 
EST  3770 
EST  3780 
EST  3790 
EST  3800 
EST  3810 
EST  3820 
EST  3830 
EST  3840 
EST  3850 
EST  3860 
EST  3870 
EST  3880 
EST  3890 
EST  3900 

EST  3910 
EST  3920 
EST  3930 
EST  3940 
EST  3950 
EST  3960 
EST  3970 
EST  3980 
EST  3990 
EST  4000 
EST  4010 
EST  4020 
EST  4030 
EST  4040 
EST  4050 
EST  4060 
EST  4070 
EST  4080 
EST  4090 
EST  4100 
EST  4llo 
EST  4120 
EST  4130 


504 
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EMINSEPRIME 
IF  (I.EQ.l)  EMIN2=EMIN 
600  LlON(l4)=£l4 

call  eionx  (thimax»tau(N) ,j*o.) 

S1=EI0N(14) 

IF  (S1.NE.0.)  call  ERR  (Si) 

LMAXSEPR1HE 

GaMMA=3.«EPR(M) 

If  (EMAX.LT. GAMMA)  60  TO  6lO 
THlMAX=THlMAX*.9 
GO  T0  600 
610  EI0N(14)=E14 

call  eionx  (th(n»l)»tau(N)#j»o.) 

DP=CARBNZ ( 1 ) +DIS 
WSl=TH(N»L) 

C  NEKTONS  INTERPOLATION 

620  TH(N»L?=KS1+(TH1MaX-TH1MIn)*(EPR(L)-EPRIME)/(EMAX-EMIN) 
IF  (TH(N.L) .6T.0.0)  60  To  630 
Th1MAX=HS1 
TH1MINSTHMIN2 
EMAX5EPRIME 
EMINSEMIN2 
60  TO  620 

630  2ETA1-ABS( (EPRIME-EPR(L) ) /EPR(L) > 

IF  (ZETAl.LEo.005)  60  TO  720 
IF  (ZETA1.6T..25)  60  TO  6|0 
IF  (EPRIME.6T.EPR(L))  60  TO  640 
STORMUAMAXKWSl’STORMl) 

AMl=l . 

GO  TO  650 

640  ST0RX1=AMIN1(WS1’ST0RX1) 

AXl-1 • 

650  IF  (EPRIME.LT.EPR(L))  TH1mIN=TH(N,L) 

IF  (EPRIME.6T.EPR(L) )  TH1mAX=TH(N#L) 

660  CONTINUE 

IF  ( (AXl.EQ.l. ) .AND. (AMICES.!* ) )  60  TO  670 

IF  ((AXl.EQ.l.).ANO.(AMl.EO.O.))  60  TO  660 

IF  ((AXI.EQ.O.).AnD.(AhI.EQ.I.))  60  TO  690 

IF  ((AXI.EQ.O.).AnO.(AMI.EO.O.D  60  TO  710 

670  AVR1=ABS((ST0RX1-sT0RM1)/2.) 

Th(N»M)=ST0RM14AVr1 

60  To  700 

660  TH(N'M)=ST0RX1 
60  TO  700 

690  TH(N»M)=ST0RM1 
60  TO  700 
700  EI0N(14)=E14 

call  eionx  (th(n»l)»tau(n)»j»o.) 

UP=CARBNZ(1)40IS 

S1=EI0N(14) 

IF  (Sl.NEoO.)  CALL  Err  (Si) 

60  To  720 
710  51=10.50 

CALL  ERR  (SI) 

720  CONTINUE 

C  ZBAR  AND  EION  OBTAINED  FROM  EIONX  USING  EPRfME 

ZdlO(K)=ElON(3) 


EST  4140 
EST  4150 
F.ST  4160 
EST  4170 
EST  4160 
EST  4190 
EST  4200 
EST  4210 
EST  4220 
EST  4230 
EST  4240 
EST  4250 
EST  4260 
EST  4270 
EST  4260 
EST  4290 
EST  4300 
EST  4310 
EST  4320 
EST  4330 
EST  4340 
EST  4350 
EST  4360 
EST  4370 
EST  4360 
EST  4390 
EST  4400 
EST  4410 
EST  4420 
EST  4430 
EST  4440 
EST  4450 
EST  4460 
EST  4470 
EST  4460 
EST  4490 
EST  4500 
EST  4510 
EST  4520 
EST  4530 
EST  4540 
EST  4550 
EST  4560 
EST  4570 
EST  4560 
EST  4590 
EST  4600 
EST  4610 
EST  4620 
EST  4630 
EST  4640 
EST  4650 
EST  4660 
EST  4670 
EST  4660 
EST  4690 
EST  4700 
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C 

c 


c 


Z6ilO(K)=Mi(5) 

Zb21D(K)=M1(15) 

AEl=(6AN0-0P-1.5*El0N<i)*TLHS<9) )/ElON(5) 
IF  (AEI.LE.l.E-10)  AEI=1.E-10 
ULN1D(K)=AL0G(AED 

end  of  specific  volume  loop 

730  CONTINUE 


make  oump  tape 
IF  (NDUMP)  740*790*740 
740  LS=L 

WHITE  (10)  (TH(N*lS) *N=1*nN) 
WHITE  (6*2360) 

WRITE  (6*2360)  (Th(N*LS)*N=1*NN) 

KMN=(LS-1)*NN*1 

KMXSKMN^NN-1 


IF  (NEI.EQ.O)  GO  TO  750 

WRITE  (10)  (EILNIq(K) *K=KMN*KMX) 

WRITE  (6*2280) 

WRITE  (6*2360)  (ElLNlO(K),K:KMN*KMX) 
750  IF  (NZB*EG*0)  GO  TO  760 

WRITE  (10)  (ZBIO(K) »K=KMN*KMX) 

WRITE  (6*2300) 

WHITE  (6*2380)  (Zb10(K)*KsKMN*KMX) 
760  IF  (NZB1.EG*0)  GO  TO  770 


WRITE  (10)  ( ZB1 10 ( K ) *  KSKMN  *  KMX ) 
WRITE  (6*2310) 

WRITE  (6*2380)  (ZbUO(K)*KSKMN»KMX) 
770  IF  (NZB2.EQ.0)  GO  TO  780 

WRITE  (10)  <ZB21D(K),K=KMN*KMX) 
WRITE  (6*2320) 

WRITE  (6*2380)  (Zb210(K) *K=KMN*KMX) 
760  WRITE  (6*2400)  LS 
EnO  OF  energy  loop 
790  CONTINUE 


GO  TO  820 
800  CONTINUE 

810  continue 

C 

c  PUNCH  DATA  STATEMENTS 

620  CONTINUE 


FOR  PROGRAM  EST 


km=nn*mm 

IF  (NOPNCH.EQ*0)  GO  TO  I6l0 
10=1 

PUNCH  2200 

HUNCH  19t>0»  I0*IS»NE0*NEI»NNB*NZB*NZB1*NZb2 
HUNCH  2160 

PUNCH  1940*  ID»TAUM*EM»EPRM»TAUZ*EZ*EPRZ 
hunch  2170 

punch  i94o*  io*tauL(i),el(1),eprl<1),r,s,t 
punch  2180 

HUNCH  1950*  IO»V1,VZ*PHI»nBMAX 
hunch  2410 

PUNCH  1950*  IU*WTi»WT2»PAn1»PAN2 
punch  2190 

Punch  1970*  I0*NN,MM»LL»I1»I2»I3»I4, 15, 16*17*18 
IF  (NNB.EQ.O)  GO  TO  830 
HUNCH  2040*  NN»MM 


EST  4710 

EST  4720  > 

EST  4730 
EST  4740 
EST  4750 

EST  4760 

EST  4770 
EST  4780 
EST  479o 
EST  4800 
EST  4810 
EST  4820 
EST  4830 
EST  4840 
EST  4850 
EST  4860 
EST  4870 
EST  4880 

EST  4890  • 

EST  4900 
EST  4910 
EST  4920 
EST  <;930 

EST  4940  * 

EST  4950 

EST  4960 

EST  4970 

EST  4980 

EST  4990 

EST  5000 

EST  5010 
EST  5020 
EST  5030 
EST  5040 
EST  5050 
EST  5060 
EST  5070 
EST  5080 
EST  5090 
EST  5100 
EST  5110 
EST  5120 
EST  5130 
EST  5140 
EST  5150 
EST  5160 
EST  5170 
EST  5180 


EST  5190 
EST  5200 
EST  5210 
EST  5220 
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PUNCH  2230 

83u  IF  'NtU.EQ.Q)  60  TO  840 
♦  PUNCH  I960*  NN.MM 

Punch  2210 

640  IF  'IS.EQ.2)  MM=LL 

IF  (NZB.EQ.Q)  60  TO  850 
punch  2Q7o.  nn.mm 
punch  2240 

850  IF  (NZB1.EQ.0)  60  TO  860 
PUNCH  2100*  NN.MM 
PUNCH  2250 

860  IF  (NZB2.EQ.0)  60  TO  870 
punch  2130.  nn.mm 
punch  2260 

870  IF  (NfcI.EQ.O)  60  TO  880 
PUNCH  2010*  NN.MM 

punch  2220 

880  IF  (IS.EQ.2)  KM=Nn*LL 
IF  (NZB.EQ.O)  60  TO  1000 
Nm~KM 

IF  (NN*MM.6T.54)  nM-54 

>  punch  2080.  id.nm 

punch  2090.  ID 

ICNT=0 

UO  990  1=1. KM. 6 
16=1*5 

'  ICNTsICNT+1 

IP=I 

IF  ( (I6.LT.KM).OR.(ICNT.EQ.10))  60  TO  950 
890  lo-KM 

KI=KM-I*1 

UO  TO  <900»910#920»930»940>»  KZ 
900  PUNCH  I860*  ICNT» (ZBlO(K) ,K=IP# 16) 
oO  TO  980 

910  punch  189o.  icnt. <zbid<k) ,k=ip.i6) 

(iO  To  980 

920  PUNCH  1900.  ICNT. (ZBlD(K) ,K=IP» 16) 

60  tO  980 

930  PUNCH  1910.  ICNT. (ZBIO(K) ,K=IP.I6) 

60  TO  980 

940  PUNCH  1920.  ICNT. (ZBlO(K) «Ks{P. 16) 

60  TO  980 

950  IF  (ICNT. LT. 10)  60  TO  960 
ID=ID*1 
NM-54 

IF  <(ID'*54.6T.KM)  NM=KM-(ID-1)*54 
Punch  2080.  id.nm 
punch  2090.  ID 

ICNT=1 

IF  U6.6T.KH)  60  TO  890 
_  60  TO  970 

960  IF  ( ICNT «n£.9)  60  TO  970 

punch  i93o.  icnt. (Zbid(K) ,k=i.I6) 

60  To  980 

97o  punch  187o.  icnt. (Zbid(k) ,k=i.I6) 

980  CONTINUE 
990  CONTINUE 


EST  5230 
EST  5240 
EST  5250 
EST  5260 
EST  5270 
EST  5280 
EST  5290 
EST  5300 
EST  5310 
EST  5320 
EST  5330 
EST  5340 
EST  5350 
EST  5360 
EST  5370 
EST  5380 
EST  5390 
EST  5400 
EST  5410 
EST  5420 
EST  5430 
EST  5440 
EST  5450 
EST  5460 
EST  5470 
EST  5480 
EST  5490 
EST  5500 
EST  5510 
EST  5520 
EST  5530 
EST  5540 
EST  5550 
EST  5560 
EST  5570 
EST  5580 
EST  5590 
EST  5600 
EST  5610 
EST  5620 
EST  5630 
EST  5640 
EST  5650 
EST  5660 
EST  5670 
EST  5680 
EST  5690 
EST  5700 
EST  5710 
EST  5720 
EST  5730 
EST  5740 
EST  5750 
EST  5760 
EST  5770 
EST  5780 
EST  5790 
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1000  IF  (NEI.EQ.O)  60  TO  1120 
NM=KM 

IF  (NNAMM.6T.54)  N*=54 
ID=1 

PUNCH  2020*  IO'NM 
PUNCH  2030 »  10 
ICNTsO 

UO  1110  Isl»KM»6 
16=1+5 
lCNTsICNT+1 
IP=I 

IF  ((I6»LT.KM).0R.( ICNT*EQ. 10) )  60  TO  1070 
1010  I6=KM 

M=KM-I+1 

60  TO  (1020*1030*1040*1050*1060) *  KI 
1020  PUNCH  I860*  ICNT* (EILNIO(K) *K=IP» 16) 

60  TO  1100 

1030  PUNCH  1690*  ICNT* (ElLNlO(K) »K=IP* 16) 

60  TO  1100 

1040  PUNCH  1900*  ICNT* (EILNID(K) »K=IP*I6) 

60  TO  1100 

io5o  punch  19io*  icnt*  (Eilnidu)  *k=ip»i6) 

60  To  1100 

1060  PUNCH  1920*  ICNT* (EILNID(K) »K=IP» J6) 

60  TO  1100 

1070  IF  (ICNT.LT. 10)  60  TO  1080 
ID-10+1 
NM-54 

IF  ( (ID)*54.GT.KM)  NM=KM-(ID-1 ) *54 
PUNCH  2020*  ID»NM 
PUNCH  2030*  ID 
ICNT=1 

IF  ( I6.6T.KM)  60  TO  1010 
GO  TO  1090 

1080  IF  (ICNT.NE.9)  60  TO  1090 

PUNCH  1930*  ICNT*(EILN10(K)*K=I*I6) 

60  TO  1100 

1090  PUNCH  1870*  ICNT* (EILNID(K) *K=I *  16) 

1100  CONTINUE 
H10  CONTINUE 
KM=NN*MM 

H20  IF  (NNB.EO.O)  60  TO  1240 
km=Nn*mm 
nm=km 

IF  (NN*MM.6T.54)  N*=54 
10=1 

PUNCH  2050*  ID»NM 
PUNCH  2060*  10 
ICNTsO 

UO  1230  I=1»KM»6 
16=1+5 

icnt=icnt+i 

IP=I 

IF  ( ( I6.LT.KM)  .OR,  ( ICNT *EQ.  10) )  60  TO  H90 
H30  Ib=KM 

M=KM-I+1 

60  TO  (1140*1150*1160*1170*1180)*  KI 


EST  5800 
EST  5810 
EST  5820 
EST  5830 
EST  5840 
EST  5850 
EST  5860 
EST  587o 
EST  5880 
EST  5690 
EST  5900 
EST  5910 
EST  5920 
EST  5930 
EST  5940 
EST  5950 
EST  5960 
EST  5970 
EST  5980 
EST  5990 
EST  6000 
EST  6010 
EST  6020 
EST  6030 
EST  6040 
EST  6050 
EST  6060 
EST  6070 
EST  6080 
EST  6090 
EST  6100 
EST  6110 
EST  6120 
EST  6130 
EST  6140 
EST  6150 
EST  6160 
EST  6170 
EST  6180 
EST  6190 
EST  62 CO 
EST  6210 
EST  6220 
EST  6230 
EST  6240 
EST  6250 
EST  6260 
EST  6270 
EST  6280 
EST  6290 
EST  6300 
EST  6310 
EST  6320 
EST  6330 
EST  6340 
EST  6350 
EST  6360 
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1140 

H50 

1160 

1170 

H80 

1190 


1200 


1210 

1220 

1230 

1240 


1250 

1260 
1270 
1280 
1290 
1300 
1  10 


PUNCH  1880 » 
00  TO  1220 
PUNCH  1890* 
GO  TO  <220 
PUNCH  1900* 
GO  To  1220 
PUNCH  1910* 
GO  TO  1220 
PUNCH  A920* 
GO  TO  1220 
IF  <ICNT,LT. 


ICNT* (NB1D(K) fK=lP* 16) 
ICNT*(NB10(K),KsIP*X6) 
ICNT* (NBlD(K) (K:lP*X6) 
ICNT* (NBID(K) fKslP*I6) 
ICNT*(NB10(K)|K=IP*X6) 
10)  Go  TO  1200 


10=1041 

NM-54 

IF  ( (I0)*54.GT.KH)  NM=KM-( iQ-i) *54 

punch  2050*  id*nm 
Punch  2060*  10 
ICNT=1 

IF  <I6.0T.KM>  GO  TO  1130 
GO  TO  1210 

IF  CCNT.NE.9)  GO  TO  1210 
PUNCH  1930*  ICNT*(NB10(K),KsX*I6) 
GO  To  1220 

PUNCH  1870*  ICNT*(NB10(K)*KSI*I6) 

CONTINUE 

CONTINUE 

IF  (NEO.EQ.O)  GO  TO  1360 


NM=KM 

IF  <NN*MM.GT.54)  nN=54 


10=1 

Punch  1990*  IO»NM 
PUNCH  2000*  10 
ICNTsO 

UO  1350  I=1»KM»6 
16=1*5 
ICNT=ICNT*1 
1P=I 

IF  ((I6*LT.KM).ORt(lCNT.EQ.10))  GO  TO  1310 


16=KM 


KI"KHbI^1 

GO  TO  (1260*1270*1280*1290*1300)*  KI 
PUNCH  1880*  ICNT » (EDLNID(K) *K=IP* 16) 
GO  TO  1340 

PUNCH  1890*  ICNT*(E0LN10(K)*K=IP*I6) 
GO  TO  1340 

PUNCH  1900*  ICNT*(EDLN1D(K>*K=IP*I6) 
GO  TO  1340 

PUNCH  1910*  ICNT»(E0LN10(K)»K=IP*I6) 
GO  TO  1340 

PUNCH  1920*  ICNT»(E0LN10(K)*K=IP*I6) 
GO  TO  1340 

IF  (ICNT.LT. 10)  GO  TO  1320 

10=1041 

NM=54 

IF  ( (ID)*54.GT.KM)  NM=KM-i 10-1 > *54 
PUNCH  1990*  I0*NM 
PUNCH  2000*  10 
ICNTsl 


EST  6370 
EST  6380 
EST  6390 
EST  6400 
EST  6410 
EST  6420 
EST  6430 
EST  6440 
EST  6450 
EST  6460 
EST  6470 
EST  6400 
EST  6490 
EST  6500 
EST  6510 
EST  652C 
EST  6530 
EST  6540 
EST  6550 
EST  6560 
EST  6570 
EST  6500 
EST  6590 
EST  6600 
EST  6610 
EST  6620 
EST  6630 
EST  6640 
EST  6650 
EST  6660 
EST  6670 
EST  6600 
EST  6690 
EST  6700 
EST  6710 
EST  6720 
EST  6730 
EST  6740 
EST  6750 
EST  6760 
EST  6770 
EST  6780 
EST  6790 
EST  6000 
EST  6010 
EST  6020 
EST  6030 
EST  6040 
EST  6050 
EST  6060 
EST  6070 
EST  6000 
EST  6090 
EST  6900 
EST  6910 
EST  6920 
EST  6930 
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IF  (I6.GT.KM)  GO  TO  1250 
GO  TO  1330 

1320  IF  (ICNT.NE.9)  GO  TO  1330 

PUNCH  1930'  ICNT» (EDLNID(K) »K=I»I6) 

GO  TO  1340 

1330  PUNCH  1870'ICNT'  (EDLNlDC*)  » K=I » l6> 
1340  CONTINUE 
1350  CONTINUE 

IF  (IS.E0.2)  KM=Nn*LL 
1360  IF  (NZB1.EQ.0)  GO  TO  1480 
NM=KM 

IF  (NN+MM.GT.54)  NM=54 
10=1 

PUNCH  2110'  ID'NM 
PUNCH  2120'  ID 
ICNTSO 

UO  1470  I=1»KM»6 
16=1+5 
ICNTslCNT+1 
IP=I 

IF  ((I6.LT.KM).OR.(ICNT*EQ.10))  60  TO 
1370  16=KM 

1 

GO  TO  (1380'1390'1400'1410'1420)'  KI 
1380  PUNCH  1880'  ICNT.  (ZBllDtK)  »K=IP.  I6> 

GO  TO  1460 

1390  PUNCH  1890*  ICNT. <ZBUD<K) »K=IP»I6> 

GO  TO  1460 

1400  PUNCH  1900'  ICNT'(ZB110(K|'KsIP'I6> 

GO  TO  1460 

1410  PUNCH  1910'  ICnT'(ZB110<K}'K=XP'I6> 

GO  TO  1460 

1420  PUNCH  1920'  ICNT* (ZBllD(K) »K=IP* 16) 

GO  T0  1460 

1430  IF  CICNT.LT. 10)  GO  TO  1440 
ID=lD+l 
NM-54 

IF  UID>*54.GT.KM)  NM=KM-( 10-1 ) *54 
PUNCH  2110'  ID'NM 
PUNCH  2120*  ID 
iCNTsl 

IF  (I6.GT.KM)  GO  TO  1370 
GO  TO  1450 

1440  IF  (ICNT.NE«9)  GO  TO  1450 

PUNCH  1930'  ICNT'(ZBllOCK) *K=I*I6) 

GO  TO  1460 

1450  PUNCH  1870'  ICnT» (ZBllO(K) »K=I» 16) 
1460  CONTINUE 
1470  CONTINUE 

1480  IF  (NZB2.EQ«0)  60  TO  1600 
nm=km 

IF  <NN*MM.GTo54)  NM=54 
ID=l 

PUNCH  2140'  ID'NM 

punch  2150*  10 

UO  1590  I=1»KM»6 
16=1+5 


EST  6940 
EST  6950 
EST  6960 
EST  6970 
EST  6980 

EST  7000 
EST  7010 
EST  7020 
EST  7030 
EST  7040 
EST  7050 
EST  7C60 
EST  7070 
EST  7080 
EST  7090 
EST  7100 
EST  7110 
EST  7120 
EST  7130 

1430  EST  7140 

EST  7150 
EST  7160 
EST  7170 
EST  7180 

EST  7190  ♦ 

EST  7200 

EST  7210 

EST  7220 

EST  7230 

EST  7240 

EST  7250 

EST  7260 

EST  7270 

EST  7280 

EST  7290 

EST  7300 

EST  7310 

EST  7320 

EST  7330 

EST  7340 

EST  7350 

EST  7360 

EST  7370 

EST  7380 

EST  7390 

EST  7400 

EST  7410 

EST  7420 

EST  7430 

EST  7440 

EST  7450 

EST  7460 

EST  7470 

EST  7480 

EST  7490 

EST  7500 
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ICNTsICNT+1 

IP=I 

IF  ((I6.LT.KM).OR.(ICNT.EQ.10))  60  TO  1550 
1490  Ifa=KM 

KI=KH-I+1 

GO  To  (1500*1510*l520*1530*15<*0) *  KI 
1500  PUNCH  1860 r  ICNT* (ZB21D(K) *K=IP* l6> 

GO  TO  1580 

lbio  PUNCH  1890*  ICNT. (ZB21D(K) *K=IP*I6) 

GO  To  1560 

1520  PUNCH  1900 *  ICNT* (ZB2lD(K) *K=IP* l6> 

GO  TO  1560 

1530  Punch  1910*  ICNT.(Z821D<K)»K=IP.I6> 

GO  TO  1580 

ib4o  punch  1920*  icnt* (ZB2iD(K) *k=ip*I6) 

GO  To  1580 

155U  IF  (ICNT.LT. 10)  Go  To  1560 
IQSID+1 
NM-54 

IF  ( ( ID) *54. GT. KM)  NM=KM-I ID-1 ) *54 
PUNCH  2140*  ID*NM 
PUNCH  2150*  10 
ICNTS1 

IF  (I6.GT.KM)  GO  TO  1490 
GO  TO  1570 

1560  IF  ( ICNT.NE.9)  GO  TO  1570 

PUNCH  1930*  ICNT » (ZB210(K) *K=I ’ 16) 

GO  TO  1580 

1570  PUNCH  1870*  ICNT* (ZB21D<K) *KsI » 16) 

1580  CONTINUE 
1590  CONTINUE 
1600  CONTINUE 
lblO  CONTINUE 
C  MAKE  NTRAN  TAPE 

IF  (NEO*EQ.l)  GO  TO  1630 
UO  1620  K=l»1594 
1620  E0LN1D(K):0.0 
1630  IF  (NEItEQ.l)  GO  TO  1650 
Uu  1640  K=l*1595 
lb40  L1LN1D(K)=0.0 
1650  IF  (NNB.EQ.l)  GO  TO  1670 
UO  i860  K=l*1594 
1660  NdlO(K)=0.0 
1670  IF  (NZBoEQ.l)  GO  TO  1690 
UO  1680  Ksl *1595 
1680  ZB10(K)=0.0 
1690  IF  (NZBl.EQtl)  GO  TO  1710 
UO  1700  Ksl *  1594 
1700  ZBll0(K)=0.0 
1710  IF  (NZB2.EQtl)  GO  TO  1730 
UO  1720  Ksl *1594 
1720  *!u2lD(K)=0c0 
1730  CONTINUE 

IF  (ND11.EQ.0)  GO  TO  1760 

LZ=LL 

NX-NN 

mx=mm 


EST  7510 
EST  7520 
EST  7530 
EST  7540 
EST  7550 
EST  7560 
EST  7570 
EST  7580 
EST  7590 
EST  7600 
EST  7610 
EST  7620 
EST  7630 
EST  7640 
EST  7650 
EST  7660 
EST  7670 
EST  7680 
EST  7690 
EST  7700 
EST  7710 
EST  7720 
EST  7730 
EST  7740 
EST  7750 
EST  7760 
EST  7770 
EST  7780 
EST  7790 
EST  7800 
EST  7810 
EST  7820 
EST  7840 

EST  7850 
EST  7860 
EST  7870 
EST  7880 
EST  7890 
EST  7900 
EST  7910 
EST  7920 
EST  7930 
EST  7940 
EST  7950 
EST  7960 
EST  7970 
EST  7980 
EST  7990 
EST  8000 
EST  8010 
EST  8020 
EST  8030 
EST  8040 
EST  8050 
EST  8060 
EST  8070 
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fhi=phi 

IT=IS 

TAULZSTAUL(l) 

LLZ=EL(1) 

tpRLZ=EPRL(l) 

161=16 

CALL  NTRAN  (11'1'9600’IT'LX) 

174U  IF  (LX.EQ.-l)  GO  TO  1740 
IF  (LX.LT.Q)  GO  TO  1750 
End  FILE  11 
REMIND  11 
60  TC  1760 
1750  Sl=1.0655 

CALL  ERR  (SI) 

1760  CONTINUE 

c  edit  prints 

IF  (NNB.EQ.O)  GO  TO  1770 
WRITE  (6.2290) 

WRITE  (6.2380)  (NBlD(K).Ksl.KM) 

1770  IF  (NED.EO.O)  GO  TO  1780 
WRITE  (6,2270) 

WRITE  (6,2380)  (EDLNID(K).KSI.KM) 

1780  IF  ( IS.EQ.2)  KM=Nn*LL 

i F  (NZB.EQ.O)  GO  TO  1790 
WRITE  (6.2300) 

WRITE  (6,2380)  (ZBlD(K)'Ksl.KM) 

1790  IF  (NEI.EQ.O)  GO  TO  1800 
WRITE  (6.2280) 

WRITE  (6.2380)  (ElLNlD(K).Ksi.KM) 

1600  IF  (NZB1.EO.O)  GO  TO  1810 
WRITE  (6.2310 

WRITE  (6,2380)  (ZbIID(K) ,K=1»KM) 

IdlO  IF  (NZB2.EO.O)  GO  TO  1820 

WRITE  (6.2380)  (Zb21D(K),K=1,KM) 

WRITE  (6.2320) 

1620  WRITE  (6.2360) 

WRITE  (6.2380)  ((THETA(N,m),N=1,NN>'M=1'MM> 
IF  ( IS  N£i2)  GO  To  1830 
WRITE  (6.2370) 

WRITE  (6,2380)  ((TH(N»L)>N=1,NN),L=1»LL) 
la3u  continue 
call  exit 
c 


1840  FORMAT 
1650  FORMAT 
1660  FORMAT 
1670  FORMAT 
1880  FORMAT 
1890  FORMAT 
1900  FORMAT 
1910  FORMAT 
1920  FORMAT 
1930  FORMAT 
1940  format 
1950  format 

i960  FORMAT 

1970  format 


(7E10.4) 

(1415) 

( 12A6) 

(5XU,6(lFl0.6*lH,)) 

<5X11  F10.6*lH/) 

(5Xll.FlO.6f 1H* FlO. 6, lH/) 
(5XI1»F10.6*2(1H*F10.6) »1H/) 
(5Xll.F10.6*3(lH*Fi0.6) »1H/) 
(5XU>F10.6»4(1H»F10.6)»1H/) 
(5XI1»F10.6»5(1H*F10.6)»1H/) 
<5X11, 1PE10*4,5( 1H.1PE10.4) »1H/) 
<5X11, 1PE10.4, 3(1H, IPE^O.4) , 1H/ ) 
(5X11, 6(13, 1H.) ,I3»1H/) 
(5X11,10(13* 1H» ) 13, 1H/) 


EST  8060 
EST  8090 
EST  8100 
EST  8110 
EST  8120 
EST  8130 
EST  8140 
EST  8150 
EST  6160 
EST  8170 
EST  8180 
EST  8190 
EST  6200 
EST  8210 
EST  8220 

EST  8230 
EST  8240 
EST  8250 
EST  8260 
EST  8270 
EST  8280 
EST  8290 
EST  8300 
EST  8310 
EST  8320 
EST  8330 
EST  8340 
EST  8350 
EST  8360 
EST  8370 
EST  8380 
EST  8390 
EST  8400 
EST  8410 
EST  8420 
EST  8430 
EST  8440 
EST  8450 
EST  8460 
EST  8470 
EST  8480 
EST  8490 
EST  8500 
EST  8510 
EST  8520 
EST  8530 
EST  8540 
EST  8550 
EST  8560 
EST  8570 
EST  8580 
EST  8590 
EST  8600 
EST  8610 
EST  8620 
EST  8630 
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i960  FORMAT  <6X»14H  DIMENSION  *D( I2,1H,I2,1h) ) 
i990  FORMAT  <t»X#14H  C0mM0N/EST/EDI2# 1H( 12, 1h) ) 

2000  format  (6X»sh  data  edi2#1h/) 

2010  FORMAT  (6X'14H  DIMENSION  El ( I2#1H, 12, lH> ) 

*020  FORMAT  <6X*14H  C0mM0N/EST/EH2*1H(I2#1H>  ) 

2030  format  (6x»sh  data  eii2»ih/) 

2040  FORMAT  <6X*14H  OImENSION  nB(I2*1H,I2»1H) ) 

2050  FORMAT  (6X#14H  C0MM0N/EST/NBI2, 1H( 12, iH) ) 

2060  FORMAT  (6X'8H  OATa  NBI2*1h/) 

2070  FORMAT  <6X*l4H  DIMENSION  ZB ( I2#1H, 12# lH) > 

2080  FORMAT  (6X#14H  C0mM0N/EST/ZBI2# 1H( 12, lH) ) 

2090  FORMAT  (6X»8H  DATA  ZBI2#1h/) 

2100  FORMAT  <6X#15H  DIMENSION  ZB1 ( 12 • 1h# 12# lH) ) 

2110  FORMAT  (6X#15H  C0mM0N/EST/ZBH^#Ih«I2»1H)  ) 

2120  FORMAT  (6X#9H  DATA  ZB1I2#1H/) 

2130  FORMAT  <6X#15H  DIMENSION  ZB2(I2»1h»I2»1M) ) 

2140  FORMAT  <6X#15H  C0mM0N/EST/ZB2I2»1h(I2»1H) ) 

2150  Format  (6X*9H  DATA  ZB2I2,1H/) 

2160  FORMAT  <6X'32H  DATA  TAUM,EM,EPRM»TAUZ#E2»EPRZ/) 

2170  format  <6x»28h  data  taulz,elz#eprlz»r,s*t/) 

2iac  FORMAT  (6X»22H  DATA  Vlf VZ,PHI #NBMaX/) 

2190  FORMAT  (6X»39H  DATA  NN, MM,LL» Il» 12* X3» 14, 16, \f, Xa/) 

2200  FORMAT  (6X,35H  data  IS,NED'NEI’NNB’NZB,NZB1’NZB2/) 

2210  format  <6x»21h  equivalence  <ed»edi)) 

2220  FORMAT  (6X*21H  EQUIVALENCE  (El'EIl)) 

2230  FORMAT  (6X,21H  EQUIVALENCE  (NB'NBD) 

2240  FORMAT  (6X* 21H  EQUIVALENCE  <ZB»ZBl>) 

2250  format  (6x»23h  equivalence  (ZBi'Zeii)) 

2260  FORMAT  (6X»23H  EQUIVALENCE  (ZB2»Zb12)) 

227o  format  (6h  edln) 

2280  FORMAT  (6H  EILN) 

2290  FORMAT  (6H  NBAR) 

2300  FORMAT  (6H  ZBAR) 

2310  format  (7h  zbard 
2^20  format  (7h  zbar2) 

2330  FORMAT  <4H  EL) 

2340  format  <6h  eprl) 

2350  format  (6h  taul) 

2360  FORMAT  (9H  E  THETA) 

2370  FORMAT  (14H  EPRImE  THETA) 

2380  format  (ix»ip6ei2,5) 

2390  FORMAT  ( 1H0»27H  TaPE  10  OUMP  VALUE  OF  MS:I4) 

2400  FORMAT  (1H0»27H  TaPE  10  DUMP  VALUE  OF  LSsl4) 

2410  FORMAT  (6X#24H  DATA  VT1 »NT2,PAN1 »PAN2/) 

LnD 


EST  8640 
EST  8650 
EST  8660 
EST  867o 
EST  8680 
EST  8690 
EST  8700 
EST  8710 
EST  8720 
EST  8730 
EST  8740 
EST  8750 
EST  8760 
EST  8770 
EST  8780 
EST  8790 
EST  8800 
EST  8810 
EST  8820 
EST  8830 
EST  8840 
EST  8850 
EST  8860 
EST  8870 
EST  8880 
EST  8890 
EST  8900 
EST  8910 
EST  8920 
EST  8930 
EST  8940 
EST  8950 
EST  8960 
EST  8970 
EST  8980 
EST  8990 
EST  9000 
EST  9010 
EST  9020 
EST  9030 
EST  9040 
EST  9050 
EST  9060 

EST  9070 
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this*  version  of  libex-  for  use  tMDfi 

data  is  for  ch2  r  '  ■* 

SUBROUTINE  LIBEX (TAU*  E»  THA#  P*  ZBAR*  66*  NBAR*  eEDEIf 

EQUIVALENCE  (Z(13l)»Sl)  5 

REAL  NB 

real  NBMAX 

real  nbar 

COMMON  2*10000) 

COMMON/BOB/ZPART ( 1200 » 3) 

DATA  I S » NED » NE I » NNB  *  NZB »  nZB 1 » NZ B2 / 

1  2*  1»  1#  1#  1#  0»  0/ 

DATA  TAUM»EM#EPRM»TAUZ»E2#EPRZ/ 

1  1.0000*09'  5*1587+12’  5.1587+12* 

DATA  taulz»elz»eprlz»r»s*t/ 

1  0.0000  *  9.7125+00*  9.7125+00* 

DATA  VI »VZ» PHI* nbmax/ 

1  1.1256+01*  4.8984+02*  2.06'5+H* _ _ 

DATA  NN*MM*LL* II .12* 13* 14*15*16*17# 18/ 

1  28*  19*  19*  0*  1*  1#  1#  1#  it  o# 

DIMENSION  NB(28*l9) 

EQUIVALENCE  <NB*nB1) 

DIMENSION  £0(28*19) 

EQUIVALENCE  (ED*EOl) 

DIMENSION  ZB(28*l9) 

EQUIVALENCE  (ZB*ZB1) 

DIMENSION  El (28* 19) 

EQUIVALENCE  (EI*eI1) 

COMMON/EST/ZB  1(54) 


1. 0000+00* 
6.0000+00* 
6*0000+00/ 
0/ 


1 

data  ZB  1/ 
•OOOOOO* 

oOOOOOO* 

'OOOOOO* 

2 

.OOOOOO* 

•OOOOOO* 

.OOOOOO* 

3 

•0000C9* 

.OOOOOO* 

•OOOOOO* 

4 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

5 

•OOOOOO* 

.OOOOOO* 

(OOOOOO* 

6 

o  OOOOOO » 

•OOOOOO* 

.OOOOOO* 

7 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

8 

•OOOOOO* 

•OOOOOO* 

tOOOOOO* 

9 

oOOOOOO* 

.OOOOOO* 

.OOOOOO* 

.OoOOOO* 

.000000* 

•OoOOOO* 

•000000* 

.000000* 

•OOOOOO* 

•OOOOOO* 

.000000* 

•oooouo* 


•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 


EIBE  ltf 
LBx  20 
LBX  130 
LBX  140 
LBX  150 
LBX  160 
LBX  170 


5.1587+09* 

3*0000+00* 


5.1587+09/ 

6.0000+00/ 


•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•000060* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•000000/ 


1 

DATA  ZB  2/ 
•OOOOOO* 

•OOOOOO* 

*000000* 

2 

oOOOOOO* 

.OOOOOO* 

•OOOOOO* 

3 

.  OOOOOO  * 

•OOOOOO* 

•OOOOOO* 

4 

•OOOOOO* 

.000090* 

.OOOOOO* 

5 

o  OOOOOO  * 

•OOOOOO* 

*000000* 

6 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

7 

.000060* 

•OOOOOO* 

•OOOOOO* 

8 

•OOOOOO* 

•OOOOOO* 

'OOOOOO* 

9 

•OOOOOO* 

.OOOOOO* 

•OOOOOO* 

COMMON/EST/ZB  3(54) 


•OOOOOO* 

.000000* 

.000000* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

.000000* 

.000000* 

•OoOOOO* 


DATA  ZB  3/ 

1 

•OOOOOO* 

•OOOOOO* 

(OOOOOO* 

•OOOOOO* 

2 

•OOOOOO* 

.600000* 

.OOOOOO* 

•OOOOOO* 

3 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

4 

•OOOOOO* 

•OOQOOOr 

.OOOOOO* 

•OOOOOO* 

5 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

6 

.OOOOOO  * 

•OOoOOO* 

.OOOOOO* 

•OoOOOO* 

7 

•OOOOOO* 

•OOqOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 
)* 
)* 
)* 


•OOOOOO) 

•OOOOOO) 

•OOOOOO) 

•OOOOOO* 

•OOOOOO* 

•090000* 

•OOOOOO* 

•OOOOOO* 


•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 


•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•000000/ 


•OOOOOO* 

•OOOOOO* 

•cooooo* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 

•OOOOOO* 
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8 

.000000* 

.(  oooo* 

•OOOOOO* 

•oooooo* 

•oooooo* 

•oooooo* 

9 

• oooooo * 

C0MM0N/E.ST/ZE 
DATA  ZB  4/ 

•oooooo* 

4(54) 

.oooooo* 

•oooooo* 

•oooooo* 

•oooooo/ 

1 

.000000* 

.oooooo* 

•oooooo* 

•OoOOOO* 

•oooooo* 

•oooooo* 

2 

>000000  * 

•oooooo* 

1000000* 

•OOOOOO* 

•oooooo* 

•oooooo* 

3 

•oooooo* 

•oooooo* 

.oooooo* 

•oooooo* 

•oooooo* 

•oooooo* 

4 

•  oooooo  * 

•oooooo* 

•OOOOOO* 

•oooooo* 

•oooooo* 

•oooooo* 

5 

•oooooo* 

•oooooo* 

•OOOOOO* 

•oooooo* 

•oooooo* 

•oooooo* 

6 

•oooooo* 

•oooooo* 

.oooooo* 

•oooooo* 

•oooooo* 

•oooooo* 

7 

•oooooo* 

•OOoOOO* 

.oooooo* 

•oooooo* 

•oooooo* 

•oooooo* 

8 

•  oooooo  * 

•oooooo* 

.oooooo* 

•OoOUOO* 

•oooooo* 

•oooooo* 

9 

•  oooooo  * 
common/est/zb 
data  ZB  5/ 

•oooooo* 

5(59) 

,000000* 

.oooooo* 

•oooooo* 

•oooooo/ 

1 

cOOOOOO* 

•OOOOOO* 

•oooooo* 

•OOOOOO* 

•oooooo* 

•oooooo* 

2 

•oooooo* 

oOOoOOQ* 

•OOOOOO* 

•OOOOOO* 

•oooooo* 

•oooooo* 

3 

cOOOOOO* 

•oooooo* 

•o:;ooo* 

•oooooo* 

•oooooo* 

•oooooo* 

4 

•oooooo* 

•oooooo* 

.oooooo* 

•oooooo* 

•oooooo* 

•oooooo* 

5 

cOOOOOO* 

•oooooo* 

•OOOOOO* 

•oooooo* 

•oooooo* 

•oooooo* 

6 

o  oooooo • 

•oooooo* 

.oooooo* 

•OoOOOO* 

•oooooo* 

•oooooo* 

7 

•00137s* 

•OOoOOO* 

•oooooo* 

•OOOOOO* 

•oooooo* 

•oooooo* 

8 

•oooooo* 

•oooooo* 

.oooooo* 

•OoOOOO* 

•oooooo* 

•oooooo* 

9 

•oooooo* 

COMMON/EST/ZB 
DATA  ZB  6/ 

•OOoOCO* 

6(54) 

•oooooo* 

•OOOOOO* 

•oooooo* 

•001025/ 

1 

•001366* 

.001845* 

.002392* 

.003171* 

.003972, 

•004863* 

2 

•005825* 

.006842* 

•007898* 

,008980* 

•002165* 

.001453* 

3 

.001018* 

•oooooo* 

.oooooo* 

•oooooo* 

•oooooo* 

.001017* 

4 

.001416* 

.001966* 

•002683* 

.003581* 

•004660* 

.006132* 

5 

•007678* 

.009392* 

.011240* 

.013183* 

•015182* 

.017221* 

6 

•019279. 

.021328* 

.023356* 

•025352* 

.027308* 

.029587* 

7 

•031466* 

.033289* 

,003305* 

,002510* 

.002125* 

•003008* 

8 

•004120* 

,005563* 

.007379* 

•009542* 

•012376* 

•015347* 

9 

•018690* 
COMMON/EST/ZB 
DATA  ZB  7/ 

.022033* 

7(54) 

.025610* 

•029260* 

.032925* 

.036567/ 

1 

.040154* 

,043662* 

.047073* 

.050376* 

0  053563* 

.056637* 

2 

.059574. 

•062393* 

,065092* 

•067673* 

•070141* 

.072497* 

3 

•006451* 

,008939* 

(011798* 

,015438* 

•020100* 

.025151* 

4 

•030705* 

.036627* 

,042780* 

,049041* 

•055305* 

•061488* 

5 

•067552* 

.073404* 

,079059* 

.084486* 

•089684* 

.094644* 

6 

•099369* 

•103865* 

,108140* 

.112192* 

•116055* 

.119713* 

7 

•123183* 

.126476* 

,129601* 

•132567* 

•022550* 

.029372* 

8 

•  037760  * 

.046765* 

.056490* 

.066674* 

•077067* 

•087457* 

9 

•097672* 
COMMON/EST/ZB 
data  ZB  8/ 

•107592* 

8(54) 

,117154* 

.126278* 

•134955* 

.143179/ 

1 

.150955* 

.158299* 

.165227* 

•171791* 

•178403* 

.184369* 

2 

<190535* 

.194808* 

(199512* 

•203055* 

.206890* 

•208952* 

3 

•212317* 

.214984* 

,055995* 

,070481* 

.086022* 

•102427* 

4 

•119235* 

•  1 36026  * 

,152489* 

•168387* 

•183538* 

•197870* 

5 

•211345* 

•223981* 

,236104* 

.247291* 

•25683?* 

• 2**929 *  . 

6 

•272522* 

.279397* 

,285713* 

.291530* 

•296898* 

•301848* 

7 

•306537* 

.310995* 

,315162* 

.319057* 

.322715* 

•326150* 

8 

•111426* 

.136153* 

,162043* 

.188504* 

.214795* 

•240392* 

9 

.264893* 

•288068* 

,309845* 

,329440* 

•346662* 

•362322/ 

SI  5 
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COMMON/EST/ZB  9(54) 
DATA  ZB  9/ 

1  .376563*  .389536 * 

2  .439821*  .447598* 

3  .478736*  .483736* 

4  .270380*  .310347* 

5  .480242*  .506713* 

6  .607744*  .622505* 

7  .679541*  .688345* 

8  .723533*  .729172* 

9  .527633*  .577922* 

COMMON/EST/ZBlO (46) 

DATA  ZB10/ 

1  .776754*  .805720* 

2  .913679*  .929478* 

3  .988055*  .996493* 

4  .425780*  .510008* 

5  .868860*  .922703* 

6  1.103657*  1.123317* 

7  1.194515*  1.205969* 

8  1.240043*  1.245551* 

COMMON/EST/EI  1<54> 
DATA  El  1/ 

1- 23. 025850**23. 025850* 

2- 23 . 025850  *  *23 .025850  • 

3- 23.025850**23.025850 • 

4- 23.025850**23.025850* 

5- 23.025850**23.025850) 

6- 23 • 025850  *  *23 . 025850  • 

7- 23 . 025850  * -23.025850 1 

8- 23 • 025850*  *23 . 025850  • 

9- 23.025850**23. 025850 1 
COMMON/EST/EI  2(54) 
OATA  El  2/ 

1- 23 . 025850  *  *23 . 025850 1 

2- 23.025850  *  *23 . 025850 

3- 23 . 025850  * -23.025850 

4- 23.025850**23.025850 

5- 23 . 025850 • *23 . 025850 

6- 23.025850**23.025850 

7- 23.025850**23 .025850 

8- 23 • 025850**23 . 025850 

9- 23 . 025850  *  *23 . 025850 
COMMON/EST/El  3(54) 
DATA  El  3/ 

1- 23 • 025850  * -23 . 025850 

2- 23 • 025850  *  *23 . 025850 

3- 23 . 025850  *  *23 . 025850  •' 

4- 23 . 025850  *  *23 .025850  * 

5- 23.025850**23.025850* 

6- 23.025850  * -23 . 025850 * 

7- 23  *  025850 • *23 .025850  * 

8- 23.025850**23.025850* 

9- 23.025850**23.025850* 
COMMON/EST/EI  4(54) 
DATA  El  4/ 

1-23.025850**23.025850* 


.401388*  .412261* 
.454789*  .461449* 
.488411*  .492790* 
.349491*  .387092* 
1531402*  .553976* 
.635983*  .648317* 
.696480*  .704010* 
.297996*  .353707* 
.626699*  .671599* 


.831883*  .855520* 

.943750*  .956630* 

1.004091*  1.010952* 

.594169*  .672576* 

.970060*  1.011201* 

1.141089*  1.160070* 

1.213874*  1.221149* 

1.250730*  1.255609/ 


23 1 025850 • -23*025850 1 
-23. 02585Q*-23. 025850 
-23 l 025850* -23. 025850 
-23t025850*-23. 025850 
-231025850* -23.025850 
-23(025850.-23. 025850 
-23  1  025850 » -23.025850 
-23. 025850.-23. 025850 
23(025850.-23.025850 


-23.025850.-23.025850 
-23(025850.-23.025850 
-23i025850*-23. 025850 
-23,025650.-23.025850 
-23 t 025850* -23. 025850 
-23)025850.-23.025850 
-23. 025850* -23. 025850 
-23(025850.-23.025850 
-23.025850.-23.025850 


-23)025850.-23.025850 
-23.025850.-23.025850 
-23)025850.-23.025850 
-23(025850**23.025850 
•23)02! B50.-23.025850 
-23 . 025850  * -23 . 025850 
-23.025850.-23.025850 
-23,025850.-23.025850 
•23 ) 025850  * -23.025850 


-23 . 025850  * -23 . 025850  * 


.422231*  .431389* 
.467631*  .473380* 
.191916*  .230571* 
.421993*  .451410* 
.579697*  .593697. 
.659616*  .669992* 
.710996*  .717488* 
.411865*  .471231* 
.709234*  .744693/ 


•876885*  .896205* 

.968233*  .978674. 

1. 017173.  ,.022840* 

.744677*  .808484* 

1.046563,  ,.076752* 

1.173028*  ,.184398* 

1.227891*  1.234171* 


23 . 025850  * -23 • 025850  * 
23.025850.-23*025850. 

23.025850  * -23  *025850  * 

23.025850.-23*025850* 
23.025850.-23*025850* 
•23.025850.-23*025850* 
•23.025850.-23*025850* 
•23.025850.-23*025850* 
•23  *  025850  * -23*025850/ 


-23*025850.-23*025850. 
-23.025850  * -23*025850  * 
-23.025850,-23*025850, 
-23*025850.-23*025850* 
-23 • 025850  * -23  *  025850  * 
-23.025850.-23*025850* 
-23 . 025850  * -23  *  025850  * 
-23.025850.-23*025850* 
-23 .025850  * -23 « 025850/ 


-23. 025850* -23* 025850* 
-23.025850,-23*025850* 
-23 .025850  * -23*025850  * 
-23.025850.-23*025850* 
-23*025850,-23*025850* 
-23 .025850  * -23 • 025850  * 
-23.025850,-23*025850* 
-23 . 025850  * -23*025850  * 
-23.025850,-23*025850/ 


-23 . 025850 , -23*025850 , 
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2- 23, 025850 ' -23,025850 

3- 23. 025850t-23. 025850 

4- 23. 025850**23. 025850 

5- 23.025850.-23.025850 

6- 23.025850.-23.025850 

7- 23.025850.-23.025850 

8- 23.025850.-23.025850 

9- 23.025850.-23,025850 
COMMON/EST/EI  5(54) 
DATA  El  5/ 

1- 23.025850 . -23.025850 

2- 23.025850.-23.025850 

3- 23.025850.-23.025850 

4- 23.025850.-23.025850 

5- 23.025850.-23.025850 

6- 23 . 025850 . -23.025850 
7  -4.123382.-23.025850 

8- 23.025850.-23.025850 

9- 23.025850.-23.025850 
COMMON/EST/EI  6(54) 


DATA  El  6/ 

1 

-4.156404. 

-3. 870282 

2 

-2.721497. 

-2.560797i 

3 

-4.435791.* 

•23.025850 

4 

-2.639282. 

-3.793462 

5 

-2.433998. 

-2. 233350< 

6 

-1.518587 . 

-1.4184541 

7 

-1.033019. 

-.977226 

8 

-1.580806. 

-2.732056 

9 

-1.531787. 

-1.363589 

COMMON/EST/EI  7(54) 

QATA  El  7/ 

1 

-.772686. 

-.690705 

2 

-.387577. 

-.342571 

3 

.066419. 

-.579267 

4 

-.199950. 

-.118360 

5 

.219855. 

.271785 

6 

*471202. 

.501532 

7 

.621071. 

.639949 

8 

-.090299. 

.022297 

9 

.487915. 

,556665 

COMMON/EST/EI  8(54) 

DATA  El  8/ 

1 

.806570. 

.842415 

2 

.983668. 

1.000055 

3 

1.073742. 

1.084852 

4 

•653488. 

,754180 

5 

1.106402. 

1.153981 

6 

1.320937. 

1.343880 

7 

1.431059. 

1.444880 

8 

.614286. 

.768409 

9 

1.320736. 

1.393595 

COMMON/EST/EI  9(54) 

DATA  El  9/ 

1 

1.637092. 

1.669648 

2 

1.788294. 

1.805619 

3 

1.872392. 

1,882742 

-23,025850.-23.025850 
-23.025850.-23.025850 
-23  *  025850 . -23 . 025850 
-23 t 025850. -23 .025850 
-23|025850.-23.025850 
-23.025850.-23.025850 
-23.025850.-23.025850 
-19,121368.-23.025850 


-23*025850,-23.025850 
-231025850.-23.025850 
-23,025850.-23.025850 
-23.025850.-23.025850 
-23.025850.-23.025850 
-23.025850.-23.025850 
-23 . 025850 . -23.025850 
-23,025850 . -23.025850 
-°3. 025850. -23. 025850 


-3.610777.  -3.328852 
-2.417514.  -2.289392 
-23.025850.-18.428221 
-3.483021.  -3.194972 
-2.054593.  -1.896018 
-1.328422.  -1.247146 
-3.236126.  -3.519532 
-2,450434.  -2.194612 
-1*214971.  -1.083603 


-*617174.  -.550978 

-.301360.  -.263504 

-.520131.  -.449692 

-.040473.  .032605 

.319244.  .362526 

,529415.  .555051 

,657516.  .673891 

,130730.  .232470 

,618289.  .673331 


,874831.  .904381 

1,019479.  1.034641 

*137313.  .281975 

.843481.  .922304 

1,197353.  1.235449 

1.364646.  1.383515 

1.457669.  1.469512 

,907450.  1.031708 

1,457297.  1.511792 


1*698678.  1.724723 
1.821401.  1.835822 
1*892329.  1.901232 


•23 

025850. 

-23 

.025850, 

•23 

025850. 

-23 

.025850. 

•23 

025850. 

“23 

.025850, 

•23 

025850. 

-23 

.025850, 

•23 

025850. 

-23 

.025850, 

•19 

121368. 

-23 

.025850, 

•23 

025850. 

-23 

.025850. 

>23 

025850. 

-23 

.025850/ 

•23 

025850. 

-23 

.025850, 

•23 

025850. 

-23 

.025850, 

>23 

025850. 

-23 

.025850, 

•23 

025850. 

-23 

.*25850, 

•23 

025850. 

-234025850. 

•23 

025850, 

-23 

.025850, 

23 

025850. 

-23 

.025850, 

•23 

025850. 

-23 

.025850, 

•23 

025850. 

-4 

.457728/ 

-3 

103802. 

-2 

.901839, 

-3 

664721. 

-4 

.072567, 

23 

025850. 

.912638, 

-2 

932156. 

-2 

.658109, 

-1 

755708. 

-1 

.630594, 

-1 

173510. 

-1 

.093992, 

104213. 

.430702, 

-1 

935585. 

-1 

.721872, 

— 

967472, 

.864430/ 

491172, 

m 

.436792, 

- 

228641, 

m 

.196460, 

- 

366256, 

m 

.283425, 

100362, 

.162655, 

402032, 

.438141, 

578817, 

.600746, 

- 

316351, 

. 

.208517, 

326132, 

.411246, 

722609, 

.766817/ 

933264, 

.958328, 

1 

051086, 

1 

.059490, 

416497, 

.540818, 

991618, 

1 

.052628, 

1 

267268, 

1 

.295537, 

1 

400707, 

1 

•416374, 

1 

480535, 

1 

.490800, 

1 

141222, 

1 

.237120, 

1 

558882, 

t 

.600401/ 

1 

748120, 

1 

.769211, 

1 

849041, 

1 

.861192, 

1 

055842, 

1 

.212095, 
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4 

1.350815* 

1.472947* 

1.579541* 

1.672155* 

1.752300* 

1.816542* 

5 

1.876708* 

1.929510* 

1*976725* 

2.018240* 

2.055015* 

2*087660* 

6 

2.111153* 

2.135276* 

2.156811* 

2.176118* 

2.195482, 

2.209162* 

7 

2.223371* 

2.236290* 

2,248074* 

2.258856* 

2.268749* 

2*277853* 

8 

2.286251* 

2,294019* 

1,443107* 

1.597401* 

1.736608* 

1.860831* 

9 

1*969935*  2.060713* 

COMMON/EST/EIlO ( 46) 

data  Elio/ 

2.143033* 

2.214076* 

2.270280* 

2*320675/ 

1 

2.364231* 

2.402053* 

2*435059* 

2.464010* 

2.489531* 

2.512136* 

2 

2.532244* 

2.550201* 

2.566288* 

2.580744* 

2.593766* 

2*605529* 

3 

2.616178* 

2.625862* 

2,634700* 

2.642804* 

2.650271, 

2.657184* 

4 

1.771012* 

1.937605* 

2.089148* 

2.219229* 

2.329331, 

2*419531* 

5 

2.499551* 

2.567096* 

2.624108* 

2.672329* 

2.713255* 

2*748209, 

6 

2.779896* 

2.803067* 

2.824647* 

2.848658* 

2.865081  * 

2*880107, 

7 

8 

2.893955*  2.91o217* 

2.960688*  2.969101* 

common/est/nb  its1*) 
data  NB  1/ 

2,921626* 

2.977057* 

2.932306* 

2.984589/ 

2.942338* 

2*951782* 

1 

6.000000* 

6.000000* 

6,000000* 

6.000000* 

6.000000* 

6*000000* 

2 

6.000000* 

6.000000* 

6.000000* 

6.000000* 

6.000000* 

6* 000000* 

3 

6.000000* 

6.000000* 

6.000000* 

6.O0OOOO* 

6.000000* 

000000* 

4 

6.000000* 

6,000000* 

6,000000* 

6.000000* 

6.000000* 

**000000* 

5 

6.000000* 

6.000000* 

6,000000* 

6.000000* 

6*000000* 

fi.000000* 

6 

6.000000* 

6.000000* 

6.000000* 

6.000000* 

6.000000* 

6*000000* 

7 

6.000000* 

6.000000* 

6,000000* 

6.000000* 

6.000000* 

6*000000* 

8 

6.000000* 

6.000000* 

6.000000* 

6.000000* 

6*000000* 

6*000000, 

9 

6.000000*  6.000000* 
COMMON/EST/NB  2(54) 
DATA  NB  2/ 

6.000000* 

6.000000* 

6.000000* 

5.991147/ 

1 

5.980486* 

5.969981* 

6.000000* 

6.000000* 

6.000000* 

6*000000, 

2 

6.000000* 

6.000000* 

6.000000* 

6.000000* 

6.000000* 

6*000000* 

3 

6.000000* 

6.000000* 

6.000000* 

6.000000* 

6.000000* 

6*000000* 

4 

6.000000* 

6.000000* 

5.983711* 

5.965959* 

3.949257, 

6*931445* 

5 

5.917412. 

5.902410* 

5.889917* 

5.877577, 

5.865907* 

6*855065* 

6 

6*000000* 

6.000000* 

6,000000* 

6.000000* 

6.000000* 

6*000000* 

7 

6.000000* 

6,000000* 

6.000000* 

6.0000C0* 

6.000000* 

6*000000* 

8 

5.977492* 

5.940688* 

5*918998* 

5.891096* 

5.865938* 

6*843042* 

9 

5.820780*  5.801593* 

COMMON/EST/NB  3(s4) 
DATA  NB  3/ 

5(784027* 

5.767848, 

5.752925* 

6.739068/ 

1 

5.726187* 

5.714162* 

5,702917* 

5.692377, 

6.000000* 

6*000000* 

2 

6.000000* 

6.000000* 

5,993184* 

5.963240* 

5,926456* 

6*892512* 

3 

5.858166* 

5.827527* 

5,798051* 

5.772375, 

5.750608* 

6.717156* 

4 

5.687274* 

5.660236* 

5.635739* 

5.611224* 

5.591197* 

6*572837, 

5 

5.555954. 

5.540375* 

5,523215* 

5.509963* 

5.497633* 

5.486130* 

6 

5.475372. 

5.465287* 

6.000000* 

5.884723* 

5.789128* 

6.749161* 

7 

5.702450* 

5,661340* 

5(617487* 

5.579817, 

5.543010* 

5.511750* 

8 

5.483185* 

5.455402* 

5.429414* 

5.403113* 

5.374787, 

6*349291* 

9 

5.321200*  5.300475* 

COMMON/EST/NB  4(54) 
OATA  NB  4/ 

5(281584* 

5.264278* 

5.248366* 

6*233685/ 

1 

5.220089* 

5.207475* 

5.195733* 

5.184776, 

5.174527* 

6*164920* 

2 

5.774427* 

5.509112* 

5(400023* 

5.350777, 

5.3o0285* 

5*252188, 

3 

5.206642* 

5, 17o256* 

5,135800* 

5.102584* 

5.071138* 

5*048096* 

4 

5.023514* 

5.001376* 

4,968020* 

4.944589* 

4.923397, 

4*904153, 

5 

4.886592* 

4. 870502* 

4.855705* 

4.842050* 

4.829411* 

4*817677* 

6 

4.806755* 

4.796564* 

4,787031* 

4,778096* 

5.266429* 

5*013392* 
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7 

4.909512* 

4.847803* 

4.794539* 

4.745758* 

4.701477*  4*659396* 

a 

4*628836* 

4. 60Q563* 

4.571672* 

4.544541* 

4.525727*  4*499321* 

9 

4.475782*  4.454619* 

COMMON/EST/NB  5(54) 
OATA  N3  5/ 

4.429255* 

4.412327* 

4.396876*  4*382717/ 

1 

4.3696V1* 

4.357666* 

4,346532* 

4.336190* 

4.326560*  4*317570* 

2 

4.309158* 

4.301269* 

4.647364* 

4.422429* 

4.316649*  4*257798* 

3 

4.204197* 

4.156621* 

4t 114410* 

4.076765* 

4.040914*  4*015163* 

4 

3.993628* 

3.969731* 

3.947384* 

3.924075* 

3.903820*  3*885605* 

5 

3.869124* 

3.854156* 

3.840493* 

3.827971* 

3.816452*  3*805820* 

6 

3.795976* 

3.786835* 

3.778325* 

3.770382* 

3.762951*  3.755984* 

7 

3.961872* 

3.77ll00» 

••,675624* 

3.613715* 

3.561891*  3*517090* 

8 

3.478129* 

3. 443949# 

3.413664* 

3. 3851 ll * 

3.366005*  3*347951* 

9 

3.329016*  3.309615* 

COMMON/EST/NB  6(54) 
DATA  NB  6/ 

3.292403* 

3.276922* 

3.262923*  3*250202/ 

1 

3.238593* 

3.227954* 

3.218169* 

3.209140* 

3.2Q0782*  3*193022* 

2 

3.185799* 

3.179059* 

3.172754* 

3.166845* 

3.260791*  3.105434* 

3 

3.018090* 

2.954007* 

2.912544* 

2.871745* 

2.836886*  ?. 806756* 

4 

2.780412* 

2.757115* 

2.735633* 

2.715104* 

2.706939*  ?. 691247* 

5 

2*677219* 

2.664603* 

2.653195* 

2.635510* 

2.626666*  9*618545* 

6 

2.611059* 

2.604136* 

2.597715* 

2.591743* 

2.586174*  ^.580969* 

7 

2.576092* 

2.571515* 

2.610354* 

2.473933* 

2.398627*  9*342306* 

6 

2.302062* 

2.266039* 

2.235741* 

2.209899, 

2.1b7573*  9.168051* 

9 

2.150787*  2.135353* 

COMMON/EST/NB  7(54) 
DATA  NB  7/ 

2.120403* 

2.108415* 

2.097903*  9.088431/ 

1 

2.079850* 

2.072038* 

2.064898* 

2.058346* 

2.052312*  9.046737* 

2 

2.041570* 

2.036756* 

2,032265* 

2.028072* 

2.024150*  2.020472* 

3 

2.022045* 

1.914107* 

1.850945* 

1.800267* 

1.761534*  t. 734504* 

4 

1.708825* 

1.687182* 

1,668681* 

1.652666* 

1.638640*  1.626227* 

5 

1.615130* 

1.605965* 

1.597774* 

1.590413* 

1.583759*  1.577716* 

6 

1.572202* 

1.567150* 

1.562504* 

i.558217* 

1.554249*  1.550564* 

1*528232*  1.452819* 

7 

1.547134, 

1.543933* 

1.540938* 

1.5381.1 • 

a 

1.396629* 

1.353141* 

1.320814* 

1.293506* 

1.276882*  1.255734* 

9 

1.240891*  1.228287* 

COMMON/EST/NB  8(54) 
DATA  NB  8/ 

1*217525* 

1.208336* 

1.200551*  1.192621/ 

l 

1.188851* 

1.182839* 

1.176976* 

1.171536* 

1.166144*  1.162256* 

1.150168*  1*141086* 

2 

1.160911* 

1 . 154866* 

1.153557* 

1.146557* 

3 

1.143772, 

1.142307* 

1,133658* 

1.078449* 

1.035555*  l.OOOOOO* 

4 

1.000000* 

1.000000# 

1.000000* 

1.000000* 

1.000000*  1*000000* 

5 

1.000000* 

1.000000* 

1.000000* 

1.000000* 

1.000000*  1*000000* 

6 

1.000000* 

1.000000* 

1,000000* 

1.000000* 

1.000000*  1*000000* 

7 

1.000000* 

1.000000* 

1.000000* 

l.oooooo* 

1.000000*  1*000000* 

a 

1.000000* 

1.000000* 

1.000000* 

1.000000* 

1.000000*  1*000000* 

9 

1*009000*  1.000000* 

COMMUN/EST/NB  9(54) 
OATA  NB  9/ 

1,000000* 

1.000000* 

1.000000*  1.000000/ 

l 

1.000000* 

1.000000* 

1,000000* 

1,000000* 

1.000000*  1*000000* 

2 

1.000000* 

1.000000* 

1.000000* 

l.OoOOOO* 

1.000000*  1.000000* 

3 

1*000000* 

1.000300* 

1.000000* 

1.000000* 

1.000000*  1.000000* 

4 

1.000000* 

1 0  000000  * 

1.000000* 

1.000000* 

1.000000*  l.oooooo* 

5 

1.000000* 

l.OOQOOO* 

1*000000* 

1.000000* 

1.000000*  1*000000* 

6 

1.000000* 

1.000000* 

1.000000* 

1.000000* 

1.000000*  l.oooooo* 

7 

1.000000* 

1.000000* 

1.000000* 

l.oooooo* 

1.000000*  1*000000* 

8 

1.000000* 

1.000000* 

1.000000* 

1.000000* 

1.090000*  1*000000* 
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9  1.000000*  1.000000' 

COMMON/EST/NBIO (46) 
DATA  NB10/ 

1  1.000000'  1.000000 
2  1.000000'  1.000000 

3  1.000000'  1.000000 

4  1.000000'  1.000000 

5  1.000000'  1.000000 

6  1.000000'  1.000000 

7  1.000000'  1.000000 

8  1.000000'  1.000000 

COMMON/EST/EO  1(59) 
DATA  ED  1/ 

1- 23 .025850 . -23 . 025850 

2- 23 .025850 ' -23 .025850 

3- 23  *025850 ' -23 . 025850 
9-23  *025850 . -23 . 025850 

5- 23. 025850 '-23. 025850 

6- 23. 025850' -23. 025850 

7- 23  *  025850 ' -23 . 025850 

8- 23. 025850 '-23. 025850 

9- 23. 025850'-23. 025850 
COMMON/EST/ED  2(59) 
OAT*  ED  2/ 

1  20.097997.  20.530967 

2- 23.025850 » -23.025850 

3- 23. 025850.-23.025850 
9-23. 025850 '-23. 025850 
5  21.551395.  21.72o789 

6- 23 . 025850 ' -23 .025850 

7- 23 .025850 . -23 . 025850 

8  20.291250'  21.07ol32 

9  22.392559.  22.997567 
COMMON/EST/ED  3(59) 
DATA  ED  3/ 

1  22.782773.  22.827855 
2-23.025850.-23.025850 
3  22.102202'  22.303022 
9  22.922973c  23.010163 

5  23.296939*  23.333726 

6  23.977805'  23.998689 

7  22.870062'  23.006713i 

8  23.961375'  23.510817 

9  23.769005c  23.797981i 
common/est/eo  9(59) 

DATA  ED  9/ 

1  23.922092.  23.99o506i 

2  22.580582'  23.905189) 

3  23.991716'  23,993572) 
9  29.185207'  24,212041. 

5  29,394062.  29,36l708< 

6  24.429785'  29,44o413i 

7  24,318583c  24.386276i 

8  24.606986'  29,633023) 

9  29,745932.  29,764961) 
COMMON/EST/ED  5(59) 
DATA  ED  5/ 


1.000000'  l.JQOOOO' 


1*000000'  1.000000' 

1.000000'  1.000000' 

1.000000'  1.000000' 

1.000000'  1.000000' 

1.000000'  1.000000' 

1,000000'  1.000000' 

1.000000'  1.000000' 

1.000000'  1.000000/ 


-23. 025850'-23. 025850' 
-23. 025850' -23. 025850' 
-23. 025850'-23. 025850' 
-23*025850'-23. 025850c 
-23, 025850 '-23. 025850' 
-23. 025850'-23. 025650. 
-23| 025850.-23. 025850. 
-23. 025850.-23. 025850. 
-23, 025850.-23. 025850. 


-23,025850.-23.025850. 
-23*025850.-23. 025850' 
-23.025850.-23.025850. 
19,916819'  20.656865. 
21.843376'  21.951713. 
-23.025850.-23.025850. 
-23.025850.-23.025850. 
21.531683'  21,832401' 
22.535428'  22,610470. 


22.868410'  22.905123. 
19,044068'  20.734181. 
22,465668'  22.589992. 
23.084117'  23,153611. 
23.373482'  23.403300. 
-23.025850'  21,890353. 
23,136256'  23.236912. 
23.570209'  23.620129* 
23.828200'  23.855285. 


23,957470.  23.973113. 
23.625866'  23,7l3911. 
24,040944'  24.085149* 
24,251589*  24.278768. 
24,377766'  24,392445* 
24,450292*  24.459500* 
24*442516.  24,492412. 
24,659757.  24.684526* 
24,786451*  24.800999* 


1.000000*  1*000000/ 


1.000000'  i.OOOOOO* 
1.000000*  1.000000* 
1.000000'  1.000000' 
1*000000*  1.000000* 
1.000000'  1.000000' 
1.000000'  1.000000* 
1.000000'  1.000000c 


’23* 025850 *-23*  025850* 
’23, 025850 *-23. 025850* 
>23. 025850*-23. 025850* 
•23. 025850* -23* 025850. 
-23. 025850.-23* 025850* 
■23. 025850* -23* 025850* 
-23. 025850.-23*025850* 
23. 025850.-23* 025850c 
23.025850*  lg*305801/ 


23.025850.-23.025850' 
23.025850.-23*025850* 
23.025850.-23.025850* 
21.056886*  21.362743* 
22.044751*  22.124351* 
-23. 025850 *-23* 025850> 
-23. 025850 *-23  025850 * 
22.044519*  22.206105* 
22.675360*  2?. 732338/ 


*23.025850.-23.025850* 
21.433837*  21,819072* 
22.6fl5096*  22.816803* 
23.207418*  23«254637c 
23.430389*  23*455124* 
22.510645*  22*691133* 
23.327500'  23*399321. 
23.671749.  23*716474. 
23.879709»  23.901854/ 


23.987585.  24*001014* 
23.798289.  23.873883' 
24.125771*  24.154830' 
24.302944*  24.324577* 
24.405915*  24*418321c 
23.851949*  24*197536. 
24.536482*  24*577367* 
24.7ol519*  24*725123. 
24,814191.  24*826211/ 


I 
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» 


5ZO 


AFWL-TR  -67  - 1  31  ,  Vol  IV 

1  24.837209*  24.847313*  24.856628*  24.865246*  24.873240*  24*880678* 
4  2  24.887616*  24.894103*  24|585887»  24.792328*  24.881439*  24*929529* 

3  24.972501*  25.010030*  25.042877*  25.071836*  25.099140.  25.118591* 

4  25.134759*  25,15260.2*  25.169194*  25.186408*  25. 201293.  25.214621* 

5  25.226637*  25.237513*  25,247411*  25.256459*  25,264762*  25.272409* 

6  25.279475.  25.286025*  25,292113.  25.297786.  25.3o3086.  25.308049, 

7  25,158447.  25.297273*  25*364861*  25.408134,  25.444063,  25.474929. 

8  25.501639*  25.524976*  25,545588*  25.564967*  25.577907,  25.590116* 

9  25,602902*  25.615984*  25.627576*  25.637990,  25.647399*  25.655942/ 

COMMON/EST/ED  6(54) 

DATA  ED  6/ 

1  25.663733*  25.67o869*  25,677428*  25.683479*  25.689077*  25*694273* 

2  25.699107,  25.703617*  25.707835*  25.711787,  25.648832,  25.752813* 

3  25.811072*  25.853796*  25,881452*  25.908688*  25.931982,  25.952139, 

4  25,969786*  25.985411*  25*999835*  26.013637*  26.019131*  26*029679, 

5  26.039156*  26.047669*  26.055373*  26.067331*  26.073318,  26.078819, 

6  26.083893*  26.088589*  26.092947*  26.097002*  26.1o0785*  26.104324, 

7  26,107641*  26.11o756*  26,084372*  26*177506*  26.229551*  26*268829* 

8  26.297102*  26.322567*  26,344110*  26.362578*  26.378605*  26*392677, 

9  26.405167*  26.416370*  26.427257,  26.436012,  26.443708,  26.450658/ 

*  COMMON/EST/ED  7(54) 

DATA  ED  7/ 

1  26,456966*  26.462720*  26,467988*  26.472829,  26.477295,  26*481427, 

2  26.485260*  26.488836,  26,492177*  26.495296,  26.498221,  26*500964, 

3  26.499791*  26.581421*  26. 630316,  26.670218,  26.7oll48,  26*722969, 

*  4  26.743887*  26.761664*  26.776970*  26.790305,  26.BQ2049,  26*812495, 

5  26.821876*  26.829655*  26,836631*  26.842920,  26.848619,  26*853810, 

6  26.858557,  26.862916*  26.866932*  26.870645,  26.874088,  26*877290, 

7  26.880275*  26.883066*  26.885679*  26.888131*  26.896804*  26*964134* 

8  27.015860*  27.056895*  27.088007,  27.114718,  27.131180*  27.152348* 

9  27.167362*  27.18o217*  27,191270*  27.200766,  27.208852*  27.217130/ 

COMMON/EST/EO  8(54) 

DATA  ED  8/ 

1  27.221081*  27.227399,  27.233585*  27.239345,  27.245074,  27.249217, 

2  27.250654,  27.257123*  27.258527,  27.266057*  27.262168,  27.271967, 

3  27.269062*  27.27o645,  27,280025*  27.341232,  27.390496,  27*432570* 

4  27.088259*  27.113649*  27.134874,  27.152497,  27.167626*  27.180668, 

5  27.192015*  27.201970*  27,210761*  27.218021*  27.224368,  27*230152, 

6  27.235440*  27.24o288*  27,244709*  27.248713,  27.252468,  27*255777, 

7  27.259157,  27.261668*  27,264726*  27.266873,  27.269832,  27*272096, 

8  27.283713*  27.34i292*  27.391940*  27.432570,  27.432570,  27.432570* 

9  27.432570*  27.432570*  27,432570*  27.432570,  27.432570*  27.432570/ 

COMMON/EST/ED  9(54) 

DATA  ED  9/ 

1  27.432570*  27.432570*  27,432570*  27. 432*70,  27.432570,  27*432570, 

2  27.432570*  27.432570*  27.432570*  27.432570,  27.432570,  27.432570* 

3  27,432570*  27.432570*  27,432570*  27.432570,  27.432570,  27.432570, 

4  27,432570*  27.432570*  27,432570*  27.432570,  27.432570,  27*432570, 

5  27.432570,  27.432570*  27.432570*  27.432570,  27.432570,  27.432570, 

6  2*. 432570,  27.432570*  27,432570*  27.432570,  27.432570,  27.432570, 

*  7  27.432570,  27.432570*  27.432570*  27.432570,  27.432570,  27*432570* 

8  27.432570*  27.432570*  27,432570*  27.432570,  27.432570,  27*432570* 

9  27.432570*  27.432570*  27.432570*  27.432570,  27.432570,  27*432570/ 

COMMON/EST/ED10<46) 

UATA  ED10/ 

‘  1  27.432570*  27.432570*  27.432570*  27.432570,  27.432570,  27.432570, 

2  27.432570*  27,432570*  27,432570*  27.432570,  27.432570,  27.432570, 
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3  27.432570*  27.43257Q* 

27,432570* 

27.432570* 

27.432570* 

27*432570* 

4  27.432570*  27.432570* 

27(432570  * 

27.432570, 

27.432570* 

27*432570* 

5  27.432570*  27.432570* 

27.432570* 

27.432570, 

27.432570* 

27*432570* 

6  27.432570*  27.432570* 

27.432570* 

27.432570* 

27.432570, 

27.432570* 

7  27.432570*  27.432570* 

27,432570* 

27.432570, 

27.432570* 

27*432570* 

8  27.432570*  27.432570* 

27(432570* 

27.432570/ 

MNlZtJ  =  NZB1+NZB2 

IF  (NZB.EQoI.OR.MnZB.EQ.2)  60  TO 

5 

SI  =  10.005 

return 

6  IF  (NNB.NE.l)  NBARS1.0 

LBx 

200 

IF  (NNB.NE.l)  NBMaX=1. 

LBX 

210 

tauistau 

LBX 

220 

K=NBAR 

LBX 

230 

eo=e 

LBX 

240 

ZbAR1=ZPART(K*1) 

LBX 

250 

ZBAR2=ZPART(K*2) 

LBX 

260 

IF  (E.6T.0.)  GO  To  30 

LBX 

270 

IF  (GG)  20*10*10 

LBX 

280 

10  ZuARsO. 

LBX 

290 

zbari=o. 

LBX 

300 

ZBAR2-0. 

LBX 

310 

ZPART(K*1)=ZBAR1 

LBX 

320 

ZPART(K*2)=ZBAR2 

LBX 

330 

IF  (GG.EQ.l.)  RETURN 

LBX 

340 

20  THA=l.E-3 

LBX 

350 

nbarsnbmax 

LBX 

360 

GO  TO  400 

LBX 

370 

30  CONTINUE 

LBX 

380 

IF  (GG)  120*40*40 

LBX 

390 

40  ALGT=ALOG10(TAU) 

LBX 

400 

ALGESALOGIO(E) 

LBX 

410 

ULGTsALGT-TAULZ 

LBX 

420 

ulge=alge-elz 

LBX 

430 

an=dlgt*s*i. 

LBX 

440 

AM=0LGE*T41o 

LBX 

450 

IF  (OLGT.LToO.)  An=0. 

LBX 

460 

IF  (OLGE.LT.Oo)  Am=0. 

LBX 

470 

N=IFIX(AN) 

LBX 

480 

M=IFIX(AM) 

LBX 

490 

lN-0 

LBX 

500 

E0=E 

LBX 

510 

IF  (N.LE.O)  GO  TO  180 

LBX 

520 

IF  (N.GE.NN)  GO  To  190 

LBX 

530 

IF  (M.LE.O)  GO  TO  370 

LBX 

540 

IF  'M.GEcMM)  GO  To  280 

LBX 

550 

5u  CONTINUE 

LBX 

560 

UNLTSAN-AINT(AN) 

LBX 

570 

OMLEsAM-AINT(AM) 

LBX 

580 

K=(M-1)*NN*N 

LBX 

590 

kn=k*i 

LBX 

600 

km=m*nn+n 

LBX 

610 

KNMsKM+1 

LBX 

620 

IF  (NNB.EQ.O)  GO  TO  60 

LBX 

630 

NBAR=NB(K)-t>(NB(KN)-NB(K))*ONLT«(NB(KM)-NB(K))*OMLE4(NB(KNM)^NB(K)-LBX 

640 

INB(KN)-NB(KM) )*DMlE*DNLT 

LBX 

650 

60  IF  (NEO.EQ.O)  GO  TO  70 

LBX 

660 
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EDI SsEDLN ( K  >  ♦  ( EDLN ( KN > -EDLN ( K )  )  *DNLT«-  ( gOLN ( KM)  -EDlN ( K ) )  *DmLE+ ( EDLNLBX 

670 

1 1 KNM ) +EDLN ( K ) -EDLN  ( KN) -EDLN ( K*  > ) *DMLE*DNLT 

LBX 

6B0 

IF  (IS.NE.2)  GO  TO  90 

LBX 

690 

tPR=E-EXP(EDIS) 

LBX 

700 

ALGEPR=ALOG10(EPR) 

LBX 

710 

dlgepr=algepr-eprlz 

LBX 

720 

AL=DlGEPR*R+1 

LBX 

730 

IF  (ULGEPR.LT »o»>  al=o. 

LBX 

740 

LsIFIX(AL) 

LBX 

750 

IN=0 

LBX 

760 

EPROsEPR 

LBX 

770 

IF  (NoLE.O)  GO  TO  200 

LBX 

780 

IF  (N.GE.NN)  GO  TO  210 

LBX 

790 

IF  (LcLT.O)  GO  TO  410 

LBX 

600 

IF  (L.GE.LL)  GO  To  280 

LBX 

610 

CONTINUE 

LBX 

620 

ULLEPR=AL-AINT(AL) 

LBX 

630 

K=(L-1)*NN+N 

LBX 

840 

KN-K+1 

LBX 

850 

km=l*nn+n 

LBX 

660 

KNMSKM+1 

LBX 

870 

UMLEsDLLEPR 

LBX 

660 

IF  (NZBoEQoO)  GO  TO  110 

ZBARsZB ( K ) ♦ ( ZB ( KN ) -ZB ( K  > ) *DNLT+ ( ZB ( KM ) -ZB ( K ) ) •DMLE* (ZB(KNm>+ZB(K) -LBX 

900 

1Zb(KN)-ZB(KM) )*DNlT*QMLE 

LBX 

910 

IF  (NZB1.EQ.0)  GO  TO  140 

LBX 

950 

2BARl=ZBl(K)‘MZBl(KN)-ZBl{K))*DNLrMZBl(KM> 

-ZBl ( K ) ) *DMLE* ( ZB1 ( KNM) LBX 

960 

1+ZB1 (K) -ZB1 (KN) -ZBl (KM) ) *DNLT*DMLE 

LBX 

970 

90 


110 


IF  '.NZB2.EQol>  GO  TO  140 
ZBAR2  s  (ZBAR-WT1*ZBAR1>/wT2 
ZPART(K»l)=ZBARl 
ZPART(K»2)=ZBAR2 
IF  (GG.EQ.l*  RETURN 
140  IF  (NZBZtEQoO)  GO  TO  145 

ZBAR2=ZB2(K)+(ZB2(KN)-ZB2(K))*DNLT*(ZB2(KM>-ZB2(K))*DMLE+(ZB2(KNM)LBX  1100 
1-*ZB2(K)-ZB2(KN)-Zb2(KM)  ^DNLT^DMLE  lbx  1110 

IF  (NZBloEQol)  GO  TO  141 
ZBAR1  =  (ZBAR-WT2*ZBAR2)/wT1 
GO  TO  142 

ZBAR  =  WT1*ZBAR1+wT2*ZBAR2 
ZpART ( K ’ 1 ) sZBARl 
ZPART{K»2)=ZBAR2 
IF  (GGoEG.l)  RETURN 
IF  'NEIeEQ.O)  GO  TO  146 

ALlN=EILN(K)-MEILN(KN)-ElLN(Kn*ONLT+(ElLN<KM)-ElLN(K))*DMLE-MEILNLBX  930 
i(KNM)+ElLN(K)-ElLN(KN)-ElLN(KMn*DNLT*DMLE  LBX  940 

GO  TO  150 

AulNl  =  EIONIZ'-PANl»0.0»ZBARl> 

AL1N2  =  EIONIZ<PAn2»0.0»ZbAR2) 

AlIN  =  im*ALlNl+wT2*ALlN2 
ALIN  s  ALOG(ALIN) 

IF  (lSuE<lc2)  GO  To  160  LBX  1120 

ThA=(EO-PHI*EXP(AlIN) )/(1,5*PHI*(1./N8AR*ZBAR) )  LBX  1130 

GO  TO  148 

16u  THA=(EO-PHl*EXP<ALlN>-EXP<EDlS>  >/U.5*PHI*(l./NBAR*ZBAR> >  LBX  1150 

14b  IF  'THAI  147»147»l70 
147  THA  =  lvE-3 


141 

142 


145 


146 


15q 
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170 

180 


190 


200 


21u 


220 


IF 

00 

IF 

IF 

00 

IF 

IF 

00 

IF 

IF 

00 

IF 

IF 


iIN.NE.0)  GO  TO  <230»250*270#290i310»330*360»3a0) 
TO  400 

(H.LE.O)  GO  TO  220 


GO  TO  260 


(HcGE.MH) 

T0  240 
(M.LE.O)  GO  TO  340 
'.M.GE.MMJ  GO  To  300 
TO  320 

<LoLE,0)  GO  TO  220 
'•L.GE.LU  GO  TO  260 
TO  240 

(L.LE.O)  GO  TO  350 


'L.GE.LL)  GO  To  300 
LONTINUE 

IF  (U.EQ.l)  GO  TO  420 
ZBAR=0. 

N8AR=NBMAX 
THASl.E-3 
GO  T0  400 
CONTINUE 

return 

CONTINUE 

IF  ( I2cEGd 1)  GO  TO  430 
CONTINUE 
RETURN 

continue 

IF  (I3.EQ.1)  GO  TO  440 

continue 
return 
continue 

IF  (I4.EQ.1)  GO  TO  450 

continue 

RtTURN 

continue 

IF  (I5.EU.1)  60  TO  460 

continue 

RtTURN 

TAU=j999*TAUM 
GO  To  30 

continue 
return 

340  continue 

IF  '-I7.EQ.D  GO  To  470 

IN  =7 

M=1 

N=NN 

EO=EZ 

GO  TO  50 

350  IF  U7cEQ.l)  GO  TO  470 
In-7 
L=1 
N=NN 

EPROsEPRZ 
GO  TO  80 

360  ThAPsE*THA/EZ 

ZBAR=ZBAR* ( THAP/ThA )  •* . 75*SORT ( TAUM/TAU) *EXp ( VI* ( tHAP< 
1 A P*2 * ) ) 


230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

33u 


»  IN  CBX  1160 

LBX  117o 
LBX  1180 
LBX  1190 
LBX  1200 
LBX  1210 
LBX  1220 
LBX  1230 
LBX  1240 
LBX  1250 
LBX  1260 
LBX  1270 
LBX  1280 
LBX  1290 
LBX  1300 
LBX  1310 
LBX  1320 
LBX  1330 
LBX  1340 
LBX  1350 
LBX  1360 
LBX  1370 
LBX  1380 
LBX  1390 
LBX  1400 
LBX  1410 
LBX  1420 
LBX  1430 
LBX  1440 
LBX  1450 
LBX  1460 
LBX  1470 
LBX  1480 
LBX  1490 
LBX  1500 
LBX  1510 
LBX  1520 
LBX  1530 
LBX  1540 
LBX  1550 
LBX  1560 
LBX  1570 
LBX  1580 
LBX  1590 
LBX  1600 
LBX  1610 
LBX  1620 
LBX  1630 
LBX  1640 
LBX  1650 
LBX  1660 
LBX  1670 
LBX  1680 
LBX  1690 
LBX  1700 
-THA)/(THA*THLBX  1710 
LBX  1720 


5^4 
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AlN=Vl*ZBAR 
60  T0  390 
370  CONTINUE 

IF  (18  EQ.l)  60  To  480 

lN=8 

M=1 

E0=EZ 

60  TO  50 

380  THAP=E*THA/EZ  .  . 

ZBARsZBAR*(THAP/ThA)**.75*EXP(V1*(THAP-THA)/(THA*tHAP*2.)) 
AIN=V1*ZBAR 
.390  CONTINUE 

THA= ( E/PHI-A IN) / ( 1 . 5* ( 1 . /NB AR^ZBAR ) ) 

400  PsPHI* ( 1 ./nbar+zbaR) *tha/taui 

C  SEDEI  =  SUM  OF  IONIZATION  ENERGY  AND  DISSOCIATION  ENERGY 
SEDEI=EXP(EDIS)*PhI*EXPUlXN) 

return 

410  CONTINUE 

IF  (I80EQ.I)  GO  To  480 

lN=8 

L=1 

EPROrEPRZ 
60  TO  80 
420  Sl=l6.0l00 
60  TO  490 
430  51=16.0200 
toO  TO  490 
440  51=16.0300 
60  TO  490 
450  Sl=16.0400 
00  TO  490 
460  Sl=l6*0500 
60  TO  490 
51=16.0600 
60  TO  490 
470  S1=16.0700 
60  T0  490 
480  S1=16.0800 
490  RETURN 

end 


LBX  1730 
LBX  1740 
LBX  1750 
LBX  1760 
LBX  1770 
LBX  1700 
LBX  1790 
LBX  1600 
LBX  1010 
LBX  1620 
LBX  1630 
LBX  1640 
LBX  1850 
LBX  I860 
LBX  1670 
LBX  1660 
LBX  1690 
LBX  1900 
LBX  1910 
LBX  1920 
LBX  1930 
LBX  1940 
LBX  1950 
LBX  I960 
LBX  1970 
LBX  I960 
LBX  1990 
LBX  2000 
LBX  2010 
LBX  2020 
LBX  2030 
LBX  2040 
LBX  2050 
LBX  2060 
LBX  2070 
LBX  2060 
LBX  2090 
LBX  2100 
LBX  2110 
LBX  2120 


% 
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AOapTED  FqA  use  *ljfo  AM  NTHANfWe'T*WTvr'?  IP  '  j"  *{ 
UP  specifically  for  Hectic  •  ■  "  ‘  T  ••  V  H 


c  this  version  o*  libex 

C  EQUIVALENCES  mere  set 

SUBROUTINE  LIBEX(TAU,  E»  THA,  P»  ZBAR,  GG,  NBAR,  «;EOEl)  LIBF 

EQUIVALENCE  (Z(13l) »S1)  LBX 

EQUIVALENCE  (Z(SOOl) ,  IS) , (Z(50C2) >NEO) * (2(5003) »NEl) > (ZC5n04) ,NNB)LBX 
1, (Z<5005) ,  N2B) » <Z(5006) »NZB1) » <Z(s007>  ,NZB2) , (Z(5o08) ,TAUm>  » (Z(500LBX 
29) »EM) » (Z(5010) »EpRM) » (2(5011) »TAuZ) » (Z(5ol2) ,EZ) , (Z(5013) >EPRZ) »  LBX 
3(2(5014) ,TAUL2) > (Z<5015) ,ELZ) * (Z(50l6) ,EPRL2) , (Z(S017) ,R) , (Z(5018)LBX 
4»S> ’ (Z(5019>  »T) » (Z<5020> »¥l> » (Z(5021) »V2) » (2(5022) »PHI>  » (7(5023) ,NLBx 
5BMAX ) , (2(5024) »NN) » (Z(5025) ,mM) » (2(5026) »LD  » (Z(5o27) ,11) , (Z(5028)LBX 
6* 12) , (2(5029) ,13) ,  (Z(5030 ) , 14 ) »  (Z(5C31) »I5) »  (2(5032) >16) ,  r 2(5033) »LBx 
717) > (2 (5034) » 18) » (2(5035), WT1)» (2(5036) >MT2),(Z(5o37)»PANl)» 

8  2(5038), PAN2) 

EQUIVALENCE  (2(5039) ,ZB) , (2(6633) ,£ILN) , (2(8227) ,NB) , (2(9*21) ,EOLNLBx 
1), (2(11415) ,ZB1), (2(13008), ZB2)  LBx 

real  NB  LBx 

keal  NBMAX  LBx 

REAL  NBAR  LBx 

COMMON  2(10000)  LBX 

COMMON/BOB/ZPART ( 1200 ,3)  LBx 

DIMENSION  ZB10(1594) ,EILN10(1594) »N81D(1594) ,EDLNlO( 1594) ,2B110(15EST 
193), 20210(1593) 

MNZB  s  NZB1+NZB2 

IF  (N2B«EQc1.0R.MnZB.EQ.2)  60  TO  5 
Si  =  10.005 


10 


20 


30 

40 


10 

20 

30 

40 

50 

60 

70 

80 

90 


110 

120 

130 

140 

150 

160 

170 

90 


IF  (NNB.NE.l)  NBARS1.0 

LBX 

200 

IF  'NNB.NE.l)  NBMAXsi. 

LBX 

210 

TAUlsTAU 

LBX 

220 

KsNBAR 

LBX 

230 

EO=E 

LBX 

240 

2BAR1=ZPART(K,A) 

LBX 

250 

2BAR2=ZPART(K,2) 

LBX 

260 

IF  (E.GT.O.)  GO  TO  30 

LBX 

270 

IF  (GG)  20,10,10 

LBX 

280 

2BARsO o 

LBX 

290 

2BAR1S0. 

LBX 

300 

2BAR2=0, 

LBX 

310 

ZPART (K » 1 ) sZBARl 

LBX 

320 

2PART(K,2)=2BAR2 

LBX 

330 

IF  ' GGoEQo 1, )  RETURN 

LBX 

340 

THA51«r,3 

LBX 

350 

Nl)AR=NdMAX 

LBX 

360 

GO  TO  400 

LBX 

370 

continue 

LBX 

380 

IF  (GG)  120,40,40 

LBX 

390 

ALGTsALOGIO(TAU) 

LBX 

400 

ALGESALOGIO(E) 

LBX 

410 

ulgt=algt-taulz 

LBX 

420 

ULGE5ALGE-ELZ 

LBX 

430 

AN=OLGT*S*l. 

LBX 

440 

am=olge*t-h. 

LBX 

450 

IF  (OLGT.LT.O.)  An=0. 

LBX 

460 

IF  (OLGE.LT.O.)  Am=0. 

LBX 

470 

N*IFIX(AN) 

LBX 

480 

M=IFIX(AM) 

LBX 

490 

IN=0 

LBX 

500 

E0=E 

LBX 

510 

I 


> 


✓ 


1 
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IF  (N.LE.O)  GO  TO  180 

LBX 

520 

IF  (N.SE.NN)  GO  To  190 

LBX 

530 

IF  (M.LE.O)  GO  TO  370 

LBX 

540 

IF  (M.GE.MM)  GO  TO  230 

LBX 

550 

50 

continue 

LBX 

560 

unltsan-aintian) 

LBX 

570 

UMLEsAM-AINT(AM) 

LBX 

580 

Ks«M-l)*NN*N 

LBX 

590 

kn=k*i 

LBX 

600 

km=h*nn*n 

LBX 

f  10 

knhskm+i 

LBX 

620 

IF  (NNBcEQ.O)  GO  TO  60 

LBX 

630 

NbAR=NB(K)*(NB(KN)-NB(K>)»DNLT*(NB<KM)-NB(K))*DMLE+<N6(KNm)+NB(K) 

-LBX 

640 

Inb(KN)-NBCKM) )*DMlE*DNLT 

LBX 

650 

60 

IF  (NEOuEQ.O)  GO  TU  70 

LBX 

660 

ED I SsEDLN ( K ) ♦ ( EDLN (KN) -EQlN { K ) ) *DNLT+ ( EOLN  * KM ) -EDlN ( K ) ) *DmLE+ ( EDLNLBx 

670 

1  ( KNM)  ♦EOLN ( K )  -EDLN < KN )  -EDLN ( K.M ) )  *DMLE*DNLT 

LBx 

6B0 

70 

IF  (IS.NE.2)  GO  TO  90 

LBX 

690 

LPR=E-EXP(EDIS) 

LBX 

700 

ALGEPR=ALOG10(EPR) 

LBX 

710 

dlgepr=algepr-eprlz 

LBX 

720 

AL=DLGEPR*R>1 

LBX 

730 

IF  'OLGEPR.LT.O.)  also. 

LBX 

740 

LsIFIX(AL) 

LBX 

750 

IN=0 

LBX 

760 

tpROsEPR 

LBX 

770 

IF  (N.LE.O)  GO  TO  200 

LBX 

780 

IF  (N.GE.NN)  GO  To  210 

LBX 

790 

IF  (LoLT.O)  60  TO  410 

LBX 

800 

IF  (L.GE.LL)  GO  To  260 

LBX 

810 

BO 

CONTINUE 

LBX 

820 

OLLEPRSAL-AINT(AL) 

LBX 

830 

Ks<L-l)*NN*N 

LBX 

840 

KN-Kfl 

LBX 

850 

KM=L*NN+N 

LBX 

860 

knmskm+i 

LBX 

B7o 

OMLEsDLLEPR 

LBX 

880 

90 

IF  (NZBcLO.O)  GO  TO  110 

LBX 

890 

ZdAR;ZB(K)t(ZB(KN)-ZB<K))*DNLTMZB(KM)-ZB(K))»DMLE+(ZB(KNM>+ZB(K) 

-LBX 

900 

1ZB(KN)-ZB<KM) )*dnlt*dmle 

LBX 

910 

110 

IF  (NZBl.EQ.O)  GO  TO  140 

LBX 

950 

ZBAR1SZB1(K)*(ZB1(KN)-ZB1(K))*0NLT^(ZB1CKM)-ZB1(K))*0MLE*(ZB1(KNM)LBX 

960 

1+ZBl (K) -ZB1 (KN)-ZBl (KM) ) *DNLT*DMLE 

LBX 

970 

IF  (NZB2.EQ. 1 )  GO  TO  140 
ZBAR2  s  <ZBAR-wTl*ZBARl>/iT2 
ZPART (K » 1 ) sZBARl 
ZPART ( K » 2 ) SZBAR2 

IF  (GG.EQ.l)  RETURN  LBX  1010 

140  IF  <NZB2»EQeO)  GO  TO  145  LBX  1090 

ZBAR2=ZB2 (K ) ♦  <  ZB2  <  KN) -ZB2 ( K ) ) *DNLT* ( ZB2 ( KM) -ZB2 ( K ) > *DMLE+(ZB2 ( KNM) LBX  1100 

*  1+ZB2(K)-ZB2(KN)-Zb2(KM))*DNLT*0MLE  LBX  1110 

IF  (NZBloEQ'l)  GO  TO  141 
ZBAR1  =  (ZBAR-NT2*Z8AR2)/nT1 
GO  TO  142 

141  ZbAR  =  WT1*ZBAR1«nT2*ZBAR2 

f  142  ZPART (K»l)=ZBARl 

ZPART ( K  >  2 ) XZBAR2 
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IF  (GG.EG.l)  RETURN 

145  IF  (NEI.E9.0)  GO  TO  146 

ALIN=EILN(K)  +  (EILN<KN)-EILN(K>)*DNLT+(eXLN<KM)-EI|.N(K))*C>mLE+(EILNLBX  930 

11KNM»+EILN(K)-EILn<KN)-EIlN(KM))*0NLT*0NLE  LBX  940 

bO  T0  150 

146  ALIN1  =  EIONIZ(PAn1»0.0»ZbAR1) 

ALIN2  =  EIONIZ(PAn2»0*0»ZbAR2> 

AlIN  =  WT  l*ALlNl+kjT2*ALlN2 
ALIN  =  ALOG(ALIN) 

150  IF  <IS.£Q.2)  GO  To  160  LBX  1120 

THA=CE0-PHI*EXP(AlIN))/(1,5*PHU(1./N8aR^ZBAR))  LBX  1130 

GO  TO  148 

160  THA=(E0-PHl*EXP(ALXN)-EXP(EDlSn/(l«5*PHI*(l,/NBAR+ZBAR) )  LBX  1150 

148  IF  ( THA'  147»147»l70 


147  THA  =  l*E-3 

170  IF  'iNcNE.O)  GO  To  <230#250#270,290»3l0»330»360»3a0> »  IN 
GO  T0  400 

160  IF  (H.LE.O)  GO  TO  220 
IF  (McGE.MM)  GO  To  260 
GO  T0  240 

190  IF  (HoLE.O)  GO  TO  340 
IF  (M.GE.MH)  GO  TO  300 
GO  T0  320 

200  IF  (L'LE.O)  GO  TO  220 
IF  CL'GE.LL)  GO  To  260 
GO  TO  240 

210  IF  CL*LE.O)  GO  TO  350 
IF  (L.GE.LL)  GO  To  300 
220  CONTINUE 

IF  (ILEO.l)  GO  TO  420 
ZBARsOc 
NBARsNBHAX 
ThA=1,E-3 
GO  TO  400 
230  CONTINUE 

return 

240  CONTINUE 

IF  U2.EQ.1)  GO  TO  430 
250  CONTINUE 

return 

260  CONTINUE 

IF  <I3*EQ.l)  GO  TO  440 
270  CONTINUE 
RETURN 

280  CONTINUE 

IF  U4'EU.l)  GO  TO  450 
290  CONTINUE 

return 

300  CONTINUE 

IF  (I5.EQ.1)  GO  TO  460 
310  CONTINUE 

return 

320  TAU=o999*TAUM 
GO  TO  30 
330  CONTINUE 

return 

340  CONTINUE 


LBX  1160 
LBX  1170 
LBX  1180 
LBX  1190 
LBX  1200 
LBX  1210 
LBX  1220 
LBX  1230 
LBx  1240 
LBX  1250 
LBX  1260 
LBX  1270 
LBX  1280 
LBX  1290 
LBX  1300 
LBX  1310 
LBX  1320 
LBX  1330 
LBX  1340 
LBX  1350 
LBX  1360 
LBX  1370 
LBX  1380 
LBX  1390 
LBX  1400 
LBX  1410 
LBX  1420 
LBX  1430 
LBX  1440 
LBX  1450 
LBX  1460 
LBX  1470 
LBX  1480 
LBX  1490 
LBX  1500 
LBX  1510 
LBX  1520 
LBX  1530 
LBX  1540 
LBX  1550 
LBX  1560 
LBX  1570 


I 


t 


/ 
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IF  (I7.EQ.1)  GO  TO  470 

LBX  1580 

I 

IN-7 

LBX  1590 

M=1 

LBX  1600 

n=nn 

LBX  1610 

E0=EZ 

LBX  1620 

GO  70  50 

LBX  1630 

350 

IF  U7.EG.1)  GO  TO  470 

LBX  1640 

IN^ 

LBX  1650 

L=1 

LBX  1660 

n=nn 

LBX  1670 

eproseprz 

LBX  1660 

GO  TO  80 

LBX  1690 

360 

thap=e*tha/ez 

LBX  1700 

ZbARsZBAR* (THAP/ThA) •*#75*SQRT  tTAUM/TAU) *EXPCV1*(tHAP«THA) /CTHA*THLBX  1710 

lAP*2e ) ) 

LBX  1720 

AIN=V1*ZBAR 

LBX  1730 

GO  TO  390 

LBX  1740 

370 

CONTINUE 

LBX  1750 

IF  (I8.EQ.1)  GO  TO  480 

LBX  1760 

lN=8 

LBX  1770 

M=1 

LBX  1780 

t 

E0=EZ 

LBX  1790 

GO  TO  50 

LBX  1800 

380 

THAP=E*THA/EZ 

LBX  1810 

ZBARSZBAR*(THAP/THA)**.75*EXP(V1*(TMAP-THA)/(THA*THAP*2. ) ) 

LBX  1820 

V 

AIN=V1*ZBAR 

LBX  1630 

390 

continue 

LBX  1640 

T  HAS ( E/PHI-AIN) / ( 1 . 5* ( 1 • /nKAR+ZBAR> ) 

LBX  1650 

400 

PsPHI* ( 1 . /NBAR+ZBAR > *THA/TAUi 

LBX  1660 

C 

SEOEI  =  SUM  OF  IONIZATION  ENERGY  AND  DISSOCIATION  ENERGY 

LBX  1870 

SEOEISEXP(EDIS) ♦phi*exp<alin) 

LBX  1880 

RETURN 

LBX  1890 

4X0 

CONTINUE 

LBX  1900 

IF  U8wE0.1)  GO  TO  480 

LBX  1910 

IN -8 

LBX  1920 

LSI 

LBX  1930 

EPROsEPRZ 

LBX  1940 

GO  TO  80 

LBX  1950 

420 

Sl=16.0100 

LBX  I960 

GO  TO  490 

LBX  1970 

430 

51=16.0200 

LBX  1980 

GO  TO  490 

LBX  1990 

440 

51=16.0300 

LBX  2000 

GO  To  490 

LBX  2010 

450 

51=16.0400 

LBX  2020 

GO  TO  490 

LBX  2030 

• 

460 

S1=16.0500 

LBX  2040 

GO  TO  490 

LBX  2050 

51=16.0600 

LBX  2060 

GO  T0  490 

LBX  2070 

470 

51=16.0700 

LBX  2060 

GO  T0  490 

LBX  2090 

480 

51=16.0800 

LBX  2100 

490 

KtTURN 

LBX  2110 

f 

end 

LBX  2120 

529 
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HEAL  FUNCTION  EIOnIZ(A»  B»  C)  •'  ’  •*> 

EIon 

20 

FUNCTION  TO  COMPUTE  IONIZATION  ENERGY 

ElON 

30 

compiled  march  9»  i9&7»  by  Chris  imes 

EIon 

4o 

MODIFICATION  OF  CODING  DONE  BY  6ARY  LANE  ON  MAY  6,1966*  FnR 

EI0NM5EI0N 

50 

and  EI0NF3 

EIon 

60 

EIon 

70 

Z  =  A 

EION 

80 

PHI  =  B 

EION 

90 

ZUAR  =  C 

EION 

100 

eion 

110 

OPTION  TO  INCLUDE  PHI  IN  CALCULATIONS 

eion 

120 

IF  (PHI  .EQ.  0*)  PHI  IS  SET  To  it 

EION 

130 

IF  (PHI  .NE.  0.)  PHI  IS  USED  IN  CALCULATIONS 

eion 

140 

EIon 

150 

IF  (PHI  . EQo  0.) 

eion 

160 

•  PHI  =  i. 

eion 

170 

eion 

160 

COMMON  /LMSB/U(1) 

EION 

190 

data  MARIMX/11/ 

EION 

200 

data  error/o./ 

EION 

210 

ElON 

220 

Jl  =  1 

eion 

230 

IZK  s  IFIX(Z  +  .5) 

eion 

240 

eion 

250 

400  CONTINUE 

eion 

260 

START  SEARCHING  ThE  MAR I  DECK  TO  FlNO  THE  DESIRED  Z 

EION 

270 

IL  =  IFIX(U( Jl)  ♦  .5) 

eion 

280 

IF  (IZK  .EQ.  IL) 

eion 

290 

•  GO  TO  401 

EION 

300 

Jl  s  Jl  ♦  II  ♦  2 

eion 

310 

IF  (Jl  .GT.  MARIMX) 

EION 

320 

•  GO  TO  800 

EION 

330 

GO  TO  400 

EION 

340 

EION 

350 

401  CONTINUE 

EION 

360 

ATOMIC  NUMBER  OF  oESIREO  ELEMENT  HAS  BeEN  LOCATED  IN  MARI 

EION 

370 

IF  (ZBAR  .GT o  (U(jl)  -  .5)) 

EION 

380 

•  GO  TO  410 

EION 

390 

GL  =  ZBAR 

EION 

400 

LAG  =  GL 

EION 

410 

GAL  s  GL  -  FLOAT (LAG) 

EION 

420 

EION 

430 

J2  IS  THE  NUMBER  OF  IONIZaTION  POTENTIALS  FOR  THE  ELEMENT 

EION 

440 

IF  (GAL  .GT.  .5) 

EION 

450 

•  J2  =  LAG  ♦  2 

eion 

460 

IF  (GAL  »LE.  .5) 

eion 

470 

»  J2  =  LAG  ♦  1 

EION 

480 

GO  TO  420 

eion 

490 

eion 

500 

410  CONtINUE 

eion 

510 

J2  =  IZK 

EION 

520 

EION 

530 

420  CONTINUE 

EION 

540 

J3  determines  the  location  of  the  highest  potential  for  the 

EION 

550 

element 

eion 

560 

J3  *  Jl  ♦  J2  ♦  1 

EION 

570 

XI  =  PHI* ( 1  *  ♦  ZBAR) 

EION 

580 
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IF  (J2  oEQo  1) 

'  GO  T0  430 
IF  CJ2  >£0.  IZK) 

•  GO  TO  440 

c 

C  Ji.NEvl  » AND  >  J2.NE.Z#  MZO-PATH 

TLMS4  =  02 

TLMS13  =  U(J3)  -  U (03  -  1) 

SIGMA  =  ( (Z0AR  -  TLMS4  ♦  1.5>**2>wTLMS13/2»*PHI  ♦  U(J3  -  1>*<XI 
'  TI.MS4*PHI> 

GO  TO  500 
C 

430  CONTINUE 
C  J2>.EQ  -  1  LOW  PATH 

XBAH  =  Z0AR 
GO  TO  450 
C 

440  CONTINUE 

C  J2  cEQo  IZK»  HIGH  PATH 

XBAR  =  ZBAR  -  U(Jl)  ♦  1. 

C 

450  CONTINUE 

C  COMPUTE  SIGMA  FOR  LOW  PATH  AND  HIGH  PATH 
SIGMA  =  XBAR*U(J3)*PHI 

C 

500  CONTINUE 

C  SUM  ALL  LOWER  POTENTIALS 
TLMS14  =  0. 

IF  ( J2  oEQ.  1) 

•  GO  TO  480 
j6  •  J2  *  I 

00  475  J4  =  1»  J6 
J7  =  U1  ♦  J4  *  1 
TLMSI4  =  TLMS14  ♦  U(j7) 

47b  CONTINUE 
C 

480  CONTINUE 

C  DETERMINE  TOTAL  IONIZATION  ENERGY 
ENERGY  =  TLMS14WPHI 
C 

LIONIZ  =  ENERGY  ♦  SIGMA 

return 

C 

C 

800  CONTINUE 

C  ERROR  IS  SET  IF  A  NEEDED  ELEMENT  HAS  BEEN  LEFT  OUT  OF  THE 
C  MARI  DECK 

ERROR  =  18*0800 
C  CALL  OUMP 

return 

CALL  MARI 

return 

end 

SUBROUTINE  ERR(Sl) 

3  FORMAT  <6H  SI  =  Fi0.4) 

WRITE<6»3>  SI 
CALL  EXIT 


EION  590 
EION  £00 
EION  610 
EION  620 
EION  630 
EION  640 
EION  650 
EION  660 
EION  670 
EION  680 
EION  690 
EION  700 
EION  710 
EION  720 
EION  730 
EION  740 
EION  750 
EION  760 
EION  770 
EION  780 
EION  790 
EION  800 
EION  810 
EION  820 
EION  830 
EION  840 
EION  850 
EION  860 
EION  870 
EION  880 
EION  890 
EION  900 
EION  910 
EION  920 
EION  930 
EION  940 
EION  950 
EION  960 
EION  970 
EION  980 
EION  990 
EIONIOOO 
ElONlOlO 
EION1020 
EION1030 
EION1040 
EION1050 
EION1060 
EION1070 
EION1080 
EION1090 
ElONllOO 
EIONlUO 
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